芬琳漆和立邦漆那个好:VB入门技巧N例(6)
来源:百度文库 编辑:九乡新闻网 时间:2024/07/15 04:43:34
16. 半透明窗体
17.开机启动(函数及常数声明略)
18.关闭显示器
19. 在程序结束时自动关闭由SHELL打开的程序。
20. 关闭、重启计算机
21.显示关机提示框
- Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, _ ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
- Private Const WS_EX_LAYERED = &H80000
- Private Const LWA_ALPHA = &H2
- Private Const GWL_EXSTYLE = (-20)
- Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal _
- hwnd As Long, ByVal nIndex As Long) As Long
- Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal _
- hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private Sub Form_Load()
- Dim rtn As Long
- rtn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) '取的窗口原先的样式
- rtn = rtn Or WS_EX_LAYERED ' 使窗体添加上新的样式WS_EX_LAYERED
- SetWindowLong Me.hwnd, GWL_EXSTYLE, rtn ' 把新的样式赋给窗体
- SetLayeredWindowAttributes Me.hwnd, 0, 200, LWA_ALPHA
- End Sub
17.开机启动(函数及常数声明略)
- Private Sub Form_Load()
- Dim hKey As Long, SubKey As String, Exe As String
- SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
- Exe = "可执行文件的路径"
- RegCreateKey HKEY_CURRENT_USER, SubKey, hKey
- RegSetvalueEx hKey, "autorun", 0, REG_SZ, ByVal Exe,LenB(StrConv(Exe, vbFromUnicode)) + 1
- RegCloseKey hKey
- End Sub
18.关闭显示器
- Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
- As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
- Const WM_SYSCOMMAND = &H112&
- Const SC_MONITORPOWER = &HF170&
- Private Sub Command1_Click()
- SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 2& '关闭显示器
- End Sub
- Private Sub Command2_Click()
- SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1& '打开显示器
- End Sub
19. 在程序结束时自动关闭由SHELL打开的程序。
- Private Const PROCESS_QUERY_INFORMATION = &H400 '关闭由SHELL函数打开的文件
- Private Const PROCESS_TERMINATE = &H1
- Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
- Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _
- ByVal uExitCode As Long) As Long
- Dim ProcessId As Long
- Private Sub Command1_Click()
- ProcessId = Shell("notepad.exe.", vbNormalFocus)
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Dim hProcess As Long
- hProcess = OpenProcess(PROCESS_TERMINATE Or PROCESS_QUERY_INFORMATION, False, _ ProcessId)
- Call TerminateProcess(hProcess, 3838)
- End Sub
20. 关闭、重启计算机
- Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal _
- uFlags As Long, ByVal dwReserved As Long) As Long
- ExitWindowsEx 1,0 关机
- ExitWindowsEx 0,1 重新启动
21.显示关机提示框
- Private Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner _
- As Long, ByVal sExtraPrompt As String,
- ByVal uFlags As Long) As Long
- Const EWX_LOGOFF = 0
- Const EWX_SHUTDOWN = 1
- Const EWX_REBOOT = 2
- Const EWX_FORCE = 4
- Const EWX_POWEROFF = 8
- Private Sub Command1_Click()
- SHRestartSystemMB Me.hWnd, PROMPT, EWX_LOGOFF
- End Sub
VB入门技巧N例(6)
VB入门技巧N例(3)
VB入门技巧N例(4)
VB入门技巧N例(5)
VB入门技巧N例(7)
VB入门技巧N例(8)
VB入门技巧N例(9)
VB入门技巧N例(10)
VB入门技巧N例(11)
编程入门网-Vb教程+
编程入门网-VB教程:第三章-VB语言+
vb.net入门:CheckedListBox控件的使用
VB爱好者乐园(VBGood) - 经验之谈 - VB编程的必备技巧
围棋入门n(完整版)
VB 窗体编程 技巧汇编 经验大全+
VB 窗体编程 技巧汇编 经验大全-
沟通的技巧n
做菜的技巧n
vb vb
编辑日志入门技巧
数码单反摄影技巧入门
数码单反摄影技巧入门
坐禅入门技巧
摄影技巧初级入门