[CODIGO PARA MINIMIZAR A LA BARRA DE TAREAS)
Código:
'CON ESTO HAGO QUE LA [X] SE ANULE Y HAGA UNA LLAMADA A IMAGEN_CHANGE.
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Imagen_Change
DESPUES SE CREA UN PICTUREBOX EN EL FORM1 LE CAMBIAS EL VISIBLE A FALSE Y ESCOGES UNA IMAGEN QUE SEA .ICO Ó . CUR...
Código:
'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub
Código:
' ESTO TAMPOCO SE QUE HACE PEROE S PARTE DEL CODIGO..
Private Sub Imagen_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Integer
msg = X / Screen.TwipsPerPixelX
If msg = WM_LBUTTONDBLCLK Then
FrmInicio.Show
BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
FrmInicio.Show
BorrarIconito
End If
End Sub
DESPUES EN UN MODULO EL SIGUIENTE CODIGO:
Código:
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, ByRef lpData As NOTIFYICONDATA) As Long
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
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1 'Borrar si no se quiere animar la imagen
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONUP = &H205
Dim IC As NOTIFYICONDATA
Código:
Public Sub Iconito(Tip As String, Foto As PictureBox)
IC.cbSize = Len(IC)
IC.hwnd = Foto.hwnd
IC.uID = 1&
IC.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
IC.uCallbackMessage = WM_LBUTTONDOWN
IC.hIcon = Foto.Picture
IC.szTip = Tip & Chr(0)
Shell_NotifyIcon NIM_ADD, IC
End Sub
Código:
Public Sub BorrarIconito()
Shell_NotifyIcon NIM_DELETE, IC
End Sub
Si alguien podria explicarme el funcionamiento del codigo me harian feliz ... Por cierto este codigo lo puso: E0N y el que me dio el link fue Celaya asi que gracias a los dos y a losdemas que tambien ayudaron
Aqui les dejo el link:
http://foro.elhacker.net/index.php/topic,151860.0.html