» Poradna » Programy

Visual Basic - Textbox, button

 |   |  Microsoft Windows 7 Chrome 21.0.1180.60

Ahoj, Mám takovou aplikaci, že lidi musej zadat ČÍSLO a pak kliknout na OK to ukáže druhou formu. To vše je OK.Ale zadal jsem tam aby když to je nevyplněný tak to ukaže MSG s textem (tohle tam mám napsane If Trim(TextBox1.Text) = vbNullString Then MsgBox("Prazdny textbox!", MsgBoxStyle.OkOnly)Form1.Show()Me.Visible = Falseovšem pak když se v textboxu klikne na ok tak mi to rovnou ukaže zase druhou formu, to já nechci. Potřeboval bych aby když nezadaj nic do textboxudaj ok aby se ukazal msgbox, kliknuli na ok a vratilo je to na Form1 kde je formulář. Prosím pomocte Jak má vypadat kod?

Odpovědi na otázku

 |   |  Linux Chrome 18.0.1025.168

Tak v tomhle řádku to asi nebude, ne?PrasatkoPee

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Opera 9.80

Vyzkoušejte toto:If TextBox1.Text.Length = 0 Then MsgBox("Prázdný textbox!", MsgBoxStyle.OkOnly)Else Form1.Show() Me.Visible = FalseEnd If

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 21.0.1180.60

Děkuji moc :)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Opera 9.80

Vyzkoušejte toto:If TextBox1.Text.Length = 0 Then MsgBox("Prázdný textbox!", MsgBoxStyle.OkOnly)Else Form1.Show() Me.Visible = FalseEnd If

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Button, Trim




Určitě si přečtěte

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

Byli tam! Důkazy o přistání na Měsíci, Lunochody i čínská sonda jsou vidět z vesmíru

** Sonda LRO pořídila z oběžné dráhy Měsíce zajímavé snímky ** Jsou na nich vidět artefakty všech misí programu Apolla, které přistály na povrchu Měsíce ** Jde například o části lunárních modulů, rovery a dokonce i vlajky

Petr Kubala | 62

Jak zrychlit a vylepšit domácí Wi-Fi

Jak zrychlit a vylepšit domácí Wi-Fi

** Máte pomalou Wi-Fi? ** Nedosáhne na zahradu nebo na záchod? ** Zopakujeme si základní pravidla optimalizace

David Polesný, Jakub Čížek | 18

Cardano: kryptoměna nové generace, která se netěží, ale razí

Cardano: kryptoměna nové generace, která se netěží, ale razí

** Cardano je unikátní kryptoměna, která díky svým vlastnostem a schopnostem přitahuje pozornost ** Od Bitcoinu se zásadně liší ** Jejím smyslem není jen „koupit a prodat“, má pozoruhodné technologické možnosti

Martin Miksa | 28

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

** Tesla má rekordní příjem, je ale ve ztrátě ** Objem výroby se zvyšuje, dochází ale baterie ** Pomoci mají nové továrny Gigafactory

Karel Javůrek | 91


Aktuální číslo časopisu Computer

Jak mobily určují svoji polohu?

Velký test notebooků pro studenty

Nejlepší reproduktory na párty

Služby a aplikace pro výuku angličtiny