VB制作隨機點名程序源碼

VB制作隨機點名程序源碼VB制作隨機點名程序源碼VB制作幻燈片隨機點名工具大家好，我是丶灬尛壞壞＂注：此程序適用于學校班級實用，此文是原創(chuàng)，轉載請標明出處，本次教程：這個在powerpoint里，完全和powerpoint結合起來，我簡單寫了一下，新建一個vb程序，在窗體上放一個label,一個timer和一個按鈕，timer的interval設置為1，Enable設置為False。源碼（不解釋，自己研究）：Dima(0To9)AsStringPrivateSubCommand1_Click()Timer1.Enabled=NotTimer1.EnabledEndSubPrivateSubForm_Load()SetHotkeyMe.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”EndSubPrivateSubTimer1_Timer()DimiAsIntegeri=Int(Rnd*10)Label1.Caption=a(i)Label1.Tag=iEndSub新建一個模塊，寫入以下代碼PrivateDeclareFunctionSetWindowLongLib”user32”Alias”SetWindowLongA”(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionGetWindowLongLib”user32”Alias”GetWindowLongA”(ByValhwndAsLong,ByValnIndexAsLong)AsLongPrivateDeclareFunctionCallWindowProcLib”user32”Alias”CallWindowProcA”(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPrivateDeclareFunctionRegisterHotKeyLib”user32”(ByValhwndAsLong,ByValidAsLong,ByValfskey_ModifiersAsLong,ByValvkAsLong)AsLongPrivateDeclareFunctionUnregisterHotKeyLib”user32”(ByValhwndAsLong,ByValidAsLong)AsLongPublicDeclareFunctionShowWindowLib”user32”(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongPublicDeclareSubkeybd_eventLib”user32”(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)PublicDeclareFunctionSendMessageLib”user32”Alias”SendMessageA”(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPublicDeclareFunctionSetForegroundWindowLib”user32”(ByValhwndAsLong)AsLongConstSW_HIDE=0ConstSW_SHOW=5ConstWM_HOTKEY=&H312ConstMOD_ALT=&H1ConstMOD_CONTROL=&H2ConstMOD_SHIFT=&H4ConstGWL_WNDPROC=(-4)’窗口函數的地址DimFormIsShowingAsBooleanDimkey_preWinProcAsLong’用來保存窗口信息Dimkey_IsWinAddressAsBoolean’是否取得窗口信息的判斷FunctionkeyWndproc(ByValhwndAsLong,ByValMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongIfMsg=WM_HOTKEYThenSelectCasewParam’wParam值就是key_idHotKeyCase1’激活多個熱鍵后,多個熱鍵所對應的操作,大家在其他的程序中，只要修改此處就可以了FormIsShowing=NotFormIsShowingIfFormIsShowingThenShowWindowhwnd,SW_HIDEElseShowWindowhwnd,SW_SHOW‘SendMessagehwnd,&H32,0,0SetForegroundWindowhwndEndIf‘Case2‘MsgBox”hide”‘ShowWindowhwnd,SW_HIDEEndSelectEndIf‘將消息傳送給指定的窗口keyWndproc=CallWindowProc(key_preWinProc,hwnd,Msg,wParam,lParam)EndFunctionFunctionSetHotkey(ByValhwndAsLong,ByValKeyIdAsLong,ByValkeyControlKeyAsLong,ByValkeyNormalKeyAsLong,ByValActionAsString)Ifkey_IsWinAddress=FalseThen’判斷是否需要取得窗口信息，如果重復取得,再最后恢復窗口時，將會造成程序死掉‘記錄原來的window程序地址key_preWinProc=GetWindowLong(hwnd,GWL_WNDPROC)‘用自定義程序代替原來的window程序SetWindowLonghwnd,GWL_WNDPROC,AddressOfkeyWndprocEndIfSelectCaseActionCase”Add”RegisterHotKeyhwnd,KeyId,keyControlKey,keyNormalKey’向窗口注冊系統(tǒng)熱鍵key_IsWinAddress=True’不需要再取得窗口信息Case”Del”SetWind