MOUSE WHEEL NUMA LISTBOX

PROGRAMADORVBNET 13/11/2025 06:03:01
#506164
Olá bom dia!
Alguém sabe como como fazer Mouse Wheel numa listbox?
Cordeais cumprimentos.
Vítor Teles.
WEBMASTER 13/11/2025 12:04:55
#506169
Olha, o que eu conheço nesse caso seria você usar subclasse no formulário, daria para fazer no controle/componente, mas na boa, mais prático trabalhar a nivel de form.
  
Private Const WM_MOUSEWHEEL As Integer = &H20A

Protected Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = WM_MOUSEWHEEL Then
        If TypeOf Me.ActiveControl Is ListBox Then
            Dim delta As Integer = CInt(m.WParam) >> 16
            Debug.WriteLine("Estou passando pelo Mouse Wheel com delta: " & delta)
        End If
    End If
    MyBase.WndProc(m)
End Sub
PROGRAMADORVBNET 13/11/2025 13:44:42
#506172
Obrigado WEbmaster Valeu !
Tópico encerrado , respostas não são mais permitidas
Voltar