1、/-#include #pragma hdrstop#include “Math.h“#define PI 3.14#include “Unit1.h“/-#pragma package(smart_init)#pragma resource “*.dfm“TForm1 *Form1;/-_fastcall TForm1:TForm1(TComponent* Owner): TForm(Owner)/-void _fastcall TForm1:ComboBox1Change(TObject *Sender)int i,j,b,k,loop1,loop2,bmpWidth,bmpHeight;
2、bmpWidth=d-Width;bmpHeight=d-Height;/ d-Height=display-Height;/ d-Width=display-Width;Graphics:TBitmap *s = new Graphics:TBitmap();s-Width=bmpWidth;s-Height=bmpHeight;/d-Canvas-CopyMode=cmSrcCopy;/ s-Canvas-CopyRect(TRect(0,0,s-Width,s-Height),display-Canvas,TRect(0,0,display-Width,display-Height);s
3、-Canvas-StretchDraw(TRect(0,0,s-Width,s-Height),display-Picture-Graphic);d-Refresh();switch(this-ComboBox1-ItemIndex)case 0: /不使用效果d-Canvas-Draw(0,0,s);break;case 1: /向上拉幕for(i=bmpHeight;i=0;i-)BitBlt(d-Canvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);Sleep(10);break;case 2: /向下拉幕for(i=0;iC
4、anvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);Sleep(10);break;case 3: /向左拉幕for(i=bmpWidth;i=0;i-)BitBlt(d-Canvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);Sleep(10);break;case 4: /向右拉幕for(i=0;iCanvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);Sleep(10);break;case 5: / 上
5、下对拉向中间k=(bmpHeight+1)/2;for(i=0;iCanvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);BitBlt(d-Canvas-Handle,0,bmpHeight-i,bmpWidth,1,s-Canvas-Handle,0,bmpHeight-i,SRCCOPY);Sleep(10);break;case 6: / 上下对拉向两边k=(bmpHeight+1)/2;for(i=k;i=0;i-)BitBlt(d-Canvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,
6、i,SRCCOPY);BitBlt(d-Canvas-Handle,0,2*k-i,bmpWidth,1,s-Canvas-Handle,0,2*k-i,SRCCOPY);Sleep(10);break;case 7: /左右对拉向中心k=(bmpWidth+1)/2;for(i=0;iCanvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);BitBlt(d-Canvas-Handle,bmpWidth-i,0,1,bmpHeight,s-Canvas-Handle,bmpWidth-i,0,SRCCOPY);Sleep(10);b
7、reak;case 8: /左右对拉向两边k=(bmpWidth/2);for(i=k;i=0;i-)BitBlt(d-Canvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);BitBlt(d-Canvas-Handle,2*k-i,0,1,bmpHeight,s-Canvas-Handle,2*k-i,0,SRCCOPY);Sleep(10);break;case 9: /正向斜边下拉 几何:y(top)=-(height/Width)*x(left)-Width+位移for(i=0;iCanvas-Handle,j-1,k-1,
8、1,1,s-Canvas-Handle,j-1,k-1,SRCCOPY);BitBlt(d-Canvas-Handle,j,k-1,1,1,s-Canvas-Handle,j,k-1,SRCCOPY);/BitBlt(d-Canvas-Handle,j-1,k,1,1,s-Canvas-Handle,j-1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 10: /正向斜边上拉 几何上应为:y(top
9、)=-(height/Width)*x(left)-Width+位移for(i=2*bmpWidth;i=0;i-)/一条斜线b=bmpHeight*i/bmpWidth;for(j=0;jCanvas-Handle,j+1,k+1,1,1,s-Canvas-Handle,j+1,k+1,SRCCOPY);/BitBlt(d-Canvas-Handle,j,k+1,1,1,s-Canvas-Handle,j,k+1,SRCCOPY);/BitBlt(d-Canvas-Handle,j+1,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY);BitBlt(d-Canvas-
10、Handle,j+1,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 11: /正向斜边对拉for(i=bmpWidth;i=0;i-)/一条斜线for(j=0;jCanvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY); /上拉BitBlt(d-Canvas-Handle,j-1,k,1,1,s-Canv
11、as-Handle,j-1,k,SRCCOPY); /上拉k=-(bmpHeight*j)/bmpWidth+bmpHeight*(bmpWidth-i)/bmpWidth;/BitBlt(d-Canvas-Handle,j,k+1,1,1,s-Canvas-Handle,j,k+1,SRCCOPY);/BitBlt(d-Canvas-Handle,j+1,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY); /下拉BitBlt(d-Canvas-Han
12、dle,j-1,k,1,1,s-Canvas-Handle,j-1,k,SRCCOPY); /下拉Application-ProcessMessages();Sleep(10);break;case 12: /反向斜边下拉 几何上应为:y(top)=-(height/Width)*x(left)-Width+位移for(i=bmpWidth;i=-bmpWidth;i-)/一条斜线b=-bmpHeight*i/bmpWidth;for(j=i;jCanvas-Handle,j-1,k-1,1,1,s-Canvas-Handle,j-1,k-1,SRCCOPY);/BitBlt(d-Canvas
13、-Handle,j,k-1,1,1,s-Canvas-Handle,j,k-1,SRCCOPY);BitBlt(d-Canvas-Handle,j-1,k,1,1,s-Canvas-Handle,j-1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 13: /反向斜边上拉 几何上应为:y(top)=-(height/Width)*x(left)-Width+位移for(i=-bmpWidth;iCa
14、nvas-Handle,j-1,k-1,1,1,s-Canvas-Handle,j-1,k-1,SRCCOPY);/BitBlt(d-Canvas-Handle,j,k-1,1,1,s-Canvas-Handle,j,k-1,SRCCOPY);BitBlt(d-Canvas-Handle,j+1,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 14:
15、 /反向斜边对拉for(i=0;iCanvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY); /上拉BitBlt(d-Canvas-Handle,j+1,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY); /上拉/k=(bmpHeight*(j-bmpWidth)/bmpWidth-bmpHeight*(i-bmpWidth)/bmpWidth;/BitBlt(d-Canvas-Handle,j,k+1,1,1,s-Canvas-Handle,j,k+1,SRCCOPY);/BitBlt(d-Canvas-Handle,j+1
16、,k,1,1,s-Canvas-Handle,j+1,k,SRCCOPY);/BitBlt(d-Canvas-Handle,j-bmpWidth,k,1,1,s-Canvas-Handle,j-bmpWidth,k,SRCCOPY); /下拉/k=(bmpHeight*j)/bmpWidth+b;b=-bmpHeight*(i-bmpWidth)/bmpWidth;for(j=i-bmpWidth;jCanvas-Handle,j-1,k-1,1,1,s-Canvas-Handle,j-1,k-1,SRCCOPY);/BitBlt(d-Canvas-Handle,j,k-1,1,1,s-Can
17、vas-Handle,j,k-1,SRCCOPY);/BitBlt(d-Canvas-Handle,j-1,k,1,1,s-Canvas-Handle,j-1,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);BitBlt(d-Canvas-Handle,j-1,k,1,1,s-Canvas-Handle,j-1,k,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 15: /向上移动for(i=bmpHeight;i=0;i-)Bi
18、tBlt(d-Canvas-Handle,0,i,bmpWidth,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);Sleep(10);break;case 16: /向下移动for(i=-bmpHeight;iCanvas-Handle,0,i,bmpWidth,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);Sleep(10);break;case 17: /向左移动for(i=bmpWidth;i=0;i-) BitBlt(d-Canvas-Handle,i,0,bmpWidth,bmpHeight,s-Canvas-Handl
19、e,0,0,SRCCOPY);Sleep(10);break;case 18: /向右移动for(i=-bmpWidth;iCanvas-Handle,i,0,bmpWidth,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);Sleep(10);break;case 19: /中间向左右移动for(i=(bmpWidth+1)/2;i=0;i-)BitBlt(d-Canvas-Handle,i,0,(bmpWidth+1)/2-i,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);/BitBlt(d-Canvas-Handle,i,0,
20、bmpWidth-i,bmpHeight,s-Canvas-Handle,(bmpWidth+1)/2,0,SRCCOPY);BitBlt(d-Canvas-Handle,(bmpWidth+1)/2,0,(bmpWidth+1)/2-i,bmpHeight,s-Canvas-Handle,(bmpWidth+1)/2+i,0,SRCCOPY);Sleep(10);break;case 20: /中间向上下移动for(i=(bmpHeight+1)/2;i=0;i-)BitBlt(d-Canvas-Handle,0,i,bmpWidth,(bmpHeight+1)/2-i,s-Canvas-H
21、andle,0,0,SRCCOPY);BitBlt(d-Canvas-Handle,0,(bmpHeight+1)/2,bmpWidth,(bmpHeight+1)/2-i,s-Canvas-Handle,0,(bmpHeight+1)/2+i,SRCCOPY);Sleep(10);break;case 21: /水平交叉k=bmpHeight/4;for(i=0;iCanvas-Handle,bmpWidth-i,0,bmpWidth,k,s-Canvas-Handle,0,0,SRCCOPY);BitBlt(d-Canvas-Handle,i-bmpWidth,k,bmpWidth,k,s
22、-Canvas-Handle,0,k,SRCCOPY);BitBlt(d-Canvas-Handle,bmpWidth-i,2*k,bmpWidth,k,s-Canvas-Handle,0,2*k,SRCCOPY);BitBlt(d-Canvas-Handle,i-bmpWidth,3*k,bmpWidth,bmpHeight-3*k,s-Canvas-Handle,0,3*k,SRCCOPY);/BitBlt(d-Canvas-Handle,i-bmpWidth,(bmpHeight+1)/2,bmpWidth,(bmpHeight+1)/2-i,s-Canvas-Handle,0,(bmp
23、Height+1)/2+i,SRCCOPY);Sleep(10);break;case 22: /垂直交叉k=bmpWidth/4;for(i=0;iCanvas-Handle,0,0,k,i,s-Canvas-Handle,0,bmpHeight-i,SRCCOPY);BitBlt(d-Canvas-Handle,k,bmpHeight-i,k,bmpHeight,s-Canvas-Handle,k,0,SRCCOPY);BitBlt(d-Canvas-Handle,k+k,0,k,i,s-Canvas-Handle,k+k,bmpHeight-i,SRCCOPY);BitBlt(d-Can
24、vas-Handle,3*k,bmpHeight-i,bmpWidth-3*k,bmpHeight,s-Canvas-Handle,3*k,0,SRCCOPY);/BitBlt(d-Canvas-Handle,bmpWidth-i,2*k,bmpWidth,k,s-Canvas-Handle,bmpWidth-i,2*k,SRCCOPY);/BitBlt(d-Canvas-Handle,0,3*k,i,bmpHeight-3*k,s-Canvas-Handle,0,3*k,SRCCOPY);/BitBlt(d-Canvas-Handle,0,(bmpHeight+1)/2,bmpWidth,(
25、bmpHeight+1)/2-i,s-Canvas-Handle,0,(bmpHeight+1)/2+i,SRCCOPY);Sleep(10);break;case 23: /右下角移入if(bmpWidthbmpHeight)for(i=0;iCanvas-Handle,bmpWidth-i,bmpHeight-j,bmpWidth,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);/上移Sleep(10);elsefor(j=0;jCanvas-Handle,bmpWidth-i,bmpHeight-j,bmpWidth,bmpHeight,s-Canvas-H
26、andle,0,0,SRCCOPY);/上移Sleep(10);break;case 24: /周围到中心if(bmpWidthbmpHeight)for(i=0;iCanvas-Handle,i,j,1,bmpHeight-2*j,s-Canvas-Handle,i,j,SRCCOPY);/横BitBlt(d-Canvas-Handle,bmpWidth-i,j,1,bmpHeight-2*j,s-Canvas-Handle,bmpWidth-i,j,SRCCOPY);BitBlt(d-Canvas-Handle,i,j,bmpWidth-2*i,1,s-Canvas-Handle,i,j,
27、SRCCOPY); /纵BitBlt(d-Canvas-Handle,i,bmpHeight-j,bmpWidth-2*i+1,1,s-Canvas-Handle,i,bmpHeight-j,SRCCOPY);Sleep(10);elsefor(j=0;jCanvas-Handle,i,j,1,bmpHeight-2*j,s-Canvas-Handle,i,j,SRCCOPY);/横BitBlt(d-Canvas-Handle,bmpWidth-i,j,1,bmpHeight-2*j,s-Canvas-Handle,bmpWidth-i,j,SRCCOPY);BitBlt(d-Canvas-H
28、andle,i,j,bmpWidth-2*i,1,s-Canvas-Handle,i,j,SRCCOPY); /纵BitBlt(d-Canvas-Handle,i,bmpHeight-j,bmpWidth-2*i+1,1,s-Canvas-Handle,i,bmpHeight-j,SRCCOPY);/BitBlt(d-Canvas-Handle,bmpWidth-i,0,1,bmpHeight,s-Canvas-Handle,bmpWidth-i,0,SRCCOPY);Sleep(20);break;case 25: /周围到中心if(bmpWidthbmpHeight)for(i=0;iCa
29、nvas-Handle,(bmpWidth+1)/2-i,(bmpHeight+1)/2-j,i+i,j+j,s-Canvas-Handle,(bmpWidth+1)/2-i,(bmpHeight+1)/2-j,SRCCOPY);/横Sleep(10);elsefor(j=0;jCanvas-Handle,(bmpWidth+1)/2-i,(bmpHeight+1)/2-j,i+i,j+j,s-Canvas-Handle,(bmpWidth+1)/2-i,(bmpHeight+1)/2-j,SRCCOPY);/横Sleep(10);break;case 26: /菱形从周围到中心for(i=0
30、;iCanvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k+1,1,1,s-Canvas-Handle,j,k+1,SRCCOPY);k=(bmpHeight*(bmpWidth-i+j)/bmpWidth-bmpHeight*(bmpWidth-i)/bmpWidth; /反向下拉BitBlt(d-Canvas-Handle,bmpWidth-i+j,k,1,1,s-Canvas-Handle,bmpWidth-i+j,k,SRCCOPY);BitBlt(d-Canvas-Handle,bmp
31、Width-i+j,k-1,1,1,s-Canvas-Handle,bmpWidth-i+j,k-1,SRCCOPY);k=-(bmpHeight*(bmpWidth-j)/bmpWidth+bmpHeight*(2*bmpWidth-i)/bmpWidth;/正向上拉BitBlt(d-Canvas-Handle,(bmpWidth-j),k,1,1,s-Canvas-Handle,(bmpWidth-j),k,SRCCOPY);BitBlt(d-Canvas-Handle,(bmpWidth-j),k-1,1,1,s-Canvas-Handle,(bmpWidth-j),k-1,SRCCOP
32、Y);k=(bmpHeight*(j)/bmpWidth+bmpHeight*(bmpWidth-i)/bmpWidth; /反向上拉BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k-1,1,1,s-Canvas-Handle,j,k-1,SRCCOPY);Application-ProcessMessages();Sleep(10);break;case 27: /菱形从中心到周围for(i=bmpWidth;i=0;i-)/一条斜线for(j=0;jCanvas-Ha
33、ndle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k+1,1,1,s-Canvas-Handle,j,k+1,SRCCOPY);if(j-(bmpWidth+1)/2=(bmpWidth+1)/2)k=(bmpHeight*(bmpWidth-i+j)/bmpWidth-bmpHeight*(bmpWidth-i)/bmpWidth; /反向下拉BitBlt(d-Canvas-Handle,bmpWidth-i+j,k-1,1,1,s-Canvas-Handle,bmpWidth-i+j,k-1,SRCCOPY
34、);BitBlt(d-Canvas-Handle,bmpWidth-i+j,k,1,1,s-Canvas-Handle,bmpWidth-i+j,k,SRCCOPY);if(bmpWidth-j=(bmpWidth+1)/2)k=-(bmpHeight*(bmpWidth-j)/bmpWidth+bmpHeight*(2*bmpWidth-i)/bmpWidth;/正向上拉if(k=(bmpHeight+1)/2)BitBlt(d-Canvas-Handle,(bmpWidth-j),k,1,1,s-Canvas-Handle,(bmpWidth-j),k,SRCCOPY);BitBlt(d-
35、Canvas-Handle,(bmpWidth-j),k-1,1,1,s-Canvas-Handle,(bmpWidth-j),k-1,SRCCOPY);if(j=(bmpHeight+1)/2)BitBlt(d-Canvas-Handle,j,k,1,1,s-Canvas-Handle,j,k,SRCCOPY);BitBlt(d-Canvas-Handle,j,k-1,1,1,s-Canvas-Handle,j,k-1,SRCCOPY);/* */Application-ProcessMessages();Sleep(10);break;case 28: /从左放大for(i=0;iWidt
36、h=i;s-Canvas-StretchDraw(TRect(0,0,i,d-Height),display-Picture-Graphic);BitBlt(d-Canvas-Handle,0,0,i,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);/d-Canvas-Draw(0,0,s);Sleep(10);break;case 29: /从中间向两边放大for(i=0;iWidth=i;s-Canvas-StretchDraw(TRect(0,0,i,d-Height),display-Picture-Graphic);BitBlt(d-Canvas-Han
37、dle,(bmpWidth+1-i)/2,0,i,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);/d-Canvas-Draw(0,0,s);Sleep(10);break;case 30: /从中间向两边放大for(i=0;iHeight=i;s-Canvas-StretchDraw(TRect(0,0,s-Width,i),display-Picture-Graphic);BitBlt(d-Canvas-Handle,0,(bmpHeight+1-i)/2,bmpWidth,i,s-Canvas-Handle,0,0,SRCCOPY);/d-Canvas-Dr
38、aw(0,0,s);Sleep(10);break;case 31: /从中间向两边放大k=(bmpWidth+15)/32;/ b=bmpWidth/bmpHeightfor(i=0;iCanvas-Handle,j*32,0,i,bmpHeight,s-Canvas-Handle,j*32,0,SRCCOPY);/* for(loop1=0;loop1Canvas-Handle,0,loop1*16,bmpWidth,loop1*16+i*b,s-Canvas-Handle,0,loop1*16,SRCCOPY); */Sleep(40);break;case 32: /上渐出for(i=
39、0;i=0;j-)BitBlt(d-Canvas-Handle,0,4*j+i,bmpWidth,1,s-Canvas-Handle,0,4*j+i,SRCCOPY);Sleep(10);break;case 33: /上渐出for(i=0;iCanvas-Handle,0,4*j+i,bmpWidth,1,s-Canvas-Handle,0,4*j+i,SRCCOPY);Sleep(10);break;case 34: /左渐出for(i=0;iCanvas-Handle,i+4*j,0,1,bmpHeight,s-Canvas-Handle,4*j+i,0,SRCCOPY);Sleep(1
40、0);break;case 35: /右渐出for(i=0;i=0;j-)BitBlt(d-Canvas-Handle,i+4*j,0,1,bmpHeight,s-Canvas-Handle,4*j+i,0,SRCCOPY);Sleep(10);break;case 36: /上花出for(i=bmpHeight;i=0;i-)for(j=0;jCanvas-Handle,0,j,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);Sleep(10);break;case 37: /右花出for(i=0;i=i;j-)BitBlt(d-Canvas-Handle,j
41、,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);Sleep(10);break;case 38: /放大出for(i=0;iWidth;i+)/s-Height=1;s-Width=i;s-Height=i*bmpHeight/bmpWidth;s-Canvas-StretchDraw(TRect(0,0,s-Width,s-Height),display-Picture-Graphic);BitBlt(d-Canvas-Handle,(bmpWidth-i+1)/2,(bmpHeight-i*bmpHeight/bmpWidth+1)/2,bmpWid
42、th,bmpHeight,s-Canvas-Handle,0,0,SRCCOPY);Sleep(10);break;case 39: /缩小出for(i=2*bmpWidth;i=bmpWidth;i-)s-Width=i;s-Height=i*bmpHeight/bmpWidth;s-Canvas-StretchDraw(TRect(0,0,s-Width,s-Height),display-Picture-Graphic);BitBlt(d-Canvas-Handle,0,0,bmpWidth,bmpHeight,s-Canvas-Handle,(s-Width-bmpWidth)/2,(
43、s-Height-bmpHeight)/2,SRCCOPY);Sleep(5);break;delete s;/-void _fastcall TForm1:Button1Click(TObject *Sender)Application-Terminate();/-void _fastcall TForm1:PictureExit(TImage *source,TPaintBox *destination,int style,int speed)int i,j,b,k,loop1,loop2,bmpWidth,bmpHeight;TRect rect;rect=destination-Cli
44、entRect;bmpWidth=destination-Width;bmpHeight=destination-Height;Graphics:TBitmap *s = new Graphics:TBitmap();Graphics:TBitmap *nextpic = new Graphics:TBitmap();s-Width=bmpWidth;s-Height=bmpHeight;nextpic-Width=bmpWidth;nextpic-Height=bmpHeight;s-Canvas-CopyRect(rect,destination-Canvas,rect);if(sourc
45、e!=0)s-Canvas-StretchDraw(TRect(0,0,s-Width,s-Height),source-Picture-Graphic);/nextpic-Canvas-StretchDraw(rect,source-Picture-Graphic);elses-Canvas-Brush-Color=clBlack;s-Canvas-FillRect(TRect(0,0,s-Width,s-Height);switch(style)case 0: /不使用效果destination-Canvas-Draw(0,0,s);break;case 1: /向上拉幕for(i=bmp
46、Height;i=0;i-)BitBlt(destination-Canvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);Sleep(speed);break;case 2: /向下拉幕for(i=0;iCanvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);Sleep(speed);break;case 3: /向左拉幕for(i=bmpWidth;i=0;i-)BitBlt(destination-Canvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);Sleep(speed);break;case 4: /向右拉幕for(i=0;iCanvas-Handle,i,0,1,bmpHeight,s-Canvas-Handle,i,0,SRCCOPY);Sleep(speed);break;case 5: / 上下对拉向中间k=(bmpHeight+1)/2;for(i=0;iCanvas-Handle,0,i,bmpWidth,1,s-Canvas-Handle,0,i,SRCCOPY);BitBlt(destination-Canvas-Handle,0,bmpHeight-i,b