Former Member Absent Member.
Absent Member.

[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
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
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
22. Public nid As NOTIFYICONDATA
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.