VB打造超酷个性化菜单(一)(2)

中华网科技 http://tech.china.com 2005-06-30 13:56:01

【进入BBS】【进入聊天室】【 推荐给朋友 】【浏览字号：大 中 小】【关闭窗口】

　　
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 | 下页 尾页  共 2 页