Como evitar que un textboxt con multiline agarre el focus al pasar por encima?
Publicado por Nicolel (1 intervención) el 21/05/2016 17:22:34
Tengo un formulario muy largo con scrollbar, y cuando muevo la rueda del raton y el scrollbar se desplaza, a la que el puntero del raton toca un textboxt (el puntero cambia de "Flecha" a "I") el scrollbar se detiene hasta que saco el puntero del textboxt. Esto molesta mucho ya que tengo muchos textboxt con multiline y tengo que desplazar el scrollbar manualmente. Lei que podia usar un custom control propio con este codigo:
-------------
Pero no me funciona, ya que falta un send mesage o algo asi. Saben alguna forma de arreglar este codigo para que me funcione o como evitar que los textboxt me agarren el focus del puntero? Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Class CustomControl1
Inherits TextBox
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg ' WM_MOUSEWHEEL
Case &H20A, &H20E
' WM_MOUSEHWHEEL
If Me.ScrollBars = ScrollBars.None AndAlso Me.Parent IsNot Nothing Then
m.HWnd = Me.Parent.Handle
End If
' forward this to your parent
MyBase.WndProc(m)
Exit Select
Case Else
MyBase.WndProc(m)
Exit Select
End Select
End Sub
End Class
-------------
Pero no me funciona, ya que falta un send mesage o algo asi. Saben alguna forma de arreglar este codigo para que me funcione o como evitar que los textboxt me agarren el focus del puntero? Gracias.
Valora esta pregunta
0