Denna kod gör att jag tvingas skriva in stor bokstav vid vissa sökningar. Exempelvis Åke Persson

Skulle vilja kunna skriva åke eller persson
Hur gör jag ??

Private TargetPosition As Integer

' Find the text.
Private Sub cmdFind_Click()
FindText 1
End Sub
Private Sub FindText(ByVal start_at As Integer)
Dim pos As Integer
Dim target As String

target = txtTarget.text
pos = InStr(start_at, txtBody.text, target)
If pos > 0 Then
' We found it.
TargetPosition = pos
txtBody.SelStart = TargetPosition - 1
txtBody.SelLength = Len(target)
txtBody.SetFocus
Else
' We did not find it.
MsgBox "Inga fler hittades."
txtBody.SetFocus
End If
End Sub

' Find the next occurrance of the text.
Private Sub cmdFindNext_Click()
FindText TargetPosition + 1
End Sub

Private Sub txtBody_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
txtBody.Locked = True
End If
End Sub

Private Sub txtTarget_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
txtTarget.Locked = False
End If
End Sub


Mvh
Kenneth

Hejsan

Kan du inte göra allt till stora (eller små) bokstäver vid jämförelsen ?

/Johan

Hur menar Du då kodmässigt.

Mvh
Kenneth

Kika på UCase() i hjälpen eller använd sista parametern i InStr-funktionen (vbTextCompare)


//
Janne

ok
tack