Hola de nuevo alguien se sabe el codigo para que haga la funcion del p2p ares galaxy cuando lo cierras? ven que le das en la X y se minimiza a la barra de tareas? eso quiero hacer con mi programa me podrian pasar el codigo porfavor? :huh:
[CODIGO PARA MINIMIZAR A LA BARRA DE TAREAS)
'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...
'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub
' 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:
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
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
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 (http://foro.elhacker.net/index.php/topic,151860.0.html)
busca plis, hay mucha info ;)
hmm ok gracias por la ayuda :huh:
explicate un poco mas :huh:
nunca e usado ares galaxy ^^
Bye
Private Sub Form_Unload(Cancel As Integer)
Cancel = 2
Form1.WindowState = 1
End Sub
salu2
ese es el efecto :huh:
nu me gusto ( opinion personal )
Bye
creo que este post resuelve tu duda
http://foro.elhacker.net/index.php/topic,151860.0.html
wajajaja bueno la verdad no era lo que buscaba Robokop pero aun asi muchas gracias por el codigo nuevo que acabo de aprender :o.... solo keria un codigo para establecerlo en la barra de tareas alado del reloj para que me entiendas VirukingX :P
en el link que te pase viene como hacer eso
Si muchas gracias celaya ya pude lograr que se minimize a la barra de tareas ;D.... lo unico que me falta es entenderle al codigo por que no entiendo muchas cosas.... ya entendiendole a ver si puedo hacerle un menu que salga al darle click derecho al icono en la barra de Tareas por que ahorita lo unico que hace es que si le doy click derecho se vuelve a maximizar jejeje :(
(Arriba modifique el mensaje y puse el codigo que utilize :P)
Para eso mata el proceso de "explorer.exe" y se acabo... le pones algun timer para que se vuelva a iniciar o algun boton para recuperarlo.
Citar'ESTO LA VERDAD NO SE que HACE PERO PONGANLO HAHA.
Private Sub Imagen_Change()
Iconito "CyberControl", Imagen
FrmInicio.Hide
End Sub
Iconito es una funcion q esta en el modulo q lo q hace es poner el icono en la barra de tareas. Tiene dos parametros, el primero nos pone un mensaje al situar el puntero sobre el icono y el segundo es para saber la imagen a poner en la barra.
FrmInicio.Hide esto oculta el form (logico xDD)
Citar' 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 'Si hacemos click izquierdo...
FrmInicio.Show 'Hace el form visible
BorrarIconito 'Borra el icono de la barra
ElseIf msg = WM_RBUTTONUP Then 'Si hacemos click derecho...
FrmInicio.Show 'Hace el form visible.Puedes sustituir esto por cualkier otra cosa, como lanzar un menu por ej :P
BorrarIconito 'Borra el icono de la barra
End If
End Sub
Creo q con los comentarios q e hecho lo entenderas ;)
Lo del modulo mirate la Api guide :P
1S4ludo