Jag har följt artikeln "HOWTO: Display Descriptions of Menu Items When Highlighted
http://support.microsoft.com/support/kb/articles/Q185/4/51.ASP" för att få en beskrivning att poppa upp när man håller musen på något menyalternativ. Så långt funkar allting bra, men om man definierar ett kortkommando för ett menyalternativ, så vill det inte funka längre.
Hur ska man göra för att kunna få beskrivningar trots att man använder kortkommandon?

Problemet är
GetDescription(MenuCaption As String)
som kollar menyns caption. Med kortkommando på har du:
mnuNew.caption = "New" & vbTab & "Ctrl+N".

rensa bort vbTab innan kollen görs så är det ordnat:


Private Function GetDescription(ByVal MenuCaption As String) As String
'Determine the description of the menu item.

Dim nTabPos As Long
nTabPos = InStr(1, MenuCaption, vbTab)
If nTabPos > 2 Then
MenuCaption = Left$(MenuCaption, nTabPos - 1)
End If

Det är inte svårt att lösa. Texten som funktionen retunerar innehåller menynamn och kortkommando separerat med en tab:

Så du skriver bara istället:
<code>
Select Case MenuCaption
Case "New" & vbTab & "Ctrl+N"
GetDescription = "Creates a new document"
End Select
</code>

Jag tycker killarna på Microsoft som skrev den har gjort ett dåligt jobb när det skrev det exempelt. Har snyggat till den lite och lagt upp det i filarean:
Programarkivet:Visa beskrivning för menyer

;o)