M.CmenuVoodoo.zip_VB6.0_vb6

'-------------------------------------------------------------------------------------------------------------------------- 'CODE AUTOGENERATED WITH: M.C. Menu Voodoo 'Menu identification number: 1234567890 'Structure saved in: C:\ProjektiVB6\Api Menu(Ver31)\StateVer3.MAP '--------------------------------------------------------------------------------------------------------------------------- ' Handles to the popup menus to display Dim hPopupMenu1 As Long Dim hPopupMenu2 As Long Dim hPopupMenu3 As Long Dim hPopupMenu4 As Long Dim hPopupMenu5 As Long Dim hPopupMenu6 As Long Dim hPopupMenu7 As Long Dim hPopupMenu8 As Long Dim hPopupMenu9 As Long Dim hPopupMenu10 As Long Dim hPopupMenu11 As Long Dim mii1 As MENUITEMINFO ' Structure that will describe menu items Dim curpos As POINT_TYPE ' holds the current mouse coordinates Dim menusel As Long ' ID of what the user selected in the popup menu Dim retval As Long ' generic return value 'Create the popup menus which are initialy empty. hPopupMenu1 = CreatePopupMenu() hPopupMenu2 = CreatePopupMenu() hPopupMenu3 = CreatePopupMenu() hPopupMenu4 = CreatePopupMenu() hPopupMenu5 = CreatePopupMenu() hPopupMenu6 = CreatePopupMenu() hPopupMenu7 = CreatePopupMenu() hPopupMenu8 = CreatePopupMenu() hPopupMenu9 = CreatePopupMenu() hPopupMenu10 = CreatePopupMenu() hPopupMenu11 = CreatePopupMenu() 'Create the structure which is the base for all menus: With mii1 .cbSize = Len(mii1)' The size of this structure. .fMask = MIIM_STATE Or MIIM_ID Or MIIM_TYPE Or MIIM_SUBMENU' Which elements of the structure to use. End With 'get items into created menus & describe their properties With mii1'(Bold) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678901, MFS_CHECKED, MFS_UNCHECKED) .wID =1047 .dwTypeData ="Bold" .cch = Len("Bold") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,0,1, mii1) With mii1'(Normal) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678902, MFS_CHECKED, MFS_UNCHECKED) .wID =1046 .dwTypeData ="Normal" .cch = Len("Normal") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,1,1, mii1) With mii1'(Make them ALL) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1045 .dwTypeData ="Make them ALL" .cch = Len("Make them ALL") .hSubMenu = hPopupMenu10 End With retval = InsertMenuItem(hPopupMenu11,2,1, mii1) With mii1'(Make them ALL/Bold) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1029 .dwTypeData ="Bold" .cch = Len("Bold") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu10,0,1, mii1) With mii1'(Make them ALL/Normal) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1028 .dwTypeData ="Normal" .cch = Len("Normal") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu10,1,1, mii1) With mii1'(/separator/) .fType =MFT_SEPARATOR .fState =MFS_ENABLED .wID =1044 .dwTypeData ="/separator/" .cch = Len("/separator/") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,3,1, mii1) With mii1'(Enabled) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678903, MFS_CHECKED, MFS_UNCHECKED) .wID =1043 .dwTypeData ="Enabled" .cch = Len("Enabled") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,4,1, mii1) With mii1'(Disabled) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678904, MFS_CHECKED, MFS_UNCHECKED) .wID =1042 .dwTypeData ="Disabled" .cch = Len("Disabled") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,5,1, mii1) With mii1'(Grayed) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678905, MFS_CHECKED, MFS_UNCHECKED) .wID =1041 .dwTypeData ="Grayed" .cch = Len("Grayed") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,6,1, mii1) With mii1'(Make them ALL) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1040 .dwTypeData ="Make them ALL" .cch = Len("Make them ALL") .hSubMenu = hPopupMenu9 End With retval = InsertMenuItem(hPopupMenu11,7,1, mii1) With mii1'(Make them ALL/Enabled) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1027 .dwTypeData ="Enabled" .cch = Len("Enabled") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu9,0,1, mii1) With mii1'(Make them ALL/Disabled) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1026 .dwTypeData ="Disabled" .cch = Len("Disabled") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu9,1,1, mii1) With mii1'(Make them ALL/Grayed) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1025 .dwTypeData ="Grayed" .cch = Len("Grayed") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu9,2,1, mii1) With mii1'(/separator/) .fType =MFT_SEPARATOR .fState =MFS_ENABLED .wID =1039 .dwTypeData ="/separator/" .cch = Len("/separator/") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu11,8,1, mii1) With mii1'(Checked ?) .fType =MFT_STRING .fState =MFS_ENABLED Or MFS_DEFAULT Or IIf( APICheck12345678906, MFS_CHECKED, MFS_UNCHECKED) .wID =1038 .dwTypeData ="Checked ?" .cch = Len("Checked ?") .hSubMenu = hPopupMenu8 End With retval = InsertMenuItem(hPopupMenu11,9,1, mii1) With mii1'(Checked ?/Not Checked) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck12345678907, MFS_CHECKED, MFS_UNCHECKED) .wID =1024 .dwTypeData ="Not Checked" .cch = Len("Not Checked") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu8,0,1, mii1) With mii1'(Checked ?/On Start Checked) .fType =MFT_STRING .fState =MFS_ENABLED .wID =1023 .dwTypeData ="On Start Checked" .cch = Len("On Start Checked") .hSubMenu = hPopupMenu4 End With retval = InsertMenuItem(hPopupMenu8,1,1, mii1) With mii1'(Checked ?/On Start Checked/With Checkmark) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck12345678908, MFS_CHECKED, MFS_UNCHECKED) .wID =1011 .dwTypeData ="With Checkmark" .cch = Len("With Checkmark") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu4,0,1, mii1) With mii1'(Checked ?/On Start Checked/With RadioButton) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck12345678909, MFS_CHECKED, MFS_UNCHECKED) .wID =1010 .dwTypeData ="With RadioButton" .cch = Len("With RadioButton") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu4,1,1, mii1) With mii1'(Checked ?/On Start Checked/With Pictures) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck123456789010, MFS_CHECKED, MFS_UNCHECKED) .wID =1009 .dwTypeData ="With Pictures" .cch = Len("With Pictures") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu4,2,1, mii1) With mii1'(Checked ?/On Start Checked/On Start Unchecked) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck123456789011, MFS_CHECKED, MFS_UNCHECKED) .wID =1022 .dwTypeData ="On Start Unchecked" .cch = Len("On Start Unchecked") .hSubMenu = hPopupMenu3 End With retval = InsertMenuItem(hPopupMenu8,2,1, mii1) With mii1'(Checked ?/On Start Checked/On Start Unchecked/With Checkmark) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck123456789012, MFS_CHECKED, MFS_UNCHECKED) .wID =1008 .dwTypeData ="With Checkmark" .cch = Len("With Checkmark") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu3,0,1, mii1) With mii1'(Checked ?/On Start Checked/On Start Unchecked/With RadioButton) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck123456789013, MFS_CHECKED, MFS_UNCHECKED) .wID =1007 .dwTypeData ="With RadioButton" .cch = Len("With RadioButton") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu3,1,1, mii1) With mii1'(Checked ?/On Start Checked/On Start Unchecked/With Pictures) .fType =MFT_STRING .fState =MFS_ENABLED Or IIf( APICheck123456789014, MFS_CHECKED, MFS_UNCHECKED) .wID =1006 .dwTypeData ="With Pictures" .cch = Len("With Pictures") .hSubMenu = 0 End With retval = InsertMenuItem(hPopupMenu3,2,1, mii1) With