home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / MAC_Window1781458132004.psc / Form2.frm < prev    next >
Text File  |  2004-08-13  |  3KB  |  125 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "TrayIcon"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   165
  6.    ClientTop       =   450
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    ShowInTaskbar   =   0   'False
  12.    StartUpPosition =   3  'Windows Default
  13.    Visible         =   0   'False
  14.    Begin VB.Menu Menu 
  15.       Caption         =   "File"
  16.       Visible         =   0   'False
  17.       Begin VB.Menu mnuHeader 
  18.          Caption         =   "Show"
  19.       End
  20.       Begin VB.Menu mnuRow0 
  21.          Caption         =   "Row0"
  22.       End
  23.       Begin VB.Menu mnuRow1 
  24.          Caption         =   "Row1"
  25.       End
  26.       Begin VB.Menu mnuRow2 
  27.          Caption         =   "Row2"
  28.       End
  29.       Begin VB.Menu mnuRow3 
  30.          Caption         =   "Row3"
  31.       End
  32.       Begin VB.Menu mnuRow4 
  33.          Caption         =   "Row4"
  34.          Visible         =   0   'False
  35.       End
  36.       Begin VB.Menu mnuRow5 
  37.          Caption         =   "Row5"
  38.          Visible         =   0   'False
  39.       End
  40.       Begin VB.Menu mnuExit 
  41.          Caption         =   "Exit"
  42.       End
  43.    End
  44. End
  45. Attribute VB_Name = "Form2"
  46. Attribute VB_GlobalNameSpace = False
  47. Attribute VB_Creatable = False
  48. Attribute VB_PredeclaredId = True
  49. Attribute VB_Exposed = False
  50. 'Adding an icon to the system tray.
  51. 'by Black Bird http://kickme.to/pipiscrew
  52. 'Black Bird VB useful program at:
  53. 'http://users.otenet.gr/~pipiscr/FALister/index.htm
  54. 'Thanks: Peh Tee Howe for the SysTray icon
  55.  
  56. Private Sub RefreshTray()
  57.    mnuRow0.Visible = False
  58.    mnuRow1.Visible = False
  59.    mnuRow2.Visible = False
  60.    mnuRow3.Visible = False
  61.    mnuRow4.Visible = False
  62.    mnuRow5.Visible = False
  63. End Sub
  64.  
  65.  
  66. Private Sub Form_Load()
  67.  
  68.    'Set the individual values of the NOTIFYICONDATA data type.
  69.    nid.cbSize = Len(nid)
  70.    nid.hwnd = Form2.hwnd
  71.    nid.uId = vbNull
  72.    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  73.    nid.uCallBackMessage = WM_MOUSEMOVE
  74.    nid.hIcon = Form2.Icon
  75.    nid.szTip = "Taskbar Status Area Sample Program" & vbNullChar
  76.  
  77.    'Call the Shell_NotifyIcon function to add the icon to the taskbar
  78.    'status area.
  79.    Shell_NotifyIcon NIM_ADD, nid
  80. End Sub
  81.  
  82. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  83.  
  84. Dim lngMsg As Long
  85.  
  86. ' get the WM Message passed via X since X is by default mes. in Twips,
  87. ' devide it by the number of twips / pixel
  88.  
  89.  
  90. lngMsg = X / Screen.TwipsPerPixelX
  91.             
  92. Select Case lngMsg
  93.             Case WM_RBUTTONUP ' right button
  94.                         SetForegroundWindow Me.hwnd
  95.                         RefreshTray
  96.                         PopupMenu Menu, , , , mnuHeader 'Bold the Header -word SHOW-
  97.             Case WM_LBUTTONDBLCLK
  98.                         If Form2.WindowState = 1 Then
  99.                             Form2.WindowState = 0
  100.                             Exit Sub
  101.                         End If
  102.                         
  103.                         If Form2.WindowState = 0 Then Form2.WindowState = 1
  104.             End Select
  105.  
  106.  
  107.  
  108. End Sub
  109.  
  110. Private Sub Form_Terminate()
  111.    'Delete the added icon from the taskbar status area when the
  112.    'program ends.
  113.    Shell_NotifyIcon NIM_DELETE, nid
  114. End Sub
  115.  
  116. Private Sub mnuExit_Click()
  117. Shell_NotifyIcon NIM_DELETE, nid
  118. End
  119. End Sub
  120.  
  121. Private Sub mnuHeader_Click()
  122. Form1.Visible = True
  123. Unload Me
  124. End Sub
  125.