编程论坛 → VB6论坛

VB中，点击菜单后出现的页面中的按钮，该怎么编程才能使，在菜单中点击不同选项后再点击这个按钮，显示与菜单中选项相对应的内容啊。

微微一笑倾城发布于 2015-06-29 13:22， 3987 次点击

7 回复

微微一笑倾城2015-06-29 17:03

就是点击菜单中不同的选项后，再点击页面中的同一个按钮，显示不同的结果。该怎么做

lianyicq2015-06-29 17:06

如果只是改变按钮的名称，那就给caption属性重新赋值。
如果是点击同一按钮指行不同的代码，那就用逻辑判断写分支程序

微微一笑倾城2015-06-29 18:10

我做的是点击菜单中的选项后，再点击这个按钮显示与菜单中选项相对应的图片，帮忙看一下这样做对吗，谢谢啦
private sub sydy_click（）
if command1_click（）then
picture1.picture=loadpicture(“图片地址和格式”)
endif
end sub

风吹过b2015-06-29 22:51

点击菜单项后，设置一个全局变量，按钮根据这个全局变量来实现变化。

lianyicq2015-06-30 14:14

回复 5楼微微一笑倾城

就是风版主这个意思

程序代码：

Dim Pic_ind As Integer
Private Sub Command1_Click()
  Picture1.Picture = Image1(Pic_ind).Picture
End Sub
Private Sub first_Click() '菜单选项1
  Pic_ind = 1
End Sub
Private Sub second_Click() '菜单选项2
  Pic_ind = 2
End Sub
Private Sub third_Click() '菜单选项3
  Pic_ind = 3
End Sub

微微一笑倾城2015-06-30 16:42

嗯哪，懂了，谢谢各位大神☺