[vb6] Access TrayIcon PopupMenu with keyboard - Softwareontwikkeling

vrijdag 9 januari 2004 12:11

Acties:

Topicstarter

Als je alles minimaliseert (Windows toets + M) en daarna doorTABt totdat je je focus krijgt in je systray (bijvoorbeeld volumeregeling-icoontje), kun je via SHIFT+F10 toegang krijgen tot het Popupmenu van de desbetreffende applicatie.
Je kunt dan met de pijltjestoetsen navigeren door het menu.

Dat lukt bij mijn applicatie dus niet.
Ik kan alleen via de rechtermuistoets toegang krijgen tot mijn Popupmenu.
Ik wil dus ook met toetsen door het menu kunnen navigeren, alleen heb ik geen idee hoe ik dat erin moet programmeren.
Iemand een idee?

Dit is de code die ik tot nu toe heb:

Visual Basic 6:

'---------------------------------------------------
' FORM1
'---------------------------------------------------

Option Explicit

Private Sub Command1_Click()
' onnodige code verwijderd...
End Sub

Private Sub Command2_Click()
' onnodige code verwijderd...
End Sub

Private Sub Form_Load()

' IconData.hwnd mag ook handle van ander form zijn (bijv. speciaal icon-form)
With IconData
    .cbSize = Len(IconData) ' The length of the NOTIFYICONDATA type
    .hIcon = Me.Icon ' A reference to the form's icon
    .hwnd = Me.hwnd ' hWnd of the form
    .szTip = "Mijn Tool" & Chr(0) 
    .uCallbackMessage = WM_MOUSEMOVE 
    .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE ' 
    .uID = vbNull 
End With

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Msg As Long

Msg = X 
' Form ScaleMode property = 3 - pixels in order to get the correct message

If Msg = WM_LBUTTONDBLCLK Then ' The user has double-clicked your icon
    Call mnuShow_Click ' Show the window
ElseIf Msg = WM_RBUTTONDOWN Then ' Right-click
    PopupMenu mnuPopup, , , , mnuShow ' Popup the menu
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If UnloadMode = vbFormControlMenu Then ' Via ALT+F4 en kruisje controlbox
    Cancel = 1
    Me.WindowState = vbMinimized
    Call Shell_NotifyIcon(NIM_ADD, IconData)
    Me.Hide
End If

End Sub

Private Sub Form_Resize()

If Me.WindowState = 1 Then ' minimized
    Call Shell_NotifyIcon(NIM_ADD, IconData)
    Me.Hide
End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Shell_NotifyIcon NIM_DELETE, IconData

End Sub

Private Sub mnuExit_Click() ' mnuPopup -> mnuExit

Unload Me
' End ' Just to be sure the program has ended

End Sub

Private Sub mnuShow_Click() ' mnuPopup -> mnuShow

Me.WindowState = vbNormal
Shell_NotifyIcon NIM_DELETE, IconData
Me.Show

End Sub



'---------------------------------------------------
'Module1.bas
'---------------------------------------------------

Option Explicit

Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" ( _
    ByVal dwMessage As Long, _
    lpData As NOTIFYICONDATA _
) As Long

Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1

Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4

Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_MOUSEMOVE = &H200
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

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

Public IconData As NOTIFYICONDATA

vrijdag 9 januari 2004 13:22

Acties:

OZ-Gump

terug van weggeweest

In je applicatie (of je systray icon) een snelkoppeling implementeren waardoor met Shift + F10 het popup menu verschijnt? Lijkt me een logiche stap en ook implementeerbaar.

Wat betreft je systray icon, waarom gebruik je daarvoor niet een van de ik-weet-niet-hoeveel componentjes die voorhanden zijn...? Lijkt me dat dat wellicht een makkelijker manier van implementeren is, waardoor ook je shortcut makkelijk toe te wijzen is?

My personal website

vrijdag 9 januari 2004 13:34

Acties:

DPLuS

Topicstarter

OZ-Gump schreef op 09 januari 2004 @ 13:22:
In je applicatie (of je systray icon) een snelkoppeling implementeren waardoor met Shift + F10 het popup menu verschijnt? Lijkt me een logiche stap en ook implementeerbaar.

Dit is het probleem ook niet, SHIFT+F10 werkt gewoon, maar ik kan daarna niet met de pijltjestoetsen navigeren door het submenu.
De focus blijft namelijk gewoon in de systray en niet in het menu.

Wat betreft je systray icon, waarom gebruik je daarvoor niet een van de ik-weet-niet-hoeveel componentjes die voorhanden zijn...? Lijkt me dat dat wellicht een makkelijker manier van implementeren is, waardoor ook je shortcut makkelijk toe te wijzen is?

Daar is het nu te laat voor, het werkt nu naar alle tevredenheid, behalve dat verhaal met de pijltjestoetsen...

vrijdag 9 januari 2004 13:53

Acties:

GigaDave56

DPLuS schreef op 09 januari 2004 @ 12:11:

Visual Basic:

If Msg = WM_LBUTTONDBLCLK Then ' The user has double-clicked your icon
    Call mnuShow_Click ' Show the window
ElseIf Msg = WM_RBUTTONDOWN Then ' Right-click
    PopupMenu mnuPopup, , , , mnuShow ' Popup the menu
End If

[Wild Guess Mode

]

Mijn systray / popupmenu koppeling is anders, menubalk gekoppeld aan mouseclick,
maar misschien ook het menu showen als Msg = WM_LBUTTONDOWN?

[/Wild Guess Mode]

[ Voor 12% gewijzigd door GigaDave56 op 09-01-2004 13:55 . Reden: [code tags] ]

Not so Giga One
> I'd sell my soul for you, babe
> For money to burn, for you
> I'd give you all and have none, babe
> Just to, just to, to have you here by me... [Scooter - Rebel yell]

vrijdag 9 januari 2004 14:24

Acties:

DPLuS

Topicstarter

Ik heb weer het e.e.a. uitgeplozen:

Op het moment dat ik een Right-click event trigger op mijn tray-icon (hetzij via de rechtermuistoets, hetzij via SHIFT+F10, hetzij via dat rare Windows-key'tje naast de CTRL-toets op mijn keyboard), krijg ik dus mijn pop-up menu te zien.
Alleen krijgt dit menu GEEN FOCUS!
Want als ik dan de pijltjestoetsen gebruik (bijv. naar links of rechts) scrollt de "active-focus" cursor door de icons in mijn systray.

Dus ik moet op de een of andere manier zorgen dat form1 ook de focus krijgt, of in ieder geval mijn submenu.
Ik had al geprobeerd form1.setfocus te doen, maar dan krijg ik een foutmelding in mijn IDE...

Is er überhaupt iemand die dit werkend heeft???

vrijdag 9 januari 2004 17:12

Acties:

Verwijderd

In bijv. een .bas file toevoegen

Visual Basic:

1 2	Public Declare Function SetForegroundWindow Lib "user32" _ (ByVal hwnd As Long) As Long

In m'n code staat dan dit:

Visual Basic:

1
2
3

      Case WM_RBUTTONUP ' 517 display popup menu
         lResult = SetForegroundWindow(Me.hwnd)
         Me.PopupMenu Me.mPopupSys

vrijdag 9 januari 2004 18:43

Acties:

DPLuS

Topicstarter

Verwijderd schreef op 09 januari 2004 @ 17:12:
In bijv. een .bas file toevoegen

Visual Basic:

1 2	Public Declare Function SetForegroundWindow Lib "user32" _ (ByVal hwnd As Long) As Long

In m'n code staat dan dit:

Visual Basic:

1
2
3

      Case WM_RBUTTONUP ' 517 display popup menu
         lResult = SetForegroundWindow(Me.hwnd)
         Me.PopupMenu Me.mPopupSys

$_/-\o_$ HAIL TO THE KING, BABY! $_/-\o_$

Dit werkt perfect!

Maar wat ik me dan afvraag:
Waarom werkte Me.SetFocus dan niet?
Die doet toch hetzelfde als die API-call, of niet??