События MouseMove для элемента Combobox - VB
Формулировка задачи:
Здравствуйте!
Возник вопрос, как организовать событие при наведении указателя мыши на элемент combobox? Дело в том, что для combobox в visual basic нет события MouseMove, как для других элементов. Может можно самому организовать такое событие, я в программировании не силен(
Решение задачи: «События MouseMove для элемента Combobox»
textual
Листинг программы
Option Explicit Public Sub ViewInfo() Dim I As Long lblInfo.Caption = vbNullString For I = 0 To cboTestCombo.UBound lblInfo.Caption = lblInfo.Caption & cboTestCombo(I).Text & "; " Next End Sub Public Sub HideInfo() lblInfo.Caption = vbNullString End Sub Private Sub Form_Load() LoadToComboAndHook End Sub Private Sub LoadToComboAndHook() Dim fNum As Integer, I As Long, Item As String fNum = FreeFile Open App.Path & "\Words.txt" For Input As fNum Do Until EOF(fNum) Line Input #fNum, Item For I = 0 To cboTestCombo.UBound cboTestCombo(I).AddItem Item Next Loop For I = 0 To cboTestCombo.UBound cboTestCombo(I).ListIndex = Int(Rnd * cboTestCombo(I).ListCount) Hook cboTestCombo(I).hwnd Next Close fNum End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Dim I As Long For I = 0 To cboTestCombo.UBound UnHook cboTestCombo(I).hwnd Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д