再VB中如何实现一下功能，请高手赐教

来源：百度知道 编辑：UC知道 时间：2024/05/23 13:21:50
再一窗体上建立两个按钮command1 command2 ，刚开始运行时command1 可用，command2不可用，点击command1后，command2可用，command1不可用，再次运行时command2可用，command1不可用，第一次运行都好说，就是第二次运行如何实现command2可用，command1不可用？
3楼的大哥能否说明白一点吗，小弟刚接触VB

你可以在硬盘中建立一个标志文件，第几次运行时，文件中记录上几
然后在form load时先判断一下文件中的标志，不就行了？
Private Sub Form_Load()
dim r as integer
open "c:\tt.txt" for input as #1
input #1,r
close
if r=1 then
command1.enabled=true'如果文件中的值是1，就comman1可用，command2不可用
Command2.Enabled = false
else
command1.enabled=false
Command2.Enabled = true

end if
End Sub

Private Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
Command2.Enabled = False
End Sub

代码测试通过

Enabled属性意思是是否可用有两个值：True是可用（默认值）,False是不可用。

Private Sub Form_Load()
Command2.Enabled=False '使命令按钮Command2不可用
End Sub

Private Sub Command1_Click()
Command1.Enabled=False '使命令按钮Command1不可用
Command2.Enabled=T