Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmSysTray - 3
End If
Else
' can't do it, fail silently.
End If
End Sub
Public Property Get ToolTip() As String
Dim sTip As String
Dim iPos As Long
sTip = nfIconDataA.szTip
iPos = InStr(sTip, Chr$(0))
If (iPos 0) Then
sTip = Left$(sTip, iPos - 1)
End If
ToolTip = sTip
End Property
Public Property Let ToolTip(ByVal sTip As String)
If (m_bUseUnicode) Then
stringToArray sTip, nfIconDataW.szTip, unicodeSize(IIf(m_bSupportsNewVersion, 128, 64))
nfIconDataW.uFlags = NIF_TIP
Shell_NotifyIconW NIM_MODIFY, nfIconDataW
Else
If (sTip & Chr$(0) nfIconDataA.szTip) Then
nfIconDataA.szTip = sTip & Chr$(0)
nfIconDataA.uFlags = NIF_TIP
Shell_NotifyIconA NIM_MODIFY, nfIconDataA
End If
End If
End Property
Public Property Get IconHandle() As Long
IconHandle = nfIconDataA.hIcon
End Property
Public Property Let IconHandle(ByVal hIcon As Long)
If (m_bUseUnicode) Then
If (hIcon nfIconDataW.hIcon) Then
nfIconDataW.hIcon = hIcon
nfIconDataW.uFlags = NIF_ICON
Shell_NotifyIconW NIM_MODIFY, nfIconDataW
End If
Else
If (hIcon nfIconDataA.hIcon) Then
nfIconDataA.hIcon = hIcon
nfIconDataA.uFlags = NIF_ICON
Shell_NotifyIconA NIM_MODIFY, nfIconDataA
End If
End If
End Property
Public Function AddMenuItem(ByVal sCaption As String, Optional ByVal sKey As String = "", Optional
ByVal bDefault As Boolean = False) As Long
Dim iIndex As Long
If Not (m_bAddedMenuItem) Then
iIndex = 0
m_bAddedMenuItem = True
Else
iIndex = mnuSysTray.UBound + 1
Load mnuSysTray(iIndex)
End If
mnuSysTray(iIndex).Visible = True
mnuSysTray(iIndex).Tag = sKey
mnuSysTray(iIndex).Caption = sCaption
If (bDefault) Then
m_iDefaultIndex = iIndex
End If
AddMenuItem = iIndex
End Function
Private Function ValidIndex(ByVal lIndex As Long) As Boolean
ValidIndex = (lIndex >= mnuSysTray.LBound And lIndex