1、VB制作幻燈片隨機點名工具大家好，我是、灬尛壞壞"注：此程序適用于學校班級實用,此文是原創(chuàng)，轉載請標明岀處，本次教程：這個在powerpoint里，完全和powerpoint結合起來，我簡單寫了一下，新建一個vb程序，在窗體上放一個label,一個timer和一個按鈕，timer的interval設置為1，Enable設置為False。源碼(不解釋，自己研究)：Dima(0To9)AsString|PrivateSubCommand1_Click()Timer1.Enabled=NotTimer1.Enabled|EndSubPrivateSubForm_Load()SetHotke

2、yMe.hwnd,1,0,vbKeyHome,"Add"a(0)="張三"a(1)="李四"a(2)="王五"a(3)="劉六"a(4)="牛七"a(5)="馬八”a(6)="楊九"a(7)="茍十”a(8)="朱一"a(9)="呂十二EndSubPrivateSubForm_Unload(CancelAsInteger)SetHotkeyMe.hwnd,1,0,0,"Del"EndSu

3、bPrivateSubTimer1_Timer()DimiAsIntegeri=Int(Rnd*10)Labell.Caption=a(i)Labell.Tag=iEndSub新建一個模塊，寫入以下代碼PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib"user32

4、"Alias"GetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionCallWindowProcLib"user32"Alias"CallWindowProcA"(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPrivateDeclareFunctionRegisterHotK

5、eyLib"user32"(ByValhwndAsLong,ByValidAsLong,ByValfskey_ModifiersAsLong,ByValvkAsLong)AsLongPrivateDeclareFunctionUnregisterHotKeyLib"user32"(ByValhwndAsLong,ByValidAsLong)AsLongPublicDeclareFunctionShowWindowLib"user32"(ByVaihwndAsLong,ByVainCmdShowAsLong)AsLongPublicDe

6、clareSubkeybd_eventLib"user32"(ByVaibVkAsByte,ByVaiScanAsByte,ByVaidwFlagsAsLong,ByVaidwExtralnfoAsLong)PubiicDeciareFunctionSendMessageLib"user32"Aiias"SendMessageA"(ByVaihwndAsLong,ByVaiwMsgAsLong,ByVaiwParamAsLong,iParamAsAny)AsLongPubiicDeciareFunctionSetForegroundW

7、indowLib"user32"(ByVaihwndAsLong)AsLongConstSW_HIDE=0ConstSW_SHOW=5ConstWM_HOTKEY=&H312ConstMOD_ALT=&H1ConstMOD_CONTROL=&H2ConstMOD_SHIFT=&H4ConstGWL_WNDPROC=(-4)'窗口函數(shù)的地址DimFormlsShowingAsBooieanDimkey_preWinProcAsLong'用來保存窗口信息Dimkey_IsWinAddressAsBooiean'是否取得窗口

8、信息的判斷FunctionkeyWndproc(ByVaihwndAsLong,ByVaiMsgAsLong,ByVaiwParamAsLong,ByVaiiParamAsLong)AsLongIfMsg=WM_HOTKEYThen值就是key_idHotKeySeiectCasewParam'wParamCase1'激活多個熱鍵后，多個熱鍵所對應的操作，大家在其他的程序中，只要修改此處就可以FormlsShowing=NotFormlsShowingIfFormlsShowingThenShowWindowhwnd,SW_HIDEElseShowWindowhwnd,SW_S

9、HOW'SendMessagehwnd,&H32,0,0SetForegroundWindowhwndEndIf'Case2'MsgBox"hide"'ShowWindowhwnd,SW_HIDEEndSelectEndIf'將消息傳送給指定的窗口keyWndproc=CallWindowProc(key_preWinProc,hwnd,Msg,wParam,IParam)EndFunctionFunctionSetHotkey(ByValhwndAsLong,ByValKeyIdAsLong,ByValkeyControlK

10、eyAsLong,ByValkeyNormalKeyAsLong,ByValActionAsString),再最后恢復窗口Ifkey_IsWinAddress=FalseThen'判斷是否需要取得窗口信息，如果重復取得時，將會造成程序死掉'記錄原來的window程序地址key_preWinProc=GetWindowLong(hwnd,GWL_WNDPROC)'用自定義程序代替原來的window程序SetWindowLonghwnd,GWL_WNDPROC,AddressOfkeyWndprocEndIfSelectCaseActionCase"Add"向窗口注冊系統(tǒng)熱鍵恢復窗口信息RegisterHotKeyhwnd,Keyld,keyControlKey,keyNormalKeykey_lsWinAddress=True'不需要再取得窗口信息Case"Del&q