VB当中怎么用一个按钮实现两个命令?

2025-04-13 08:00:38
推荐回答(5个)
回答1:

如果你是为了相同的按钮操作不同的事件,只需要一个按钮就可以了

那你可以用下面这个:

'先在form上放一个command
Private Sub Command1_Click()
If Me.Command1.Caption = "打开" Then
Me.Command1.Caption = "关闭"
'执行你的代码
Else
Me.Command1.Caption = "打开"
'执行你的代码
End If

End Sub

如果你非要用二个不同的按钮,那就用下面的代码:

'先在form上放二个command,如果你要让二个按钮在同一位置,那就把它们重叠在一起
Private Sub Command1_Click()
Me.Command1.Visible = False
Me.Command2.Visible = True
'执行你的代码
End Sub
Private Sub Command2_Click()
Me.Command2.Visible = False
Me.Command1.Visible = True
'执行你的代码
End Sub

回答2:

你这个完全可以用一个按钮来实现,就是通过筛选按钮的标题来实现。在一种Case结束时把按钮的Caption设成另一个。

select case commandbutton.caption
case ...

case....

end select

回答3:

简单啊!想好2个按钮的名称,你先判断按钮的caption值,然后用IF判断就行了啊

回答4:

'在窗体上画两个按钮,输入以下代码
Private Sub Command1_Click()
If Command2.Visible = True Then
Command2.Visible = False
Else
Command2.Visible = True
End If
End Sub

回答5:

private sub command1_click()
command2.visible=not(command2.visible)
end sub