以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]谁能帮忙注解一下这代码，实现修改登录框的原理  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108252)
--  作者：js4222
--  发布时间：2017/10/19 1:01:00
--  [求助]谁能帮忙注解一下这代码，实现修改登录框的原理
全局代码
Public Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
MessageBox.Show("这是自定义事件!")
Dim btnCancl As Windows.Forms.Button = sender
removehandler btnCancl.Click, addressOf btnCancel_Click
End Sub
计划代码，计时器间隔500
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
锁屏时，内置登录框右上角的关闭不见了，取消按钮也变暗了，这个是如何实现的？
我们能不能设置一个按钮，点击实现弹出内置登录框，内置登录框的取消变暗，并且无法关闭（不用计时器实现内置登录框的锁屏功能）
--  作者：js4222
--  发布时间：2017/10/19 1:03:00
--  
就是这个例子了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:空闲锁定项目01.table
--  作者：有点甜
--  发布时间：2017/10/19 9:52:00
--  

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编辑过]
--  作者：js4222
--  发布时间：2017/10/19 12:23:00
--  
好吧
那就没有办法了，只能自己设置了
--  作者：有点甜
--  发布时间：2017/10/19 12:36:00
--  
以下是引用js4222在2017/10/19 12:23:00的发言：
好吧
那就没有办法了，只能自己设置了

 

用计时器有什么问题？计时器也只是开启一次而已，不占用资源。