計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)：圖像的特殊技巧

　　響應(yīng)鼠標(biāo)的代碼：

　　Private Sub Form—Click ()

　　EndEnd Sub

　　切換演示工作主要在定時(shí)器中完成，代碼如下：

　　Private Sub Timer1-Timer ()

　　hDestDC=Form1.HDC ′目標(biāo)DC。

　　hSrcDC=Picture1.hDC

　　drawflag =drawbmpmode(bmpnum)

　　Select Case drawflag

　　Case 1 ′從中間逐步放大。

　　endmax=xmax′用于結(jié)束判斷。

　　X1=xmax-movestep

　　w=movestep*2

　　Y1=Cint(ymax-movestep*kxy)

　　h=Cint(2*movestep*kxy)

　　i=BitBlt(hDestDC,X1,Y1,w,h,hSrcDC,X1,Y1,SRCCOPY)

　　Case 2 ′從左到右。

　　endmax=xmax

　　w=movestep*2

　　h=Form1.ScaleHeight

　　i=BitBlt(hDestDC,0,0,w,h,hSrcDC,X1,Y1,SRCCOPY)

　　Case 3 ′左右向中間。

　　endmax=xmax

　　w=movestep

　　h=Form1.ScaleHeight

　　i=BitBlt(hDestDC,0,0,w,h,hSrcDC,0,0,SRCCOPY)′左面部分。

　　X1= Form1.ScaleWidth-movestep

　　i=BitBlt(hDestDC,X1,0,w,h,hSrcDC,X1,0,SRCCOPY) ′左面部分。

　　Case 4 ′柵條狀。

　　endmax=CInt(2*xmax/10)

　　tempi=CInt(2*xmax/10)

　　w=movestep

　　h=Form1.ScaleHeight

　　For s=0 To 9

　　i=BitBlt(hDestDC,tempi*s,0,w,h,hSrcDC,tempi*s,0,SRCCOPY)

　　Next s

　　Case 5 ′棱形狀。