请vb高手指教,救小弟一命.

Question

把任务栏隐藏……
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'寻找窗口列表中第一个符合指定条件的顶级窗口
'lpClassName指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，'表示接收任何类
'lpWindowName指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；'或设为零，表示接收任何窗口标题
 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'控制窗口的可见性
'hwnd窗口句柄，要向这个窗口应用由nCmdShow指定的命令
'nCmdShow为窗口指定可视性方面的一个命令 Private Sub Command7_Click() '显示任务栏
Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
FindClass = FindWindow("Shell_TrayWnd", "")
FindClass2 = FindWindowEx(FindClass, 0, "ReBarWindow32", vbNullString)
Parent = FindWindowEx(FindClass2, 0, "MSTaskSwWClass", vbNullString)
Handle = FindWindowEx(Parent, 0, "SysTabControl32", vbNullString)
ShowWindow Handle, 0
End Sub
 
Private Sub Command8_Click() '隐藏任务栏
Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
FindClass = FindWindow("Shell_TrayWnd", "")
FindClass2 = FindWindowEx(FindClass, 0, "ReBarWindow32", vbNullString)
Parent = FindWindowEx(FindClass2, 0, "MSTaskSwWClass", vbNullString)
Handle = FindWindowEx(Parent, 0, "SysTabControl32", vbNullString)
ShowWindow Handle, 1
End Sub
 

Answer 1

如果知道那个键的ASCII码就可以了,可以在KEYPRESS事件中写代码
if keyascii=键值 then

Answer 2

如果知道那个键的ASCII码就可以了,可以在KEYPRESS事件中写代码
if keyascii=键值 then
  keyascii=0 
end if

Answer 3

这也太简单了吧。可能要用api函数。

Answer 4

我想请vb高手们认真思考再解答这个问题,我正是因为在api函数中找不到那个函数才上来请教,而现在很多人让我找api函数,简直等于没回答,另外感谢monkeylin,讲得很仔细,但是,隐藏任务栏的方式我已试过,它并不能屏蔽这个键,另外,也请其他高手能够参与这个问题,谢谢!!!!

Answer 5

将系统设为屏保状态，方法请查以前的帖子。或者，如果能找到那个按钮的句柄的话，将其Enable设为false