楼上的是正确的,我引用下
PrivateSubCommand2_Click()
IfCommand2.Caption="开始画线"Then
'要运行的程序+这里
Command2.Caption="返回初始"
Else
'要运行的程序+这里
Command2.Caption="开始画线"
EndIf
EndSub
也可以用2个按钮来实现
PrivateSubForm_Load()
Command1.Caption="开始画线"
Command2.Caption="返回初始"
Command2.Visible=False
EndSub
PrivateSubCommand2_Click()
'要运行的程序+这里
Command1.Visible=True
Command2.Visible=False
EndSub
PrivateSubCommand1_Click()
'要运行的程序+这里
Command2.Visible=True
Command1.Visible=False
EndSub
