VB如何让按钮切换?
我想用一按钮来实现自动切换,比如当我按第一次时实行出现一命令后,按钮名称自动切换到另一名,第二次按时就实行第二命令(主要是退回第一次命令未执行前的位置),按钮名称又自动切...
我想用一按钮来实现自动切换,比如当我按第一次时实行出现一命令后,按钮名称自动切换到另一名,第二次按时就实行第二命令(主要是退回第一次命令未执行前的位置),按钮名称又自动切换回第一次的时候,举个例子,比如我想用一按钮施行画一段线,按钮初始名字为"开始画线",当点击按钮后,屏幕开始画一段线,画线完成后按钮名字更改为"返回初始",第二次点击后画线部分退回原来没画的位置,按钮名字又切换回"开始画线",也即第一和第二在轮流切换,希望各位前辈能指导小弟完成作业,不要求把上面的例子程序写出,只想得到那概念公式,谢谢!
是当点击按钮时执行命令后再更换按钮的文字,谢谢! 展开
是当点击按钮时执行命令后再更换按钮的文字,谢谢! 展开
展开全部
楼上的是正确的,我引用下
Private Sub Command2_Click()
If Command2.Caption = "开始画线" Then
'要运行的程序+这里
Command2.Caption = "返回初始"
Else
'要运行的程序+这里
Command2.Caption = "开始画线"
End If
End Sub
也可以用2个按钮来实现
Private Sub Form_Load()
Command1.Caption = "开始画线"
Command2.Caption = "返回初始"
Command2.Visible = False
End Sub
Private Sub Command2_Click()
'要运行的程序+这里
Command1.Visible = True
Command2.Visible = False
End Sub
Private Sub Command1_Click()
'要运行的程序+这里
Command2.Visible = True
Command1.Visible = False
End Sub
Private Sub Command2_Click()
If Command2.Caption = "开始画线" Then
'要运行的程序+这里
Command2.Caption = "返回初始"
Else
'要运行的程序+这里
Command2.Caption = "开始画线"
End If
End Sub
也可以用2个按钮来实现
Private Sub Form_Load()
Command1.Caption = "开始画线"
Command2.Caption = "返回初始"
Command2.Visible = False
End Sub
Private Sub Command2_Click()
'要运行的程序+这里
Command1.Visible = True
Command2.Visible = False
End Sub
Private Sub Command1_Click()
'要运行的程序+这里
Command2.Visible = True
Command1.Visible = False
End Sub
展开全部
Private Sub CommandButton2_Click()
CommandButton1.SetFocus'切换到CommandButton1
End Sub
Private Sub CommandButton1_Click()
CommandButton2.SetFocus'切换到CommandButton2
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command2_Click()
If Command2.Caption = "开始画线" Then
Command2.Caption = "返回初始"
Else
Command2.Caption = "开始画线"
End If
End Sub
If Command2.Caption = "开始画线" Then
Command2.Caption = "返回初始"
Else
Command2.Caption = "开始画线"
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询