Nochmal Textbox

07/10/2011 - 19:29 von Lothar Geyer | Report spam
Ich möchte in einer Nicht-Multiline-Textbox wissen, bei welchem Zeichen
sich die Maus befindet - ohne dass ich den Cursor dort hinsetzen muss.
Mit den mir bekannten SendMessage-Funktionen klappt das nicht.
Weiß jemand, wie das geht?

Lothar Geyer
 

Lesen sie die antworten

#1 W. Wolf
08/10/2011 - 15:17 | Warnen spam
Hallo Lothar,
"Lothar Geyer" schrieb im Newsbeitrag
news:
Ich möchte in einer Nicht-Multiline-Textbox wissen, bei welchem Zeichen
sich die Maus befindet - ohne dass ich den Cursor dort hinsetzen muss. Mit
den mir bekannten SendMessage-Funktionen klappt das nicht.
Weiß jemand, wie das geht?

Lothar Geyer




Was meinst Du mit Maus? Den Eingabecursor? Dann verwende einfach:

Debug.print Text1.Selstart

Meinst Du hingegen den Mauszeiger, der sich über der Textbox befindet?
Dann versuche folgendes:

Private Sub Form_Load()
Text1.Text = "Das ist ein einzeiliger Mustertext!"
Me.Font = Text1.Font
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Dim l(1) As Single
For i = 0 To Len(Text1.Text) - 1
l(0) = Me.TextWidth(Left$(Text1.Text, i))
l(1) = Me.TextWidth(Left$(Text1.Text, i + 1))
If X >= l(0) And X < l(1) Then
Debug.Print "Zeichen " & i + 1 & ": " & Mid$(Text1.Text, i + 1, 1)
Exit sub
End If
Next i
End Sub

Oder meinst Du was ganz anderes?

Schönen Gruß
W. Wolf

Ähnliche fragen