如果用代码确认一事件被触发~~
我需要实现以下功能：10个菜单项，点击每个菜单项下边界面都能出来一个command1按扭（是同一个），我希望在不同的菜单界面下，点击那个command1命令能显示10个不同的新窗体~~该如何实现呢？能用If语句么？？？
也可在不同的菜单项的程序中添加语句，比如
Private Sub MnuNew1_Click()
如果此时按下command1控件，或者说command1的鼠标单击事件被触发，则
form1.show
[解决办法]
没看明白你想干什么？
[解决办法]
定义个模块级变量,点击不同的菜单为这个变量赋不同的值,然后在按钮的click事件中根据这个值的不同执行不同的操作,如:
Private n As Long
Private Sub MnuNew1_Click()
n = 1
End Sub
Private Sub MnuNew2_Click()
n = 2
End Sub
.......
Private Sub command1_Click()
Select Case n
Case 1
'你的代码
Case 2
'你的代码
Case 3
'你的代码
.......
End Select
End Sub
[解决办法]
用个全局变量保存图片地址
在点击各个菜单时,就让这个变量等于相应的图片地址,然后点按钮的显示图片时就按这个变量的地址去显示.
[解决办法]
在COMMAND中判断用户击中的菜单项是哪一个，然后再SELECT CASE ，然后再FRM.SHOW
[解决办法]
Public strPath As String
Private Sub MnuNew1_Click()
strPath= "c:\蔬菜.jpg "
End Sub
Private Sub MnuNew2_Click()
strPath= "c:\猪肉.jpg "
End Sub
.......
Private Sub command1_Click()
'假设在picture1中显示
pictrue1.picture=strPath
End Sub
