Autor
|
Tema: Como puedo poner mi programa donde esta el reloj de windows... (Leído 2,196 veces)
|
|
H4NG3R
Desconectado
Mensajes: 13
|
usa este modulo: (no es mio esta especificado el autor i la fuente) '--------------------------------------------------------------------------------------- ' Module : modTray ' DateTime : 12/05/2005 21:38 ' Author : Carlos Alberto S. ' Purpose : System tray module with high resolution icon (Windows XP), balloon (with ' or without sound) and mouse event support for icon and balloon. ' Credits : ' ' (1) Frankie Miklos -aKa- PuPpY ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=54577&lngWId=1 ' (2) Jim Jose ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=59003&lngWId=1 ' (3) Aaron Spuler (for the code regarding LoadImage API - high resolution icon) ' http://www.spuler.us/ ' '---------------------------------------------------------------------------------------
Option Explicit
'API to load high resolution icon Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long Private Const LR_LOADFROMFILE = &H10 Private Const LR_LOADMAP3DCOLORS = &H1000 Private Const IMAGE_ICON = 1 'System tray Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const NIF_STATE = &H8 Private Const NIF_INFO = &H10 Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const NIM_SETFOCUS = &H3 Private Const NIM_SETVERSION = &H4 Private Const NIM_VERSION = &H5 Private Const WM_USER As Long = &H400 Private Const NIN_BALLOONSHOW = (WM_USER + 2) Private Const NIN_BALLOONHIDE = (WM_USER + 3) Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4) Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5) Private Const NOTIFYICON_VERSION = 3 Private Const NIS_HIDDEN = &H1 Private Const NIS_SHAREDICON = &H2 Private Const WM_NOTIFY As Long = &H4E Private Const WM_COMMAND As Long = &H111 Private Const WM_CLOSE As Long = &H10 Private Const WM_MOUSEMOVE As Long = &H200 Private Const WM_LBUTTONDOWN As Long = &H201 Private Const WM_LBUTTONUP As Long = &H202 Private Const WM_LBUTTONDBLCLK As Long = &H203 Private Const WM_MBUTTONDOWN As Long = &H207 Private Const WM_MBUTTONUP As Long = &H208 Private Const WM_MBUTTONDBLCLK As Long = &H209 Private Const WM_RBUTTONDOWN As Long = &H204 Private Const WM_RBUTTONUP As Long = &H205 Private Const WM_RBUTTONDBLCLK As Long = &H206
Public Enum bFlag NIIF_NONE = &H0 NIIF_INFO = &H1 NIIF_WARNING = &H2 NIIF_ERROR = &H3 NIIF_GUID = &H5 NIIF_ICON_MASK = &HF NIIF_NOSOUND = &H10 'turn the balloon bleep sound off End Enum
Private Type NOTIFYICONDATA cbSize As Long hwnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeoutAndVersion As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type
Public Enum TrayRetunEventEnum MouseMove = &H200 'On Mousemove LeftUp = &H202 'Left Button Mouse Up LeftDown = &H201 'Left Button MouseDown LeftDbClick = &H203 'Left Button Double Click RightUp = &H205 'Right Button Up RightDown = &H204 'Right Button Down RightDbClick = &H206 'Right Button Double Click MiddleUp = &H208 'Middle Button Up MiddleDown = &H207 'Middle Button Down MiddleDbClick = &H209 'Middle Button Double Click BalloonClick = (WM_USER + 5) 'Balloon Click End Enum
Public ni As NOTIFYICONDATA Public Sub TrayAddIcon(ByVal MyForm As Form, ByVal MyIcon As String, ByVal ToolTip As String, Optional ByVal bFlag As bFlag)
With ni .cbSize = Len(ni) .hwnd = MyForm.hwnd .uID = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallbackMessage = WM_MOUSEMOVE .hIcon = LoadImage(App.hInstance, MyIcon, IMAGE_ICON, 16, 16, LR_LOADFROMFILE Or LR_LOADMAP3DCOLORS) .szTip = ToolTip & vbNullChar End With Call Shell_NotifyIcon(NIM_ADD, ni)
End Sub
Public Sub TrayRemoveIcon()
Shell_NotifyIcon NIM_DELETE, ni End Sub
Public Sub TrayBalloon(ByVal MyForm As Form, ByVal sBaloonText As String, sBallonTitle As String, Optional ByVal bFlag As bFlag)
With ni .cbSize = Len(ni) .hwnd = MyForm.hwnd .uID = vbNull .uFlags = NIF_INFO .dwInfoFlags = bFlag .szInfoTitle = sBallonTitle & vbNullChar .szInfo = sBaloonText & vbNullChar End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
Public Sub TrayTip(ByVal MyForm As Form, ByVal sTipText As String)
With ni .cbSize = Len(ni) .hwnd = MyForm.hwnd .uID = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .szTip = sTipText & vbNullChar End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
Se ruega usen google . . .H4NG3R
|
|
|
En línea
|
|
|
|
HJZR4
Desconectado
Mensajes: 101
C0N0C1M13NT0
|
Otra opción sería usar el control SysTray.ocx :p
Suerte
|
|
|
En línea
|
Para aprender solo hay una solución: LeeR y Preguntar
|
|
|
Amerikano|Cls
Desconectado
Mensajes: 789
[Beyond This Life]
|
te doy mil gracias, ya veran el resultado de esta ayudita con mi programa, esperenlo muy pronto bye................
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Donde esta el debug? Windows 8 pro
Windows
|
rdzlcs
|
1
|
5,905
|
5 Julio 2013, 20:32 pm
por knario
|
|
|
¿Como puedo averiguar o sniffear donde guarda x programa su registro?
Dudas Generales
|
obito02
|
0
|
2,355
|
7 Febrero 2016, 07:08 am
por obito02
|
|
|
¿Cómo puedo averiguar si windows 7 está hibernado sin prender la notebook?
Windows
|
Morganizado
|
0
|
1,657
|
24 Enero 2018, 12:54 pm
por Morganizado
|
|
|
¿Como puedo cambiar donde dice Edicion de Windows?
Windows
|
XvXMonchoXvX
|
0
|
1,890
|
10 Marzo 2018, 18:23 pm
por XvXMonchoXvX
|
|
|
Cómo saber qué app o programa está gastando la batería de tu portátil en Windows
Noticias
|
wolfbcn
|
0
|
2,396
|
16 Enero 2019, 21:31 pm
por wolfbcn
|
|