1、必须用计时器处理。代码
Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing AndAlso frm.Name = "Class122" Then
Dim btnCancel As Windows.Forms.Button = frm.Controls("btnCancel")
'addhandler btnCancel.Click, addressOf btnCancel_Click
btnCancel.Enabled = False
frm.ControlBox = False
MyTimers("计划1").Enabled = False
End If
2、弹出登陆窗口按钮代码
mytimers("计划1").Enabled = True
Syscmd.Project.SwitchUser()
mytimers("计划1").Enabled = False
[此贴子已经被作者于2017/10/19 9:54:07编辑过]