elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Al minimizar k se convierta en un notyicon
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Al minimizar k se convierta en un notyicon  (Leído 3,228 veces)
Lambda


Desconectado Desconectado

Mensajes: 371



Ver Perfil WWW
Al minimizar k se convierta en un notyicon
« en: 9 Junio 2006, 20:06 pm »

weno lo del icono ya lo tengo pero lo k quiero eske al minimizarse el formulario no se minimize a la barra d tareas o sea k se haga un form1.hide y k el icono apareza dnde ta el reloj

alomejor no me e explicado bien
xD


saludos


En línea

Lambda


Desconectado Desconectado

Mensajes: 371



Ver Perfil WWW
Re: Al minimizar k se convierta en un notyicon
« Respuesta #1 en: 9 Junio 2006, 20:12 pm »

weno ya lo solucione xD y sin buskar en google :P xD


Código:
Private Sub Form_Resize()
If form1.WindowState = "1" Then
form1.Hide
NotifyIcon.SetEnabled True
End If
End Sub


En línea

renga73

Desconectado Desconectado

Mensajes: 53


Ver Perfil
Re: Al minimizar k se convierta en un notyicon
« Respuesta #2 en: 10 Junio 2006, 03:41 am »

Puse eso y no me funciona me tira error en la linea: NotifyIcon.SetEnabled True
Como hiciste??
En línea

_Sergi_


Desconectado Desconectado

Mensajes: 842



Ver Perfil
Re: Al minimizar k se convierta en un notyicon
« Respuesta #3 en: 10 Junio 2006, 03:48 am »

A mi tampoco me funciona (en VB 6.0)

Lo más probable es que se trate de otra versión de VB o que haya mucho más codigo que él no ha posteado.
En línea

Proyecto de Ingeniero
Lambda


Desconectado Desconectado

Mensajes: 371



Ver Perfil WWW
Re: Al minimizar k se convierta en un notyicon
« Respuesta #4 en: 10 Junio 2006, 13:31 pm »

el notifyicon es un control ocx k le e añadido al programa xD

lo kitais y poneis lo k kiere k haga cuando se minimize

saludos
En línea

renga73

Desconectado Desconectado

Mensajes: 53


Ver Perfil
Re: Al minimizar k se convierta en un notyicon
« Respuesta #5 en: 10 Junio 2006, 17:54 pm »

lambda eso es para .net o VB6, y en todo caso me podrias pasar NotifyIcon.ocx q no la puedo conseguir por ningun lado
En línea

_Sergi_


Desconectado Desconectado

Mensajes: 842



Ver Perfil
Re: Al minimizar k se convierta en un notyicon
« Respuesta #6 en: 10 Junio 2006, 21:28 pm »

Si quieres que te ayudemos, necesitamos NotifyIcon.ocx

Un saludo.
En línea

Proyecto de Ingeniero
Red Mx
Rojito
Colaborador
***
Desconectado Desconectado

Mensajes: 3.649


Viva México Cabrones...


Ver Perfil WWW
Al minimizar k se convierta en un icono
« Respuesta #7 en: 11 Junio 2006, 00:46 am »

Actulisado el 10/07/06

Caballeros ese tema ya lo respondi una ves es muy facil espero que alguien gurde este post con candado ya que es algo muy recurrido.


Primero nesesitamos el control SysTray.ocx y un ejemplo que mejor que mi reproductor de musica jajaja publisidad bueno descargatelo ahi tiene el control que ocuparemos.

Descargar


ya que tienes el control no te preocupes mi empaquetado lo registra

se econtrara en la carpeta por defalut es

c:\Archivos de programa\Red Music



listo ta gueno abre tu VB de ahi en agregar componentes agrega el "systray icon control" agregalo de ahi pegale uno al form de ahi en la propiedades fijate bien en tray tip pon el nombre de tu proyecto asi cuando este el icono junto al reloj al pasar por ahi diga "EL nombre de tu proyecto" bueno si quieres que el icono se vea mientras ejecutas el  programa la propiedad In tray cabiala a True a en tray icon dale la ruta de tu icono

para que al minimizar se vea solo has esto mmm ponemos un timer con intervalo de 100 ahi ponemos lo siguiente


Código:
Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then
cSysTray1.InTray = True
End If
End Sub



listo para ocultar el icono pon en ese mismo timer

Código:
If Form1.WindowState = 0 or Form1.WindowState = 2 Then
cSysTray1.InTray = false
End If
End Sub
Saludos Red Mx!!!!
« Última modificación: 11 Julio 2006, 21:12 pm por Red Mx » En línea

Desarrollar Malware Es Causa De Cancer...
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Al minimizar k se convierta en un notyicon
« Respuesta #8 en: 11 Junio 2006, 01:45 am »

Si queres evitar el uso del OCX podes usar el siguiente codigo.
En un modulo pones:
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

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

Y en el evento MouseDown de un PictureBox (que contiene la imagen que va a aparecer en la barra de tareas) pones:
NOTA: La imagen tiene que ser .ICO
Código:
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."
    ElseIf msg = WM_RBUTTONUP Then
        MsgBox "Boton Derecho un click."
    End If
End Sub

Para usarlo ponemos simplemente:
Código:
Iconito "Texto", Picture1
[/cide]

Y para quitarlo pones:
BorrarIconito
Código:

Es importante que al cerrar el programa se borre el icono ya que sino va a quedar visible (al pasar el mouse desaparece, pero es mejor borrarlo).

Espero que te sirva, saludos.-
En línea

kuki06

Desconectado Desconectado

Mensajes: 20


Ver Perfil
Re: Al minimizar k se convierta en un notyicon
« Respuesta #9 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..
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como crear un agoritmo que convierta una expresion postfija a prefija??
Programación C/C++
milber10 0 2,402 Último mensaje 16 Noviembre 2011, 21:44 pm
por milber10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines