Adding to System Menu

[MidgetsBro]

I am using this code from PSC to add an item to the systemmenu on my app, but when I click it, nothing happens. How can I make it do my code. And while I'm posting, how can I add a seperator bar to the menu? I tried just using this code and putting a "-" but that didn't work.

The code I am using:

Option Explicit 
 
 
Private Declare Function DrawMenuBar Lib "user32" _ 
(ByVal hWnd As Long) As Long 
 
 
Private Declare Function GetSystemMenu Lib "user32" _ 
(ByVal hWnd As Long, ByVal bRevert As Long) As Long 
 
 
Private Declare Function AppendMenu Lib "user32" Alias _ 
"AppendMenuA" (ByVal hMenu As Long, ByVal wFlags _ 
As Long, ByVal wIDNewItem As Long, ByVal lpNewItem _As Any) As Long 
Const MF_STRING = &H0& 
 
 
Private Sub Form_Load() 
Dim SysMenu As Long 
SysMenu = GetSystemMenu(Me.hWnd, False) 
 
 
If SysMenu Then 
AppendMenu SysMenu, MF_STRING, 0, "YourItem" 
DrawMenuBar Me.hWnd 
End If 
End Sub

Thanks
-Joey

[Motoxpro]

why not just use the menu editor?.........

[filburt1]

He's talking about this menu:

[eiSecure]

The code you have now only displays the menu. To process events, you will need subclassing.

There's a better example on PSC.

[MidgetsBro]

Ok I'll go look for it...

[Motoxpro]

o ic takes me a while to get questions somtiimes

[MidgetsBro]

Damn... I can't find any code that works on that site! I found some that kinda works, but when I close the form after testing it, it closes VB too, so I have to copy and paste the code all over again. Does anyone have this code that they can just post, I don't feel like searching through PSC anymore... it's too unorganized!

Thanks
-Joey

[eiSecure]

Originally posted by MidgetsBro
Damn... I can't find any code that works on that site! I found some that kinda works, but when I close the form after testing it, it closes VB too, so I have to copy and paste the code all over again. Does anyone have this code that they can just post, I don't feel like searching through PSC anymore... it's too unorganized!

Thanks
-Joey

...That's what happens when you use subclassing.

[MidgetsBro]

I know that's what happens if u use subclassing and you don't close the form by the X... but I did close it with the X and it still did it. arg! Maybe I don't need this in my program if it's going to be this hard to do.

[Megatron]

If you subclass your window, and catch the WM_COMMAND message, the LOWORD of wParam is the menu ID that was clicked.