Adding Menu Items?

BaDDBLooD · August 24, 2004, 09:58 PM

How do you add a Menu item through Code?

Spht · August 24, 2004, 10:14 PM

Quote from: BaDDBLooD on August 24, 2004, 09:58 PM
How do you add a Menu item through Code?

See PluginMenu. C++, but very straight-forward for porting if you know VB.

BaDDBLooD · August 24, 2004, 10:46 PM

Thanks, but i can't port from c++ to VB yet.

The-FooL · August 25, 2004, 06:51 AM

Depending on what your adding, you can create menu items, set them not visible by default, then change the caption/visibility during runttime.

BaDDBLooD · August 25, 2004, 08:01 AM

Yeah but, i dont want waisted menu items :O

Eli_1 · August 25, 2004, 01:38 PM

Set the index to 0, and load new instances of it every time you want another menu (?)

Spht · August 25, 2004, 03:35 PM

Quote from: BaDDBLooD on August 24, 2004, 10:46 PM
Thanks, but i can't port from c++ to VB yet.

Did you try? Or are you assuming you can't? As I said, the PluginMenu module is VERY straight-forward for porting. You basically just need to know VB and have API Viewer on hand. Example (since you probably still don't have enough courage to go and port it all on your own):

Code Select

HMENU FindPluginMenu(HMENU hMainMenu)
{
    UINT MenuItems = GetMenuItemCount(hMainMenu);

    for(UINT i = 0; i < MenuItems; i++) {
        int MenuStringSize;
        LPSTR MenuString = new CHAR[MenuStringSize = GetMenuString(hMainMenu, i, 0, 0, MF_BYPOSITION)+1];
        if(GetMenuString(hMainMenu, i, MenuString, MenuStringSize, MF_BYPOSITION)
            && !strcmp(MenuString, PLUGIN_MENU_NAME)) {
            delete [] MenuString;
            return GetSubMenu(hMainMenu, i);
        }

        delete [] MenuString;
    }

    // Menu not found, create it

    HMENU PopupMenu = CreateMenu();

    AppendMenu(hMainMenu, MF_STRING | MF_POPUP, (UINT_PTR)PopupMenu, PLUGIN_MENU_NAME);

    return PopupMenu;
}

Code Select

Function FindPluginMenu(ByVal hMainMenu As Long) As Long
    Dim MenuItems As Long
    Dim MenuString As String
    Dim MenuStringSize As Long
    Dim i As Long

    MenuItems = GetMenuItemCount(hMainMenu)
    For i = 0 To MenuItems
        MenuStringSize = GetMenuString(hMainMenu, i, 0, 0, MF_BYPOSITION)
        MenuString = String(MenuStringSize, vbNullChar)
        If GetMenuString(hMainMenu, i, MenuString, MenuStringSize, MF_BYPOSITION) Then
            If Left$(MenuString, InStr(MenuString, vbNullChar) - 1) <> PLUGIN_MENU_NAME Then FindPluginMenu = GetSubMenu(hMainMenu, i)
        End If
    Next i

    If FindPluginMenu = 0 Then
        ' Menu not found, create it
        Dim PopupMenu As Long

        PopupMenu = CreateMenu()
        AppendMenu hMainMenu, MF_STRING Or MF_POPUP, PopupMenu, PLUGIN_MENU_NAME
        FindPluginMenu = PopupMenu
    End If
End Function

That should get you started. If you take the time to carefully read through the code, you'll realize it is quite simple. Now go do the rest.

BaDDBLooD · August 25, 2004, 05:28 PM

Relying on your example *HEAVILY*, i managed to come out with this.

Code Select



Function FindPluginMenu(ByVal hMainMenu As Long) As Long
    Dim MenuItems As Long
    Dim MenuString As String
    Dim MenuStringSize As Long
    Dim i As Long

    MenuItems = GetMenuItemCount(hMainMenu)
    For i = 0 To MenuItems
        MenuStringSize = GetMenuString(hMainMenu, i, 0, 0, MF_BYPOSITION)
        MenuString = String(MenuStringSize, vbNullChar)
        If GetMenuString(hMainMenu, i, MenuString, MenuStringSize, MF_BYPOSITION) Then
            If Left$(MenuString, InStr(MenuString, vbNullChar) - 1) <> PLUGIN_MENU_NAME Then FindPluginMenu = GetSubMenu(hMainMenu, i)
        End If
    Next i

    If FindPluginMenu = 0 Then
        ' Menu not found, create it
        Dim PopupMenu As Long

        PopupMenu = CreateMenu()
        AppendMenu hMainMenu, MF_STRING Or MF_POPUP, PopupMenu, PLUGIN_MENU_NAME
        FindPluginMenu = PopupMenu
    End If
End Function 

Function RemovePluginMenu(ByVal hMainMenu as Long) as Long
    Dim MenuItems as Long
    Dim Menustring as String
    Dim MenuStringSize as Long
    Dim i as Long

    For i = 0 To Menu Items
   MenuStringSize = GetMenuString(hMainMenu, i, 0, 0, MF_BYPOSITION)
   MenuString = String(MenuStringSize, vbNullChar)
   If GetMenuString(hMainMenu, i, MenuString, MenuStringSize, MF_BYPOSITION) Then
            If Left$(MenuString, InStr(MenuString, vbNullChar) - 1) <> PLUGIN_MENU_NAME Then DeleteMenu(hMainMenu, i, MF_BYPOSITION)
        End If
    Next I
End Function

Function CheckContiguousMenuID(ByVal Menu as Long, ByVal MenuID as Long, ByVal Required as Long) as Boolean
    Dim EndRange as Long
    EndRage = MenuID + Required
    Do
   If GetMenuState(Menu, MenuID+Required, MF_BYCOMMAND) <> -1 Then
       MenuID = EndRange
       CheckContiguousMenuID = False
   End If
    While Required = Required - 1   
    CheckContiguousMenuID = True
End Function

Dunno if that's right or not, but that's what i came up with. Not sure on how to do the WINAPI Ones...

MyndFyre · August 25, 2004, 05:48 PM

Quote from: BaDDBLooD on August 25, 2004, 05:28 PM

Dunno if that's right or not, but that's what i came up with. Not sure on how to do the WINAPI Ones...

Have you searched the CRT files for:

Code Select


#define WINAPI /* the code value you're looking for to emulate */

?

BaDDBLooD · August 25, 2004, 06:07 PM

Nope.. not sure what a CRT File is lmao

MyndFyre · August 25, 2004, 06:25 PM

Quote from: BaDDBLooD on August 25, 2004, 06:07 PM
Nope.. not sure what a CRT File is lmao

C runtime. I believe the C runtime source is included in the Platform SDK for Win32. I could be wrong, though.

BaDDBLooD · August 25, 2004, 06:27 PM

Could you explain that in less complex terms?

MyndFyre · August 25, 2004, 06:29 PM

Quote from: BaDDBLooD on August 25, 2004, 06:27 PM
Could you explain that in less complex terms?

www.google.com.

UserLoser. · August 25, 2004, 06:57 PM

You don't need to worry about WINAPI (__stdcall). Visual Basic is nothing but Standard calls. In VB, you can't really change the calling convention from stdcall to fastcall, cdecl, ect. Therefore, you don't need to worry about setting the calling convention on your function to stdcall.

Adding Menu Items?

Eli_1

UserLoser.