Hola ando buscando una funcion api sino me equivoco que lo q hace es q al tocar el boton "minimizar" en vez de ir a la barra comun de abajo se coloque donde esta la hora (barra de tareas sino me equivoco)
Me podrian dar una mano con esto??
Desde ya gracias :)
Pues si hubieras buscado un poco... weno es igual aki te lo dejo:
---> MÓDULO <---
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
---> FORMULARIO <---
Private Sub Picture1_Click()
Iconito "Texto", Picture1
Form1.Hide
End Sub
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
Form1.Show
BorrarIconito
ElseIf msg = WM_RBUTTONUP Then
Form1.Show
BorrarIconito
End If
End Sub
Tienes q usar una imagen .ICO ;)
Muchas gracias :). Lo busq pero no lo encontre, no sabia con q palabras buscar ya q si ponia API me aperecen 10mil cosas xD
bueno en fin gracias
Pues se llama tray icon, por si neesitas mas info sobre el ;)
ya lo probe y funciona de esta manera. Tengo un picture box y cuando hago clcik se va a la barra de tareas donde esta el reloj (eso esta perfecto) pero no se podria hacer que en vez de un picture box u otro elemento se valla a la barra cuando toco "minimizar" ??
nose si se entiende, resumen: osea toco el boton minimizar y q se oculte en la barra de tareas (donde esta el reloj).
Saludos :)
Pues claro:
Private Sub Form_Resize()
If Me.WindowState = 1 Then
'Aqui llamas a la funcion desead
End If
End Sub
Donde esta el comentario llamas al picture1_click, me parece q es...
1S4ludo
tienes popr ahi un ocx que te lo hace todo con un par de comandos
Man busca en el foro, mira en la 2º pagina esta posteado esto y por mi -> Click aca (http://foro.elhacker.net/index.php/topic,158879.0.html)
Es un modulo que te facilita el uso del Systray y el BallonToolTip y tambien hay otro modulo que facilita el uso del CommonDialog
PD: Vos jugas CS 1.5 ???
Sancho.Mazorka :P
subclasificando la ventana puedes hacerlo sin usar un picture ni nada mas.
Cita de: Sancho.Mazorka en 31 Marzo 2007, 02:22 AM
Man busca en el foro, mira en la 2º pagina esta posteado esto y por mi -> Click aca (http://foro.elhacker.net/index.php/topic,158879.0.html)
Es un modulo que te facilita el uso del Systray y el BallonToolTip y tambien hay otro modulo que facilita el uso del CommonDialog
PD: Vos jugas CS 1.5 ???
Sancho.Mazorka :P
Fijate q en ese post no me funcionaron los links.. solo uno de modCDBox pero los otros no. Puedes revisarlos?? saludos :)
PD: No juego al CS, por??