3 svar · 238 visningar · startad av joel_joel88
Hej jag håller på att göra ett atecknings program och jag undrar hur man gör en sökfunktion som ett visst ord i en text.
t.ex som i word när du ska sök efter något så markerar den
ordet som man har sökt efter.
Om textrutan heter Text1 kan du använda
Dim i As Integer, hitta As String
hitta = "din söksträng"
i = InStr(1, Text1.Text, hitta)
If i > 0 Then
Text1.SelStart = i
Text1.SelLength = Len(hitta)
Text1.SetFocus()
Else
MsgBox "Texten " & hitta & " kunde inte hittas", vbCritical
End If
Tack nexus86!
koden funkade i det stora hela men jag fick bort dom här () vid text1.setfocus och då funkade det.
markeringen markerade inte hela ordet. så jag gjorde så här så att det skulle funka att markera hela ordet:
Dim i As Integer, hitta As String
hitta = "din söksträng"
i = InStr(1, Text1.Text, hitta)
If i > 0 Then
Text1.SelStart = i - 1
Text1.SelLength = Len(hitta)
Text1.SetFocus()
Else
MsgBox "Texten " & hitta & " kunde inte hittas", vbCritical
End If
Hållt på med php för mycket. :r Därav felen. Men du lyckades ju fixa till dom själv så. :)