Welcome Serena Central users! CLICK HERE
The migration of the Serena Central community is currently underway. Be sure to read THIS MESSAGE to get your new login set up to access your account.
Former Member Absent Member.
Absent Member.
257 views

[archive] system tray

[Migrated content. Thread originally posted on 23 March 2010]

Estoy tratando de averiguar cómo crear un System Tray usando las API de Windows y no puedo entender la lógica en COBOL para saber cómo hacerlo. ¿Puede alguien tal vez me ayude con la conversión de este código en Visual Basic

1. 'user defined type required by Shell_NotifyIcon API call
2. Public Type NOTIFYICONDATA
3. cbSize As Long
4. hwnd As Long
5. uId As Long
6. uFlags As Long
7. uCallBackMessage As Long
8. hIcon As Long
9. szTip As String * 64
10. End Type

1. 'constants required by Shell_NotifyIcon API call:
2. Public Const NIM_ADD = &H0
3. Public Const NIM_MODIFY = &H1
4. Public Const NIM_DELETE = &H2
5. Public Const NIF_MESSAGE = &H1
6. Public Const NIF_ICON = &H2
7. Public Const NIF_TIP = &H4
8. Public Const WM_MOUSEMOVE = &H200
9. Public Const WM_LBUTTONDOWN = &H201 'Button down
10. Public Const WM_LBUTTONUP = &H202 'Button up
11. Public Const WM_LBUTTONDBLCLK = &H203 'Double-click
12. Public Const WM_RBUTTONDOWN = &H204 'Button down
13. Public Const WM_RBUTTONUP = &H205 'Button up
14. Public Const WM_RBUTTONDBLCLK = &H206 'Double-click
15.
16. Public Declare Function SetForegroundWindow Lib "user32" _
17. (ByVal hwnd As Long) As Long
18. Public Declare Function Shell_NotifyIcon Lib "shell32" _
19. Alias "Shell_NotifyIconA" _
20. (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
21.
22. Public nid As NOTIFYICONDATA
0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.