Visual Basic.NET - Como evitar que un textboxt con multiline agarre el focus al pasar por encima?

   
Vista:

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder