Bepaald woord in textbox = actie

[HellupUandMe]

Ik wil zeg maar dat als een textbox een bepaald woord bevat dan moet er iets gebeuren dus:

select case woord wat in textbox1.text zou kunnen staan
case "paard"
msgbox "Je hebt zojuist een zin getypt waar het woord paard in voor
komt"
case "boom"
msgbox "Je hebt zojuist een zin getypt waar het woord boom in voor
komt"
end select

 

[CoD_NL]

InStr() of iets dergelijks kun je daarvoor in VB gebruiken.

 

[Pizara]

Instr() is de juiste methode om woorden te vinden binnen een string. Mocht je de Select Case methode willen, ziet ie er ongeveer zo uit.

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            Dim GevondenWoord As String = Nothing
            Dim GetypteZin As String = TextBox1.Text.ToLower
            Select Case GetypteZin IsNot Nothing

                Case GetypteZin.Contains("paard")
                    GevondenWoord = "paard"
                Case GetypteZin.Contains("boom")
                    GevondenWoord = "boom"
            End Select
            If GevondenWoord Is Nothing Then Exit Sub
            MsgBox("Je hebt zojuist een zin getypt waar het woord " & GevondenWoord & " in voor komt")
        End If
    End Sub

 

[huijb]

Topictitel aangepast, zegt niets over je probleem.

 

[huijb]

@HellupUandMe Je begeeft je op het randje met de opmerking die je zojuist zelf verwijderd heb. Ik probeer jouw probleem, met een goede topictitel onder de aandacht te brengen en dan kom jij met zo'n opmerking. Je moet nog veel leren.

 

[HellupUandMe]

@HellupUandMe Je begeeft je op het randje met de opmerking die je zojuist zelf verwijderd heb. Ik probeer jouw probleem, met een goede topictitel onder de aandacht te brengen en dan kom jij met zo'n opmerking. Je moet nog veel leren.

Waarom denk je dat ik hem zelf verwijderd heb?