| | | 用Visual Basic设计Windows门禁程序 | | 2002-01-22·
·李 刚··YESKY
| 上一页 1 2 3 4 5 下一页
为了屏蔽Ctrl+Alt+Del组合键，须调用一个Windows API（Application Programming Interface，应用程序接口）函数。该函数的声明最好放在模块（module）中，那样每个窗体的程序中都可以调用它。
在工程中添加一个模块（module），具体步骤与添加窗体类似。编程时读者自己实践一下就知道了。先添加一个模块，然后在VB界面的主菜单中单击"外接程序"选择"外接程序管理器"在出现的窗口中选择"VB 6 API Viewer"并双击它。在它的后边会出现"加载"。单击"确定"关闭窗口。这时"外接程序"中出现"API 浏览器"选项，选择它，屏幕上会出现"API浏览器"的窗口，单击"文件"-〉"加载文本文件"-〉win32api.txt，在可用项中选择SystemParametersInfo（屏蔽Ctrl+Alt+Del的函数），单击"添加"，之后单击"插入"，将SystemParametersInfo函数的声明部分加入到模块中，按同样的步骤添加函数 ExitWindowsEx函数（调用它可以关闭计算机）。Api函数调用后，要给它的常数付值，比如ExitWindowsEx的常数EWX_FORCE和EWX_SHUTDOWN都要付值，否则函数无效。模块部分的具体代码如下：
Const SPI_SETSCREENSAVEACTIVE = 97
' 声明一个常量
Const EWX_FORCE = 4
Const EWX_SHUTDOWN = 1
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal_ dwReserved As Long) As Long
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"_ (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As_ Long) As Long
Public Sub Disable(Disable As Boolean) '定义一个函数屏蔽 Ctrl+Alt+Del 组合键，因为是
'用Public定义的，所以程序中可以直接调用函数。用语句 call disable(statement) 就可以完成调用了
Dim x As Long
x = SystemParametersInfo (SPI_SETSCREENSAVEACTIVE, Disable, CStr (1), 0)
End Sub
' 这个函数也适用于NT和2000，但在那里完成本功能还需要获得相应的权限。 |
下面就可以开始编写代码了。在"工程资源管理器"中选中frmMain，双击之后，这个窗体就会出现在界面的中间。双击"确定"按钮，出现代码窗口，显示如下两行：
Private Sub Command1_Click ()
End sub |
表示现在要对Command1（命令按钮）控件的Click（单击）事件编写代码，当程序运行时单击Command1控件后，计算机就执行这段代码。有关Command1的事件有很多，在代码窗口的上方有两个下拉菜单，第一个显示当前窗体中的控件列表，第二个显示当前控件的事件列表。要对哪个控件的哪个事件编写代码可以在列表中直接选择，之后代码窗口中会自动添加代码的起始和结束标记。就像上边的command1.click一样。
上一页 1 2 3 4 5 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
