Question

VB如何实现A按钮(1)至少执行一次，才能执行B按钮(2)

Answer 1

　　设置一个程序集或全局变量如C，类型为逻辑型。默认值为false。在B按钮单击的代码是加一个判断语句，如果C为真则执行后面代码，如果C为假，则不执行。在A按钮单击的代码里加一条语句：C=true 即可。即当C被单击后，C的值为真。

Dim C As Boolean

Private Sub Command1_Click()
    C = True '增加这一句，只有至少单击一次，C的值才为真（True）
    '其它执行代码
End Sub

Private Sub Command2_Click()
    If C = False Then '检查按钮1是否被单击过
        Exit Sub '如果没有单击过则退出，不执行后面的代码
    End If
    '执行其它代码
End Sub

追问

前面到没问题，后面A里面加代码应该怎么写呢

追答

我怎么知道你要写什么代码呢？

追问

就这个，每次手贱点了按钮2，文件就空白了

追答

　　我已经写得很明白了。

　　将我的代码放在相应按钮代码的前面就可以了。

Option Explicit
Dim C As Boolean

Private Sub Command1_Click()
Dim s As String
  C = True
  Text1.Text = ""
  Open "D:\单片机51.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, s
        Text1.Text = Text1.Text & s & vbCrLf
    Loop
  Close #1
End Sub

Private Sub Command2_Click()
  If C = False Then Exit Sub
  Open "D:\单片机51.txt" For Output As #2
    Print #2, Text1.Text
  Close #2
End Sub

Answer 2

定义一个全局变量，计算A按钮执行的次数。在B按钮click事件里面加一个判断 >=1 执行