- #21
M
Matjes
Bekanntes Mitglied
- Dabei seit
- 22.08.2001
- Beiträge
- 2.308
- Reaktionspunkte
- 0
Du fügst einfach für jede Textbox ein MoveMouse-Ereignis ein.
XXXXX ist durch den Namen der jeweiligen Textbox zu ersetzen.
Den Text, der Caption jeweils zugewiesen wird, paßt du mit einem sinnvollen Kommentar an.
Gruß Matjes
Code:
Private Sub XXXXX_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label1.Caption = Textbox Mouseover x: & X & y: & Y
End Sub
Den Text, der Caption jeweils zugewiesen wird, paßt du mit einem sinnvollen Kommentar an.
Gruß Matjes