[VB6] Zoeken in textbox of een bepaalde letter in voorkomt

[Verwijderd]

Om mijn programma correct te laten werken, moet ik weten of een bepaalde letter in een bepaalde textbox staat. Wanneer er voorbeeld "W" in "04W"voorkomt dan moet hij een bepaalde code uitvoeren. Wanneer er een "Z" voorkomt dan moet er een andere code worden uitgevoerd.
Hoe zou ik dit probleem kunnen oplossen, ik dacht aan volgende code, maar deze werkt natuurlijk niet:

code:

If Text1.Text like "%W%" Then
...
Else
...
End If

Kan iemand me helpen??

[ Voor 7% gewijzigd door Verwijderd op 17-08-2004 16:29 ]

[mulder]

InStr

[Verwijderd]

Blijkbaar werkt het wel met volgende code:

code:

If Text1.Text like "*W*" then
...
Else
...
End

Sorry, voor de last

[DPLuS]

Ik zou toch voor InStr gaan, daar deze functie iets sneller is dan Like...

[Paling1]

Ik zou ook een 'Select case' gebruiken i.p.v. een 'If -Then-Else'. Dat is vooral makkelijk als je meerdere mogelijkheden wilt inbouwen:

code:

Select 

Case Instr(textbox1.text, "W")
   **code**

Case Instr(textbox1.text, "Z")
   **code**

End Select

Weet niet of dit zo werkt, volgens mij mis ik nog iets na "Select". Is effe uit mijn hoofd....('t is al weer laat enzo... )

[Verwijderd]

Dan neem ik deze over, ben totaal geen krak hoor in het programmeren maar is een toffe hobby.
Ik zit nog met een klein probleempje. Is het mogelijk om een variabele in een textbox te plaatsen: voorbeeld, je hebt 5 textboxen
textbox1
textbox2
textbox3
textbox4
textbox5
Is het dan mogelijk om die cijfers te veranderen door een variable, zoals dit

code:

i = 1
For index = 0 To 4
      textbox(i).text = ...
      i = i + 1
Next

Dus kun je die cijfers veranderen door een variabele waardoor het dan mogelijk wordt om met een lus te werken?

[Verwijderd]

Verwijderd schreef op 17 augustus 2004 @ 16:49:
Dan neem ik deze over, ben totaal geen krak hoor in het programmeren maar is een toffe hobby.
Ik zit nog met een klein probleempje. Is het mogelijk om een variabele in een textbox te plaatsen: voorbeeld, je hebt 5 textboxen
textbox1
textbox2
textbox3
textbox4
textbox5
Is het dan mogelijk om die cijfers te veranderen door een variable, zoals dit

code:

i = 1
For index = 0 To 4
      textbox(i).text = ...
      i = i + 1
Next

Dus kun je die cijfers veranderen door een variabele waardoor het dan mogelijk wordt om met een lus te werken?

Als ik je goed begrijp wil je in verschillende textboxen, variabelen weergeven.

code:

i=1
For index = 0 To 4
      Textbox(i).Text = i
      i=i+1
Next index

In dit geval wordt in Textbox1 het getal 1 weergegeven, Textbox2 het getal 2 enz....

[Verwijderd]

Verwijderd schreef op 17 augustus 2004 @ 17:09:
[...]


Als ik je goed begrijp wil je in verschillende textboxen, variabelen weergeven.

code:

i=1
For index = 0 To 4
      Textbox(i).Text = i
      i=i+1
Next index

In dit geval wordt in Textbox1 het getal 1 weergegeven, Textbox2 het getal 2 enz....

Met deze methode werkt dit niet hoor in VB6
volgende foutmelding: sub or fuction not definied waarbij dat hij de fout geeft bij Textbox(i)

[Devion]

code:

 Select case JouwTextBox
        case like "%W%":
               ' Je code...
        case like "%Z%":
               ' Je andere code
        case else
               ' Mocht W of Z niet voorkomen....
 End select

En voor textbox arrays..

code:

 Dim intCount as integer

 For intCount = 0 to textbox.count -1
        textbox(intCount).text = "timer waarde: " & timer 
 Next ' intCount <- next zonder var is sneller als met var.

Met deze methode werkt dit niet hoor in VB6
volgende foutmelding: sub or fuction not definied waarbij dat hij de fout geeft bij Textbox(i)

Textbox moet natuurlijk wel bestaan he? maw: veranderen naar de objectnaam. TxtTextbox of iets dergelijks.

[ Voor 28% gewijzigd door Devion op 18-08-2004 09:49 . Reden: Reply op quote erbij. ]

[Verwijderd]

Devion schreef op 18 augustus 2004 @ 09:48:

code:

 Select case JouwTextBox
        case like "%W%":
               ' Je code...
        case like "%Z%":
               ' Je andere code
        case else
               ' Mocht W of Z niet voorkomen....
 End select

En voor textbox arrays..

code:

 Dim intCount as integer

 For intCount = 0 to textbox.count -1
        textbox(intCount).text = "timer waarde: " & timer 
 Next ' intCount <- next zonder var is sneller als met var.

[...]


Textbox moet natuurlijk wel bestaan he? maw: veranderen naar de objectnaam. TxtTextbox of iets dergelijks.

Aah nu begrijp ik het, je moet werken met de eigenschap index van een txtbox, ok hartelijk bedankt