VB中，同一个按钮，先后单击两次功能不同，怎么实现。

2024-12-14 00:54:43

推荐回答（2个）

回答1：

清空form上面的文本? form上面咋有文本？文本框text里的文本？标签label里的文本？
以文本框为例吧。以下是刚为你写的代码，已经测试通过。
Private Sub Form_Load()
Command1.Caption = "清空"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "清空" Then
Text1.Text = ""
Command1.Caption = "退出系统"
Else: End
End If
End Sub

楼上的form1.clear不存在。

回答2：

在单击事件里声明一个静态变量。
static clicknum as integer ’默认初始值是0
clicknum=clicknum+1
if(clicknum mod 2=1) then '奇数次
form1.clear
else ‘ 偶数次
end
end if