menu.AddItem "copy", LoadPicture("images\copy.ico"), "复制", MIT_STRING

    menu.AddItem "paste", LoadPicture("images\paste.ico"), "粘贴", MIT_STRING

    menu.AddItem "sep3", LoadPicture(), "", MIT_SEPARATOR

    menu.AddItem "check", LoadPicture("images\check.ico"), "一个 CheckBox", MIT_CHECKBOX

    menu.AddItem "exit", LoadPicture("images\exit.ico"), "退出", MIT_STRING

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    '''' 单击鼠标右建弹出菜单

    If Button = vbRightButton Then

        Dim pos As POINTAPI

        GetCursorPos pos

        menu.PopupMenu pos.X, pos.Y, POPUP_LEFTALIGN Or POPUP_TOPALIGN

    End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

    '''' 释放资源, 卸载窗体

    Set menu = Nothing

    Dim frm As Form

    For Each frm In Forms

        Unload frm

    Next

End Sub

Private Sub opnStyle_Click(Index As Integer)

    '''' 设置菜单风格

    Select Case Index

        Case 0                                  '''' Windows 标准

            menu.Style = STYLE_WINDOWS

        Case 1                                  '''' XP 风格

            menu.Style = STYLE_XP

        Case 2                                  '''' 3D 立体风格

            menu.Style = STYLE_3D

        Case 3                                  '''' 渐变风格

            menu.Style = STYLE_SHADE

        Case 4                                  '''' 多彩风格

            menu.Style = STYLE_COLORFUL

    End Select

End Sub

    代码中创建了一个cMenu类的对象，我们的编程重点将会放在cMenu类上，上面的代码只是简单地调用cMenu。在后面的文章中，我们会看到其实cMenu有多达30个方法和属性供我们调用，它的Style属性只提供了5种内置风格，在实际应用中，我们可以利用cMenu类提供的方法和属性制作出各种各样风格的菜单，为自己的程序锦上添花。

    （4）运行结果：

    这篇文章只是抛砖引玉，让大家先睹为快，提前体验一下这个菜单类的魅力。在下一篇中，我们将继续讨论个性化菜单的制作，不一样的是，我们的重点将是那个cMenu类。   :)

（待续）

上一页  [1] [2] [3]  下一页