展开全部
如果你是为了相同的按钮操作不同的事件,只需要一个按钮就可以了
那你可以用下面这个:
'先在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
那你可以用下面这个:
'先在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
展开全部
你这个完全可以用一个按钮来实现,就是通过筛选按钮的标题来实现。在一种Case结束时把按钮的Caption设成另一个。
select case commandbutton.caption
case ...
case....
end select
select case commandbutton.caption
case ...
case....
end select
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
简单啊!想好2个按钮的名称,你先判断按钮的caption值,然后用IF判断就行了啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
'在窗体上画两个按钮,输入以下代码
Private Sub Command1_Click()
If Command2.Visible = True Then
Command2.Visible = False
Else
Command2.Visible = True
End If
End Sub
Private Sub Command1_Click()
If Command2.Visible = True Then
Command2.Visible = False
Else
Command2.Visible = True
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
private sub command1_click()
command2.visible=not(command2.visible)
end sub
command2.visible=not(command2.visible)
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询