Al minimizar k se convierta en un notyicon

Iniciado por Lambda, 9 Junio 2006, 20:06 PM

0 Miembros y 1 Visitante están viendo este tema.

NYlOn

1ro: Es solo 1 modulo, que tiene menos de 40 lineas.
2do: Ese 'algo' que le pones al programa es un control OCX. La consecuencia de agregar este OCX es que va a tener que estar junto al programa todo el tiempo, por lo que aumentara de tamaño y ensima vas a tener 2 archivos en vez de uno, lo que disminuye la comodiad.
3ro: Si no aplicas lo que aprendes, te vas a terminar olvidando de las cosas o directamente, no vas a aprender...

Red Mx

Cita de: kuki06 en 12 Junio 2006, 08:19 AM
Nose por que siempre que se resuelve una duda hay 2 opciones..

La larga  con 8 modulos y 300 lineas
y la otra de la corta pero poniendole "algo" al programa.. en fin xD..

PD: Red MX, el reproductor esta muy bueno la verdad..


Gracias !!!!


----------


yo pienso que con el ocx se me ase mas facil que con el modulo
Desarrollar Malware Es Causa De Cancer...

sircid

y como ago que cuando este minimizado me mande un mensaje como este:


karmany

NYlOn he probado tu código..

Estoy intentando que cuando se haga dobleclick en el icono se vuelva a mostrar el formulario..
No sé cómo lo tendrás tú, o si lo han probado los demás pero yo hago esto y no resulta:
Private Sub Form_Resize()
  If Form1.WindowState = "1" Then
    Form1.Hide
    Iconito "Ejemplo..", Picture1
  End If
End Sub

Con esto de arriba consigo que mi form1 se oculte y aparezca el icono. Hasta aquí bien..

Y luego para que cuando haga dobleclick en el icono, desaparezca el icono y aparezca mi form, hago esto otro:
Private Sub Picture1_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
    MsgBox "Boton Izquierdo doble click."
    Form1.Show
    Form1.WindowState = 0
    BorrarIconito
End If
End Sub


Todo lo demás del módulo lo he copiado bien.. El resultado es que el icono desaparece pero el formulario no aparece.. Se queda oculto.. Cómo has solucionado esto?? Gracias..

Red Mx

Que onda bueno no se si te sirva de mi manera es con el control .ocx

va un timer con intervalo de 100


Private Sub Timer1_Timer()
If WindowState = 1 Then
cSysTray1.InTray = True
End If
If WindowState = 0 Then
cSysTray1.InTray = False
End If
Timer1.Enabled = False
Timer1.Enabled = True
End Sub


con ese codigo manipulas el icono visible cuando se minimisa e oculto cuando se muestra el link del archivo .ocx ya esta actualisado de nuevo


Saludos Red Mx
Desarrollar Malware Es Causa De Cancer...

sircid


Red Mx

Vi un ejemplo en la web de microsoft buscale ahi.
Desarrollar Malware Es Causa De Cancer...