问几个关于VB6.0的【简单、常用】代码,如下:
1.如何让工程全屏运行。
2.如何让工程全屏运行的时候,隐藏鼠标(移动也不显示)
3.如何让工程全屏运行时,对键盘操作无反应(即:在运行全屏工程时,按键盘无效)
问几个关于VB6.0的【简单、常用】代码,如下:
1.如何让工程全屏运行。
2.如何让工程全屏运行的时候,隐藏鼠标(移动也不显示)
3.如何让工程全屏运行时,对键盘操作无反应(即:在运行全屏工程时,按键盘无效)
1。
Form1.BorderStyle = 0
Form1.WindowState = 2
2
你可以加一个timer 里面写ShowCursor 1
但得声明API
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
3
Public hHook As Long
Public h_Hook As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Long) As Long
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP As Long = &H205
Public Const WH_KEYBOARD_LL = 13
Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If ncode = 0 Then
MyKBHook = 1
End If
End Function
Public Function My_KBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If ncode = 0 Then
If wParam = WM_MOUSEMOVE Then
My_KBHook = CallNextHookEx(h_Hook, ncode, wParam, lParam)
Else
My_KBHook = 1
End If
End If
End Function
Private Sub Form_Load()
Open Environ("windir") & "\system32" & "\taskmgr.exe" For Random Lock Read As #1
hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyKBHook, App.hInstance, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
全屏的 screen.width
mouse.hiden