Podmínky ve VB – Visual Basic – Fórum – Programujte.com

Díval jsem se na kuzr VB, v lekci podmínky, a vůbec to nechápu.
Nevím jak to aplikovat.

Mám aplikaci, a v ní 1 textBox, a jedno tlačítko. Jak tedy poddmínku aplikovat, aby se zjistilo, jestli ve v textovém poly třeba číslo 11. Pokud by tam číslo 11 bylo, provedlo by to akci:

MsgBox(" OK, vbInformation, title ")

MsgBox(" NE, vbInformation, title")

Možná by sis měl nejdřív projít základy ;-)

If TextBox1.Text = 11 Then

  MsgBox("ANO", MsgBoxStyle.Information, "title")

Else

  MsgBox("NE", MsgBoxStyle.Information, "title")

End If

moc díky

Slibuju že základy si projdu.... :)

Lehce vylepšená verze. Jo jo... to bys měl

If IsNumeric(TextBox1.Text) Then

  If TextBox1.Text = 11 Then

    MsgBox("ANO", MsgBoxStyle.Information, "title")

  Else

    MsgBox("NE", MsgBoxStyle.Information, "title")

  End If

Else

    MsgBox("napiš číslo", MsgBoxStyle.Critical, "Chyba")

End If

jj moc díky. A mám ještě jeden dotaz. Jak udělám aby se mi zkopírovala složka i z obsahem???

Složka je vůči aplikaci na umístění / Složka, a potřebuju aby ji aplikace umístila na C:/
Zkoušel jsem hledat, ale jediné co jsem za asi hodinu našel je:

nic

Toto by ti mohlo ist

Dim Manipulate as New FileSystemObject

Private Sub command1_click()

Manipulate.CopyFile("zdroj","kamtomaist",Overwritefile as Boolean) 'Kopirovanie suborov napr 'Manipulate.CopyFile("C:/Priecinok","D:/",Overwritefile as Boolean)

Manipulate.CopyFolder("zdroj","kamtomaist",Overwritefile as Boolean) 'Kopirovanie priecinkov

Manipulate.CreateFolder("cesta") 'vytvaranie priecinkov

Manipulate.CreateFile("cesta") 'vytvaranie suborov

End sub

Když dám podmínku někam jinam, a přepíšu číslo 11, tak mi to nefunguje. Zkoušel jsem už všecnhno.