Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmSysTray - 4
End Sub
Public Function RemoveMenuItem(ByVal iIndex As Long) As Long
Dim i As Long
If ValidIndex(iIndex) Then
If (iIndex = 0) Then
mnuSysTray(0).Caption = ""
Else
' remove the item:
For i = iIndex + 1 To mnuSysTray.UBound
mnuSysTray(iIndex - 1).Caption = mnuSysTray(iIndex).Caption
mnuSysTray(iIndex - 1).Tag = mnuSysTray(iIndex).Tag
Next i
Unload mnuSysTray(mnuSysTray.UBound)
End If
End If
End Function
Public Property Get DefaultMenuIndex() As Long
DefaultMenuIndex = m_iDefaultIndex
End Property
Public Property Let DefaultMenuIndex(ByVal lIndex As Long)
If (ValidIndex(lIndex)) Then
m_iDefaultIndex = lIndex
Else
m_iDefaultIndex = 0
End If
End Property
Public Function ShowMenu()
SetForegroundWindow Me.hwnd
If (m_iDefaultIndex > -1) Then
Me.PopupMenu mnuPopup, 0, , , mnuSysTray(m_iDefaultIndex)
Else
Me.PopupMenu mnuPopup, 0
End If
End Function
Private Sub Form_Load()
' Get version:
Dim lMajor As Long
Dim lMinor As Long
Dim bIsNt As Long
GetWindowsVersion lMajor, lMinor, , , bIsNt
)
If (bIsNt) Then
m_bUseUnicode = True
If (lMajor >= 5) Then
' 2000 or XP
m_bSupportsNewVersion = True
End If
ElseIf (lMajor = 4) And (lMinor = 90) Then
' Windows ME
m_bSupportsNewVersion = True
End If
'Add the icon to the system tray...
Dim lR As Long
If (m_bUseUnicode) Then
With nfIconDataW
.hwnd = Me.hwnd
.uID = Me.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon.Handle
stringToArray App.FileDescription, .szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64)
If (m_bSupportsNewVersion) Then
.uTimeOutOrVersion = NOTIFYICON_VERSION
End If
.cbSize = nfStructureSize
End With
lR = Shell_NotifyIconW(NIM_ADD, nfIconDataW)