清空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不存在。
在单击事件里声明一个静态变量。
static clicknum as integer ’默认初始值是0
clicknum=clicknum+1
if(clicknum mod 2=1) then '奇数次
form1.clear
else ‘ 偶数次
end
end if
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024