SysTray Menu Popup

Dev Shed Forums Sponsor:

Generate data entry and reporting .NET Web apps in minutes, straight from your database. Read our FREE whitepaper “Build Web 2.0 Applications Without Hand-Coding” Download now!

August 12th, 2003, 05:37 PM

Beefyman

Contributing User

Join Date: Feb 2003

Posts: 52

Time spent in forums: < 1 sec
Reputation Power: 6

SysTray Menu Popup Problem

Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If WindowState = vbMinimized And Button = vbRightButton Then
        Me.PopupMenu mnuSysTray
    End If
End Sub

This code works fine in Windows XP for when I have my program minimized to the tray so to speak, but in Windows 98/ME the Button seems to not be passed, basically when I right click, nothing happens. If I remove the second half, and just have it a mouseover, it works fine... Is there a way to get around this?

Last edited by Beefyman : August 12th, 2003 at 10:49 PM.

August 12th, 2003, 09:49 PM

Beefyman

Contributing User

Join Date: Feb 2003

Posts: 52

Time spent in forums: < 1 sec
Reputation Power: 6

If it helps, I am using the following to display the SysTray icon, the following code is contained in its own module:

Code:

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

Public Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uId As Long
    uFlags As Long
    uCallBackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type

And then the following is to place it in the tray when I minimize, or take it out when I restore:

Code:

If WindowState = vbMinimized Then   'Add SysTray Icon
    Me.Hide
    Me.Refresh
    With nid
        .cbSize = Len(nid)
        .hwnd = Me.hwnd
        .uId = vbNull
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .uCallBackMessage = WM_MOUSEMOVE
        .hIcon = Me.Icon
        .szTip = Me.Caption & vbNullChar
    End With
    Shell_NotifyIcon NIM_ADD, nid
    Exit Sub
Else                                'Remove SysTray Icon
    Shell_NotifyIcon NIM_DELETE, nid
End If

August 13th, 2003, 12:20 AM

Beefyman

Contributing User

Join Date: Feb 2003

Posts: 52

Time spent in forums: < 1 sec
Reputation Power: 6

Made the following change, and it worked!

Code:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoEvents
    Select Case X
        Case WM_RBUTTONDOWN:
            Me.PopupMenu mnuSysTray
        Case WM_LBUTTONDBLCLK:
            WindowState = vbNormal
            Me.Show
    End Select
End Sub

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > SysTray Menu Popup

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Get Flash