高手请进

Question

怎样把vb应用程序不显示在任务栏，还有程序启动后怎么把键盘锁了

Answer 1

窗口有个ShowInTask属性，设置为否就行了。＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

Answer 2

//还有程序启动后怎么把键盘锁了你试试lockinput这个api函数

Answer 3

//你试试lockinput这个api函数不用试了，在win32下这个函数被废弃了，用钩子做吧

Answer 4

把窗体的ShowInTask属性设置为False就可以是窗体不在任务栏里显示了
把整个键盘都屏蔽掉：'以下在.Bas中
Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)Public Const WH_JOURNALRECORD = 0Declare 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 UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As LongPublic hNxtHook As Long ' handle of Hook ProcedureSub EnableHook()
    hNxtHook = SetWindowsHookEx(WH_JOURNALRECORD, AddressOf HookProc, App.hInstance, 0)
End Sub
Sub FreeHook()
    Dim ret As Long
    ret = UnhookWindowsHookEx(hNxtHook)
End Sub
Function HookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    HookProc = CallNextHookEx(hNxtHook, code, wParam, lParam)
End Function'以下在Form中，需求:一个Command1, 一个text1
Private Sub Command1_Click()
    Dim str5 As String, len5 As Long, i As Long
    
    Call EnableHook
    str5 = "这是一个测试JournalPlayBackHook的程式"
    len5 = Len(str5)
    For i = 1 To len5
        Text1.Text = Mid(str5, 1, i)
        Text1.Refresh
        Sleep (200)
    Next
    Call FreeHook
End Sub

Answer 5

http://blog.csdn.net/goodname008/archive/2005/01/18/258215.aspx
看看这个