I'm writing a form with a TrayIcon that should change according periodically using a timer:
Code: Select all
Public Sub Form_Open()
StatusTimer.Delay = 1
TrayIcon1.Visible = True
End
Public Sub StatusTimer_Timer()
UpdateTrayIcon
StatusTimer.Delay = Globals.StatusTimerDelay
End
Private Sub UpdateTrayIcon()
Dim CnxStatus As String
CnxStatus = GetCnxStatus()
If InStr(CnxStatus, "Connected") > 0 Then
TrayIcon1.Tooltip = "Connected"
TrayIcon1.Picture = Picture["icon1.png"]
Else If InStr(CnxStatus, "Not connected") > 0 Then
TrayIcon1.Tooltip = "Not connected"
TrayIcon1.Picture = Picture["icon2.png"]
Endif
Print TrayIcon1.Tooltip
End
TIA