主题：[求助] 禁用显示框的问题。

应该把

 

if Vars("Mark1") = true Then
       登录窗口的取消控件=可见

 

end if

 

放在登录窗口的afterload上吧？

 

 

登录按钮中只应该添加

if Vars("Mark1") = false Then
     Vars("Mark1") = true 

end if

 

经过上述调整已经ok了

 

看来还是应该多动动脑筋才是啊

接上面：

我又在系统空闲事件中写了如下代码？

 

Static f As Boolean
If LastInputTickCount > 60000 Then
    If f = False Then
       f= True
       Forms("登录窗口").open()
       Dim frm As object = Windows.Forms.Form.activeForm
       If frm IsNot Nothing AndAlso frm.text = "登录窗口" Then
       frm.DisableXButton()
       End If
       f = False
   End If
End If

 

 

但是登录窗口的那个XX还是可见的，为何？

是不是登录窗口中的那个代码影响的？

你要不显示，就把变量设置成false啊 Vars("Mark1") = false

Static f As Boolean
If LastInputTickCount > 60000 Then
    If f = False Then
       f= True
       Forms("登录窗口").open()
       Dim frm As object = Windows.Forms.Form.activeForm
       If frm IsNot Nothing AndAlso frm.text = "登录窗口" Then
       frm.cancel= False
       End If
       f = False
   End If
End If

 

 

改成这样也还是不行

没理解你什么意思，什么可见啊

整个梳理一遍，帮我看看怎么弄才好：

 

AfterOpenProject事件上写代码：

 

Vars.Add("Mark1",GetType(Boolean),False) 

 

窗口的afterload事件：

If Vars("Mark1") = False Then
  e.Form.DisableXButton()
End If

 

登录按钮的代码：

 

If Vars("Mark1") = False Then
       Vars("Mark1") = True
End If

 

 

systemIdle代码：

 

Static f As Boolean
If LastInputTickCount > 60000 Then
    If f = False Then
       f= True
       Forms("登录窗口").open()
       Dim frm As object = Windows.Forms.Form.activeForm
       If frm IsNot Nothing AndAlso frm.text = "登录窗口" Then
       frm.cancel= False
       End If
       f = False
   End If
End If

 

目的是：首次登陆时，登录窗口的XX是不可见的

 

进入系统后，XX是可见的，同时如果不想切换，直接点击XX关闭这个登录窗口

 

 

系统空闲时，为防止他人进入，当不操作XX秒后，弹出登录窗口，此时 登录窗口的XX是不可见或不可用都行，只有输入用户名及密码才能再次进入系统，否则只能点击“退出”。

 

红袍兄：那个“取消”按钮我把它删掉了，因为再次看见后，放的位置怎么看怎么不舒服。

汗

 

Static f As Boolean
If LastInputTickCount > 60000 Then
    If f = False Then
       f= True

Vars("Mark1") = false 
       Forms("登录窗口").open()
       f = False
   End If
End If