Question

VB中如何实现点击不同的菜单，让窗体上的按钮与之相对应???

点击第3章，4个按钮就对应第3章的题目内容，界面设计，程序代码，运行效果，点击第4章就对应第4章的题目内容，界面设计。。。，就是这4个按钮可以控制所有题，但可以通过点击不同的菜单来确定对应哪一章的题目，懂了么？好急啊，高手快来！！！！！！

Answer 1

你的追问的实现也很简单啊，添加一个全局变量来标识是哪一章就可以了：

Dim i As Integer '添加一个全局变量，用来记录用户按钮了哪个菜单

Private Sub menu1_Click(Index As Integer)
i = 3 '菜单“第3章”
End Sub

Private Sub menu2_Click(Index As Integer)
i = 4 '菜单“第4章”
End Sub

Private Sub menu3_Click(Index As Integer)
i = 5 '菜单“第5章”
End Sub

'其他菜单的代码如此类推

Private Sub Command1_Click()
Select Case i
Case 3
msgbox "第3章"
'放第3章的题目内容
Case 4
msgbox "第4章"
'放第4章的题目内容
Case 5
msgbox "第5章"
'放第5章的题目内容
'其他的章节如此类推
End Select
End Sub

Private Sub Command2_Click()
Select Case i
Case 3
msgbox "第3章"
'放第3章的界面布局
Case 4
msgbox "第4章"
'放第4章的界面布局
Case 5
msgbox "第5章"
'放第5章的界面布局
'其他的章节如此类推
End Select
End Sub

'其他按钮的代码如此类推

=========================================================================

不是很明白你的意思，你意思是这样吗：点击菜单“第3章”，就产生相当于点击了按钮“题目内容”的效果，点击菜单“第4章”，就产生相当于点击了按钮“界面布局”的效果，如此类推。

如果是的话，那么你在菜单的单击事件中，直接调用按钮的单击事件就可以。

例如：

Private Sub Command1_Click()
MsgBox "你按了按钮1"
End Sub

Private Sub Command2_Click()
Command1_Click
End Sub

运行上面代码后，单击按钮2，会调用Command1的单击事件，也就是显示对话框"你按了按钮1"

========================================================================

Answer 2

此人不知道追问，回复删除。懂了么？