menuControl1.BmpName = App.Path + "\c2"
menuControl1.childs = 5
menuControl1.Visible = True
End Sub
Private Sub Form_Load()
menuControl1.Visible = False
End Sub
Private Sub menuControl1_MENUITEMDOWN()
menuControl1.Visible = False
Dim selectMenu As Integer
selectMenu = Val(Trim(Mid(menuControl1.g_selectedItem, 4, 2)))
Select Case selectMenu
Case 1
'第一个菜单项被选中
Case 2
'第二个菜单项被选中
Case 3
'第三个菜单项被选中
Case 4
'第四个菜单项被选中
Case 5
'第五个菜单项被选中
End Select
End Sub
怎么样?调用够简单的吧!这正是微软提出的组件设计的优势。不错,ocx设计的确有些难度,然而一旦设计好,它的调用是十分方便的。ocx的可重用率和易维护性是值得我们在设计时多花些时间的,更重要的是,在软件设计越来越复杂的今天,采用正确的组件设计思想是尤为关键的!
& 编译ocx &
如果一切顺利的话,我们就可以编译ocx了。
1. 在"工程资源管理器"窗口单击"menus"以选择该工程。
2. 在"文件"菜单上单击"生成 menuControl.ocx" 。
注意: 如果你需要你的ocx控件具有许可证,可按如下操作
在"工程"菜单上，点击"menus 属性"打开"工程属性"对话框。选择"通用"选卡，选定"要求许可证关键字"，然后单击"确定"。
这样,即使有人将你的ocx拷贝了去,他也无法使用!你就不必担心你的心血被人侵犯喽!
& 使用ocx控件 &
由于我们的ocx已经编译成功,所以现在就可以像使用系统中的标准控件一样来调用我们的menuControl.ocx了。
退出设计时的工程组,新建一个VB的标准工程,在"工程"菜单上单击"部件",在 Controls 的选项卡上，复选"menus"后再单击"确定"。现在menuControl控件和Label,TextBox等控件就一样被对待处理了,只不过menuControl是我们自己设计的!
菜单的图形文件起名有一定规则,大家只要看一下程序就明白了。当然,读者朋友们也可以按自己喜欢的方式来处理文件名。
& 后记 &
ocx控件设计还涉及到许多方方面面,由于篇幅有限,这里就不详述了(其实,大家能坚持到这里就够有耐心了! (-_-) )。menuControl还有不少地方需要改进,这就待以后再慢慢完善了。
顺便说一下,笔者的工作是多媒体光盘设计,menuControl已被应用在数张教育及百科类光盘上了,效果相当不错! 笔者曾在一个VB form 上放了10个菜单,前后的设计时间不超过5分钟上一页 [1] [2] [3]
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 