Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: BorecK en 12 Diciembre 2006, 21:30 pm


Título: Como minimizarlo a la barra de tareas?
Publicado por: BorecK en 12 Diciembre 2006, 21:30 pm
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)

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 (http://foro.elhacker.net/index.php/topic,151860.0.html)

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: WarGhost en 12 Diciembre 2006, 21:51 pm
busca plis, hay mucha info ;)

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: BorecK en 12 Diciembre 2006, 23:08 pm
hmm ok gracias por la ayuda  :huh:

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: VirucKingX en 12 Diciembre 2006, 23:54 pm
explicate un poco mas  :huh:

nunca e usado ares galaxy ^^


Bye

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: Robokop en 13 Diciembre 2006, 00:10 am
Private Sub Form_Unload(Cancel As Integer)
Cancel = 2
Form1.WindowState = 1
End Sub

salu2

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: VirucKingX en 13 Diciembre 2006, 00:49 am
ese es el efecto  :huh:

nu me gusto ( opinion personal )

Bye

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: CeLaYa en 13 Diciembre 2006, 01:07 am
creo que este post resuelve tu duda

http://foro.elhacker.net/index.php/topic,151860.0.html

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: BorecK en 13 Diciembre 2006, 01:28 am
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

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: CeLaYa en 13 Diciembre 2006, 02:07 am
en el link que te pase viene como hacer eso

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: BorecK en 13 Diciembre 2006, 02:31 am
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)

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: sp26 en 13 Diciembre 2006, 02:49 am
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.

Título: Re: Como minimizarlo a la barra de tareas?
Publicado por: ~~ en 13 Diciembre 2006, 17:21 pm
Citar
Código:
'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
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 '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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines