Como parar el efecto??
Publicado por Diego (3 intervenciones) el 29/07/2002 18:48:10
Con el siguient código mi programa reacciona cuando hago doble clic sobre el icono q he creado al lado del reloj de windows.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Result As Long
Dim msg As Long
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_LBUTTONDBLCLK
Form2.Show
End Select
End Sub
Mi objetivo es mostrar Form2 y poder trabajar con el, pero el resultado es q aparece Form2 parpadeando y sin reaccionar al los eventos del teclado hasta q no pincho sobre él con el ratón.
¿Cómo quito ese efecto y puedo cargar normal Form2?
Por favor, agradecería su ayuda.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Result As Long
Dim msg As Long
If Me.ScaleMode = vbPixels Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_LBUTTONDBLCLK
Form2.Show
End Select
End Sub
Mi objetivo es mostrar Form2 y poder trabajar con el, pero el resultado es q aparece Form2 parpadeando y sin reaccionar al los eventos del teclado hasta q no pincho sobre él con el ratón.
¿Cómo quito ese efecto y puedo cargar normal Form2?
Por favor, agradecería su ayuda.
Valora esta pregunta


0