Problemer med IF setning =/

[LysDiode]

Hei.

Jeg sliter med en IF setning. Den skal fungere slik at dersom teksten i textbox1 er 123, så skal det hoppe til neste vindu. Hvis ikke skal det f. eks. komme og en MsgBox. De er det siste jeg ikke får til =/

If TextBox1 = 123 Then

End If

Det må vel være noe imellom der, men jeg finner ikke ut hva

 

Hva er ElseIf for? Prøvde å bruke det men det var nok totalt feil

[Gjest]

Hei.

Jeg sliter med en IF setning. Den skal fungere slik at dersom teksten i textbox1 er 123, så skal det hoppe til neste vindu. Hvis ikke skal det f. eks. komme og en MsgBox. De er det siste jeg ikke får til =/

If TextBox1 = 123 Then

End If

Det må vel være noe imellom der, men jeg finner ikke ut hva

 

Hva er ElseIf for? Prøvde å bruke det men det var nok totalt feil

 

Hei !

 

Det er fin vb guide her på forumet som er skrevet av aadnk

men her et uttdrag fra guiden hans:

 

 

Hele posten: VB guiden

Klikk for å se/fjerne innholdet nedenfor

IF-THEN syntaksen

 

Nå kommer vi til en viktig del av VB, nemlig betingelses-programmering. Prøv ut dette eksempelet:

 

 

If txtTekst.Text = "hallo" Then

MsgBox "Hallo igjen!"

End If

 

 

Skriv inn hallo i tekstboksen. Meldingsboksen kommer opp. Skriver du ikke hallo vil heller ikke meldingsboksen bli synlig. Vi kan oversette VB koden til norsk slik:

 

HVIS txtTekst.Text = "hallo" DA SKAL

MsgBox "Hallo igjen"

SLUTT PÅ HVIS

 

Man kan også legge til en Else del av IF syntaksen:

 

 

If txtTekst.Text = "hallo" Then

MsgBox "Hallo igjen!"

Else

MsgBox "Ikke det? Neivel."

End If

 

 

Hvis teksboksen ikke inneholder hallo vil en meldingsboks med teksten Ikke det? Neivel. komme fram. Else kan på norsk oversettes til HVIS IKKE. Hvis du vil ha flere betingelser kan du enten legge inn flere IF'er, eller bruke ELSEIF:

 

 

If txtTekst.Text = "hallo" Then

MsgBox "Hallo igjen!"

ElseIf txtTekst.Text = "farvel" Then

MsgBox "Farvel"

Else

MsgBox "Hva sa du?"

End If

 

 

Du trenger ikke bruke teksbokser, og du trenger heller ikke sjekke for tekst:

 

 

Dim Tall

Tall = 5

If Tall = 5 Then

MsgBox "Tall er lik 5"

Else

MsgBox "Tall er ikke lik 5"

End If

[LysDiode]

For en genial guide =D Rart jeg ikke har lagt merke til den