请教：为窗体添加菜单 mFast，以及 mFast 的子菜单 mmFast，并将 mmFast 的索引设置为 0杂弄啊！ - 编程论坛

wube2011-06-08 14:11

Sample Code: (API做的应该不分VB6或者是.Net吧? 菜单第二层就以第一层的的hWnd值为准～继续加下去～)

程序代码：

Private Sub AddMenu()
    hMenu = CreateMenu()
    hmenupopup = CreatePopupMenu()
    result = AppendMenu(hmenupopup, MF_STRING, 300, "新建")     '1
    result = AppendMenu(hmenupopup, MF_STRING, 301, "保存")     '2
    result = AppendMenu(hmenupopup, MF_STRING, 302, "另存为1")   '3
    result = AppendMenu(hmenupopup, MF_STRING, 303, "另存为2")   '4
    result = AppendMenu(hmenupopup, MF_SEPARATOR, 304, "")
    result = AppendMenu(hmenupopup, MF_STRING, 305, "另存为3")   '5
    result = AppendMenu(hMenu, MF_POPUP, hmenupopup, "文件")
    oldwinproc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf OnMenu
End Sub