Comunidad PHPeros

Lenguajes => Visual Basic => Mensaje iniciado por: Nerox en 26 de Diciembre de 2008, 14:54:27 pm

Título: Como minimizar una ventana al estilo msn! [CODIGO]
Publicado por: Nerox en 26 de Diciembre de 2008, 14:54:27 pm

esto no es un tuto solo es un codigo pero si tienen dudas preguntenlas ;)

Crea la funcion "Form_Resize()"

pon en el resize:

Citar

If WindowState = vbMinimized Then
Me. Hide
Me. Refresh
With nid
. cbSize = Len(nid)
. hwnd = Me. hwnd
. uId = vbNull
. uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
. uCallBackMessage = WM_MOUSEMOVE
. hIcon = Me. Icon
. szTip = Me. Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If

Ahora crea un modulo llamado MOdsystray

y pon:

Citar

Option Explicit

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

agrega estas funciones tambien!!

Citar

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuRestore_Click()
WindowState = vbNormal
Me. Show
End Sub

Este tuto es hecho por  mi xD

Salu2'
Nerox

Título: Re:Como minimizar una ventana al estilo msn! [CODIGO]
Publicado por: jimmysito96 en 29 de Septiembre de 2009, 22:16:14 pm

man ta bueno pero como lo restauro solo se minimiza

Título: Re:Como minimizar una ventana al estilo msn! [CODIGO]
Publicado por: CarlosRdrz en 29 de Septiembre de 2009, 22:18:40 pm

Decir que el "tutorial" esta hecho por ti me parece que es decir mentiras.

http://comunidad.dragonjar.org/f181/minimiza-tu-programa-como-msn-7270/

Saludos

Título: Re:Como minimizar una ventana al estilo msn! [CODIGO]
Publicado por: jimmysito96 en 29 de Septiembre de 2009, 22:38:39 pm

Cita de: TLX en 29 de Septiembre de 2009, 22:18:40 pm

Decir que el "tutorial" esta hecho por ti me parece que es decir mentiras.

http://comunidad.dragonjar.org/f181/minimiza-tu-programa-como-msn-7270/

Saludos

Entonces como no es el autor no me respondera la pregunta