用API給普通VB窗體加滾動(dòng)條.doc

用API給普通VB窗體加滾動(dòng)條，并響應(yīng)其消息一、創(chuàng)建一般工程，在窗體上加4個(gè)標(biāo)簽控件，目的是顯示通過API生成的滾動(dòng)條的數(shù)據(jù)。名稱分別是：lblmin、lblmax、lblstep、lblpos二、在窗體FORM1的代碼中添加：PrivateSubForm_Load()SUBCLASS窗口，設(shè)定新的窗體過程prevProc=GetWindowLong(Form1.hwnd,GWL_WNDPROC)SetWindowLongForm1.hwnd,GWL_WNDPROC,AddressOfwndProc為窗口加載滾動(dòng)條，并設(shè)置其相應(yīng)參數(shù)a.cbSize=Len(a)a.fMask=SIF_ALLa.nMax=3000a.nMin=100a.nPage=hStepa.nPos=100ShowScrollBarForm1.hwnd,SB_BOTH,TrueSetScrollInfoForm1.hwnd,SB_HORZ,a,Truelblmin.Caption=a.nMinlblmax.Caption=a.nMaxlblpos.Caption=a.nPoslblstep.Caption=a.nPageEndSubPrivateSubForm_Unload(CancelAsInteger)恢復(fù)窗口的原過程，避免數(shù)據(jù)丟失SetWindowLongForm1.hwnd,GWL_WNDPROC,prevProcEndSub三、添加一標(biāo)準(zhǔn)模塊。滾動(dòng)條信息結(jié)構(gòu)體PublicTypeSCROLLINFOcbSizeAsLongfMaskAsLongnMinAsLongnMaxAsLongnPageAsLongnPosAsLongnTrackPosAsLongEndType顯示滾動(dòng)條與設(shè)置滾動(dòng)條信息函數(shù)PublicDeclareFunctionShowScrollBarLibuser32(ByValhwndAsLong,ByValwBarAsLong,ByValbShowAsLong)AsLongPublicDeclareFunctionSetScrollInfoLibuser32(ByValhwndAsLong,ByValnAsLong,lpcScrollInfoAsSCROLLINFO,ByValboolAsBoolean)AsLong滾動(dòng)條相應(yīng)常量與標(biāo)志PublicConstSIF_RANGE=&H1PublicConstSIF_PAGE=&H2PublicConstSIF_POS=&H4PublicConstSIF_ALL=SIF_RANGEOrSIF_PAGEOrSIF_POSPublicConstSB_HORZ=0PublicConstSB_BOTH=3PublicConstSB_BOTTOM=7PublicConstSB_ENDSCROLL=8PublicConstSB_LINEDOWN=1PublicConstSB_LINELEFT=0PublicConstSB_PAGELEFT=2PublicConstSB_PAGERIGHT=3PublicConstSB_LINERIGHT=1PublicConstSB_THUMBTRACK=5PublicConstSB_THUMBPOSITION=4PublicConstSB_TOP=6獲取窗口過程與設(shè)置窗口過程函數(shù)及其常量PublicDeclareFunctionSetWindowLongLibuser32AliasSetWindowLongA(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPublicDeclareFunctionGetWindowLongLibuser32AliasGetWindowLongA(ByValhwndAsLong,ByValnIndexAsLong)AsLongPublicDeclareFunctionCallWindowProcLibuser32AliasCallWindowProcA(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValmsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongPublicConstGWL_WNDPROC=(-4)窗體滾動(dòng)條消息PublicConstWM_HSCROLL=&H114PublicConstWM_VSCROLL=&H115三個(gè)全局變量與常量PublicprevProcAsLongPublicaAsSCROLLINFOPublicConsthStep=100PublicFunctionwndProc(ByValhwndAsLong,ByValmsgAsLong,ByValwpAsLong,ByVallpAsLong)AsLongSelectCasemsgCaseWM_HSCROLLCallsetHScrollbar(wp)截取到橫向滾動(dòng)消息后,調(diào)用處理過程CaseWM_VSCROLLCallsetVScrollbar(wp)截取到縱向滾動(dòng)條消息后,調(diào)用處理過程EndSelectwndProc=CallWindowProc(prevProc,hwnd,msg,wp,lp)將滾動(dòng)條以外的消息交給原過程處理EndFunctionPublicSubsetHScrollbar(ByValwpAsLong)對橫向滾動(dòng)條的消息進(jìn)行處理的過程DimposAsLongDimflagAsLongpos=wp65536拖拽時(shí)返回的滾動(dòng)條值flag=wpMod65536判斷滾動(dòng)條的動(dòng)作Debug.Print我移動(dòng)了!&flag&-&posSelectCaseflagCaseSB_LINERIGHT點(diǎn)右按鈕a.nPos=a.nPos+hStepIfa.nPos=a.nMaxThena.nPos=3000SetScrollInfoForm1.hwnd,SB_HORZ,a,TrueCaseSB_LINELEFT點(diǎn)左按鈕a.nPos=a.nPos-hStepIfa.nPos= a.nMin Then a.nPos = 100SetScrollInfo Form1.hwnd, SB_HORZ, a, TrueCase SB_PAGELEFT 點(diǎn)滾動(dòng)條左邊a.nPos = a.nPos - hStepIf a.nPos =a.nMaxThena.nPos=3000SetScrollInfoForm1.hwnd,SB_HORZ,a,TrueCaseSB_THUMBTRACK拖拽滾動(dòng)條a.nPos=posSetScrollInfoForm1.hwnd,SB_HORZ,a,TrueCaseSB_BOTTOM到最右端a.nPos=a.nMaxSetScrollInfoForm1.hwnd,SB_HORZ,a,TrueCaseSB_TOP到最左端a.nPos=a.nMinSetScrollInfoForm1.hwnd,SB_HORZ,a,TrueEndSelectForm1.lblpos.Caption=a.nPosEndSubPublicSubsetVScrollbar