Question

vb点击一个按钮后再点击下一个按钮才运行一个程序，如果只点击第二个按钮也不会运行，这样的程序怎么写啊

Answer 1

比如点击Button1之後，点击其他按钮才运行程序

Public bRun As Boolean
Private Sub Button1_Click(xxxxx)
    bRun = True
End Sub
 
Private Sub Buttonxxxx_Click()
    If bRun Then Call Shell "执行我吧.exe"
    bRun = False '点击其他按钮的时候，都变成False，只有Button1下才能变成True
End Sub

追问

点击按钮1和2后，这之间的线变色，点击按钮3和4，他们之间的线变色

追答

你说的这之间的线，那之间的线，根本就不知道是什麼好麼。

你能不能画个图什麼的，这样更好理解

 

查看附件，我编译了一个，你看看是不是要这种效果？

Answer 2

你好，输卵管不通的症状主要有：1、月经不调，会导致月经不规则。2、腹部不适，下腹有不同程度疼痛。3、不孕症，形成堵塞而致不孕，以继发不孕较为多见。4、痛经，有腹痛，越临近经期越重，直到月经来潮。

可能会导致女性出现输卵管继发感染，而引起输卵管管壁充血、粘连、水肿而不通，如果长时间不治疗，很有可能会造成不孕发生，或者是使得女性的输卵管内层粘膜发生粘连，因此使得女性的管腔变窄或是出现闭锁。并且经常流产的女人，其生殖器官会出现一些炎症，久而久之，就会使得女性输卵管里留下瘢痕组织，导致堵塞或者是损伤，最终导致不能生育。

Answer 3

你好，输卵管不通的症状主要有：1、月经不调，会导致月经不规则。2、腹部不适，下腹有不同程度疼痛。3、不孕症，形成堵塞而致不孕，以继发不孕较为多见。4、痛经，有腹痛，越临近经期越重，直到月经来潮。

可能会导致女性出现输卵管继发感染，而引起输卵管管壁充血、粘连、水肿而不通，如果长时间不治疗，很有可能会造成不孕发生，或者是使得女性的输卵管内层粘膜发生粘连，因此使得女性的管腔变窄或是出现闭锁。并且经常流产的女人，其生殖器官会出现一些炎症，久而久之，就会使得女性输卵管里留下瘢痕组织，导致堵塞或者是损伤，最终导致不能生育。

Answer 4

定义一个全局boolean变量r，初始r=false，单击第二个按钮后r=true
只有当r=true时才执行代码

追问

可是还有很多按钮也要实现这个功能啊，这样不是只有这两个按钮能运行了？

追答

具体的我不清除你具体要做什么，我也说不好，但是原理就是这样的，肯定要定义一个全局变量的；不然按钮之间不知道发生了什么；

追问

就是点击这两个按钮，这两个按钮控制的这条线变色，而别的按钮之间也有线，按那两个也会变色，以此类推

追答

那多定义几个全局变量总可以的吧？