主题：点击当前窗口清空文本框代码

此主题相关图片如下：image 2.jpg

在“独立窗口”窗口中的

Click事件中如下代码不起左右

If Forms("独立窗口").opened() AndAlso Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.Name = "独立窗口"
    e.Form.Controls("TextBox3").text=Nothing
    e.Form.Controls("TextBox3").Select
End If

afterLoad

e.Form.TimerInterval = 50
e.Form.TimerEnabled = True

timertick

static flag As Boolean = True
If Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.name = e.Form.name Then
    If flag = True Then
        e.Form.controls("textbox1").text = Nothing
        e.Form.controls("textbox1").Select
        flag = False
    End If
Else
    flag = True
End If