deel uit textbox vinden

[stefanz]

Hallo allemaal,

Ik ben weer met een programma bezig maar ik zit met een probleem.
Ik weet dat de source hier onder niet klopt maar dan kun je even zien wat de bedoeling is.

if text1.text contains "www" then (niks)
Else
MsgBox "je bent www vergeten"


Ik wil dus als er geen www in text1 staat dat er dan een msgbox komt met je bent www vergeten.

Dat sukje met contains klopt niet helemaal maar hoe moet het anders?

(ik werk met vb6)

 

[That Guy]

check de

instr()

functie.

Als je dit vanwege een url wilt doen kan je ook even kijken naar de

mid()

en

left()

functions.

 

[stefanz]

Private Sub Command1_Click()
if text1.Text contains "www" then
WebBrowser1.Navigate "http://www.sitenaam.nl/index.php?=&=http://" & text1.text
Else
MsgBox "je bent www vergeten"
end if
End Sub

dit is ongeveer de bedoeling
er moet www in staan anders werkt de site niet

 

[ErikBooy007]

Private Sub Command1_Click()
  If text1.Text.contains("www") Then
    WebBrowser1.Navigate "http://www.sitenaam.nl/index.php?=&=http://" & text1.text
  Else
   MsgBox "je bent www vergeten"
  End If
End Sub

Dit werkt niet?

 

[stefanz]

nee dat werkt niet

 

[ErikBooy007]

Krijg je toevallig een error? Zo kunnen wij er ook weinig mee, als je alleen zegt het werkt niet.

 

[stefanz]

ja een error
hij geeft aan dat dit tukje niet klopt
If Text1.Text.contains("www") Then

 

[ErikBooy007]

Oeps,

VB6 hè? Zoals Vegras al zei o) moet je dan inderdaad inStr gebruiken.

Misschien dat dit beter werkt:

If inStr(Text1.Text, "www") Then

Wellicht werkt dit beter.

 

[stefanz]

heel erg bedankt