menu.AddItem "cut", LoadPicture("images\cut.ico"), "剪切", MIT_STRING 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] 下一页 没有相关教程
|