События 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы