Es que ejecutando este sencillo código, pareciera que sí.
Private KeyControl as boolean
Public Sub TextBox1_KeyPress()
If Key.Control = True Then
KeyControl = True
Endif
End
Public Sub TextBox1_KeyRelease()
If Key.Control = False Then
KeyControl = False
Endif
End
Public Sub TextBox1_MouseWheel()
If KeyControl = True Then
Select Case Mouse.Orientation
Case 1
Message.Info("Hola")
Case 2
Message.Info("Chau")
End Select
Endif
End
Public Sub TextBox1_KeyPress()
If Key.Control = True Then
KeyControl = True
Endif
End
Public Sub TextBox1_KeyRelease()
If Key.Control = False Then
KeyControl = False
Endif
End
Public Sub TextBox1_MouseWheel()
If KeyControl = True Then
Select Case Mouse.Orientation
Case 1
Message.Info("Hola")
Case 2
Message.Info("Chau")
End Select
Endif
End
O tal vez yo esté equivocándome. ¿A ustedes les funciona bien?
Edito: El problema va en que, moviendo la rueda del mouse tanto para arriba como para abajo, siempre muestra "Chau"
Saludos compañeros