| SendMessage | |
| | |
| | |
| Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _ | |
| ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long | |
| Public Const LB_ITEMFROMPOINT = &H1A9 | |
| Diese Prozedur gilt nur für Excel (MouseMove oder | |
| Private Sub Form_Load() | Click zeigen keine Wirkung; außerdem gibt es keinen | |
| With List1 | "ToolTipText"): | |
| .AddItem "Walter P.K. Smithworthy, III" | Private Sub lstDrucken_DblClick(ByVal Cancel As _ | |
| .AddItem "Alicia May Sue McPerson-Pennington" | MSForms.ReturnBoolean) | |
| End With | With lstDrucken | |
| End Sub | If (.ListIndex >= 0) Then | |
| .ControlTipText = .List(.ListIndex) | |
| Private Sub List1_MouseMove(Button As Integer, _ | Else | |
| Shift As Integer, X As Single, Y As Single) | .ControlTipText = "" | |
| Dim lxPoint As Long | End If | |
| Dim lyPoint As Long | End With | |
| Dim lIndex As Long | End Sub | |
| | |
| If Button = 0 Then | | |
| lxPoint = CLng(X / Screen.TwipsPerPixelX) | | |
| lyPoint = CLng(Y / Screen.TwipsPerPixelY) | | |
| With List1 | | |
| lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, ByVal ((lyPoint * 65536) + lxPoint)) | |
| If (lIndex >= 0) And (lIndex <= .ListCount) Then | | |
| .ToolTipText = .List(lIndex) | | |
| Else | | |
| .ToolTipText = "" | | |
| End If | | |
| End With | | |
| End If | | |
| End Sub | | . |
| | |
zurück