Al minimizar k se convierta en un notyicon

[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]

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

[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:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir


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

[sircid]

aun nadie sabe como hacer esto?

[Red Mx]

Vi un ejemplo en la web de microsoft buscale ahi.