Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: cobein en 12 Diciembre 2008, 22:10 PM
El codigo para manejar los eventos del systray esta mal, por eso.
Cita de: seba123neo en 13 Diciembre 2008, 15:55 PM
yo nunca tuve problemas,proba usar la clase de cobein cSystray que es re facil...
saludos.
Public Sub Eventos(X As Single)
Dim msg As Long
If (Form1.ScaleMode = vbPixels) Then
msg = X
Else
msg = X / Screen.TwipsPerPixelX
End If
Select Case msg
Case WM_RBUTTONUP
Call SetForegroundWindow(Form1.hwnd)
'Si hacemos Click con el boton derecho mostramos el popup Menu
Form1.PopupMenu Form1.menu
Case WM_LBUTTONUP
Call SetForegroundWindow(Form1.hwnd)
'Si hacemos Click con el boton izquierdo mostramos el popup Menu
Form1.PopupMenu Form1.menu
End Select
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Eventos X
End Sub