我需要实现以下功能:10个菜单项,点击每个菜单项下边界面都能出来一个command1按扭(是同一个),我希望在不同的菜单界面下,点击那个command1命令能显示10个不同的新窗体~~该如何实现呢?能用If语句么??? 我的意思是,比如有蔬菜、肉类、粮食等等菜单,当单击蔬菜菜单时下边界面会出来蔬菜的种类介绍什么的,然后旁边有个command命令按扭==“图片”俩字,单击后能出来许多蔬菜图片的窗体2,当点击肉类那项时,界面会出来关于肉类的介绍,然后旁边也有个command命令按扭==“图片”俩字,点进去之后能出来另一个图片窗体3。我需要的就是如何实现同一个command命令在不同的菜单界面下,在被单击后能得到不同的结果,好比选择combobox中不同的项再单击旁边的command命令能出现不同的结果!!~~
如果用这个方法:在不同的菜单项的程序中添加语句,比如
Private Sub MnuNew1_Click()
如果此时按下command1控件,或者说command1的鼠标单击事件被触发,则
form1.show
“如果此时按下command1控件,或者说command1的鼠标单击事件被触发,则”用代码该怎么写!?
如果用这个方法:在不同的菜单项的程序中添加语句,比如
Private Sub MnuNew1_Click()
如果此时按下command1控件,或者说command1的鼠标单击事件被触发,则
form1.show
“如果此时按下command1控件,或者说command1的鼠标单击事件被触发,则”用代码该怎么写!?
解决方案 »
- 请教richtextbox控件加载的问题!
- 为什么到最后一个Adodc_body_general.Refresh时总是时通过时不通过呢?是不是VB6 BUG问题?急!!!
- 郁闷ing,散分!!!!!!!!!!!!!!!!!!!!!!!!
- 新手求数据库设计中的查询功能的代码
- win7运行xp程序问题
- 如何得到chart控件中的图形
- VC中的CString类型在VB中应该用什么代替??!!!
- 送分小问题,如何在VB的MDI子窗体中弹出 弹出菜单,要求保留主窗体的菜单
- 带select case关键字的select语句怎样写,在线等待!
- 悬浮窗体的制作
- webbrowser 控件VB6能用吗 在哪能下载此控件
- 如果用代码确认一事件被触发~~
Private n As LongPrivate Sub MnuNew1_Click()
n = 1
End SubPrivate Sub MnuNew2_Click()
n = 2
End Sub.......
Private Sub command1_Click()
Select Case n
Case 1
'你的代码
Case 2
'你的代码
Case 3
'你的代码
.......End SelectEnd Sub