» 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

České školství čeká revoluce v informatice. Děti se budou učit programovat a logicky myslet

České školství čeká revoluce v informatice. Děti se budou učit programovat a logicky myslet

** Projekt iMyšlení představil 11 nových učebnic pro výuku informatiky ** Cílem je i ty nejmenší děti naučit programovat a logicky uvažovat ** Přichází odklon od současného konceptu učení toho, jak se počítač vůbec ovládá

Karel Javůrek | 106

Čtyřicet procent je moc. Spalovací motory nedokážou splnit požadavek EU na snížení emisí

Čtyřicet procent je moc. Spalovací motory nedokážou splnit požadavek EU na snížení emisí

** EP nařídil automobilkám snížit o 40 % emise CO2 ** EU chce zvýšit podíl elektromobilů ** Výrobci hrozí ztrátou pracovních míst

Karel Kilián | 231

Tajuplná čínská raketa by mohla ohrozit vzdušnou sílu amerického letectva

Tajuplná čínská raketa by mohla ohrozit vzdušnou sílu amerického letectva

** Čínské letectvo vyvíjí záhadnou raketu typu vzduch-vzduch ** Mysteriózní zbraň nese označení PL-XX ** Jde o raketu vzduch-vzduch s velmi dalekým doletem

Stanislav Mihulka | 12

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

Astronomové objevili daleko za Plutem objekt s extrémní dráhou. Může ukazovat na existenci planety Devět

** Astronomové objevili daleko za Neptunem těleso 2015 TG387 ** Okolo Slunce se pohybuje po extrémně protáhlé dráze ** Jeho dráha může ukazovat na existenci planety Devět

Petr Kubala | 10


Aktuální číslo časopisu Computer

Odhalte skryté funkce Windows 10

Test levných Androidů do 4 000 Kč

Srovnání úsporných minipočítačů

Změřili jsme rychlost 10Gb/s ethernetu