Also ich möchte das etwas bestimmtes passiert, jenachdem ob ich das Mausrad auf oder ab scrolle. Aber ein MouseWheelUp-Event bzw.
MouseWheelDown-Event gibts ja nich und Getasynkey erfasst das auch nich.
Private Sub Form3_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta.ToString = "120" Then
MsgBox("Up")
Else
MsgBox("Down")
End If
End Sub
Gruss
Hastling
Ok, danke funktioniert alles.
@Hastling: erstens warum in einen String konvertieren und nicht direkt mit einer Zahl vergleichen? Und zweitens soweit ich weiß muss das nicht 120 sein, sondern ist je nach Einstellungen...
also würde ich das eher so machen:
VB.NET-Quellcode
PrivateSub Form3_MouseWheel(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) HandlesMe.MouseWheel
If e.Delta >0Then
MsgBox("Up")
Else
MsgBox("Down")
EndIf
EndSub
Ich wollte auch mal ne total überflüssige Signatur:
---Leer---