第11章多媒體程序設(shè)計(編輯修改稿)
2025-02-23 20:53 本頁面
【文章內(nèi)容簡介】 0。drawjpgmode(2)=3第 11章 多媒體程序設(shè)計drawjpgmode(3)=4movestep=039。步進參數(shù)xmax=ymax=kxy=ymax/xmax=LoadPicture(jpgfile(jpgnum))39。裝入圖像=5039。定時器啟動EndSub第 11章 多媒體程序設(shè)計39。切換畫面工作在定時器中完成PrivateSubTimer1_Timer()hDestDC=39。目標(biāo) DChSrcDC=39。源 DC,畫是從不可見的 Picture1中拷貝到窗體的drawflag=drawjpgmode(jpgnum)39。當(dāng)前畫出現(xiàn)的方式SelectCasedrawflagCase139。從中間逐步放大=從中間逐步放大 endmax=xmax39。用于結(jié)束判斷第 11章 多媒體程序設(shè)計 x1=xmaxmovestepw=movestep*2y1=CInt(ymaxmovestep*kxy)h=Cint(2*movestep*kxy)i=BitBlt(hDestDC,x1,y1,w,h,hSrcDC,x1,y1,SrcCopy)Case239。從左到右=“從左到右 ”endmax=xmaxw=movestep*2h=i=BitBlt(hDextDC,0,0,w,h,hSrcDC,x1,y1,SrcCopy)第 11章 多媒體程序設(shè)計Case339。左右向中間=從右到左 endmax=xmaxw=movesteph=i=BitBlt(hDestDC,0,0,w,h,hSrcDC,0,0,SrcCopy)39。左面部分x1=movestepi=BitBlt(hDestDC,x1,0,(1)*w,h,hSrcDC,x1,0,SrcCopy)39。右面部分第 11章 多媒體程序設(shè)計Case439。柵條狀=柵條狀 endmax=CInt(2*xmax/10)39。共分為 10條柵條tempi=CInt(2*xmax/10)w=movesteph=Forij=0To9i=BitBlt(hDestDC,tempi*ij,0,w,h,hSrcDC,tempi*ij,0,SrcCopy)NextijEndSelect第 11章 多媒體程序設(shè)計movestep=movestep+239。步進增加IfmovestependmaxThen39。若步進夠大，畫面都已顯示，本張畫結(jié)束切換jpgnum=jpgnum+139。進到下一張畫Ifjpgnum=jpgfilemaxThen39。若 5張畫已顯示完則再從第一張開始第 11章 多媒體程序設(shè)計jpgnum=0EndIfmovestep=0=LoadPicture(jpgfile(jpgnum))39。裝入圖像EndIfEndSub第 11章 多媒體程序設(shè)計LoadPicture函數(shù)和 SavePicture語句1.LoadPicture函數(shù)(1) 作用：將圖形載入到窗體的 Picture屬性、 PictureBox控件或 Image控件。(2)語法： LoadPicture([Filename]， [Size]， [ColorDepth]， [x， y])(3)參數(shù)說明：˙FileName是可選的。選中此參數(shù)后，字符串表達式指定一個文件名，可以包括文件夾和驅(qū)動器。如果未指定文件名， LoadPicture清除圖像或 PictureBox控件。第 11章 多媒體程序設(shè)計˙Size可選變體。如果 FileName是光標(biāo)或圖標(biāo)文件，該參數(shù)用于指定想要的圖像大小。˙ColorDepth可選變體。如果 FileName是一個光標(biāo)或圖標(biāo)文件，該參數(shù)用于指定想要的顏色深度，見表 111。第 11章 多媒體程序設(shè)計表 指定顏色深度第 11章 多媒體程序設(shè)計˙x 可選變體，如果使用 y，則必須使用。只有當(dāng)ColorDepth設(shè)為 vbLPCustom時，才使用 x和 y值。˙y可選變體。使用同 x注：賦值不帶參數(shù)的 LoadPicture將清除窗體、圖片框及圖像控件中的圖形。為了加載 PictureBox控件和Image控件中顯示的圖形或加載作為窗體背景的圖形，必須將 LoadPicture的返回值賦給要顯示該圖片的對象的 Picture屬性。例如：SetPicture=LoadPicture()Set=LoadPicture()第 11章 多媒體程序設(shè)計如果要將圖標(biāo)賦予窗體，則要把 LoadPicture函數(shù)的返回值賦給 Form1對象 Icon屬性，即Set=LoadPicture()圖標(biāo)也可以被賦予除 Timer控件和 Menu控件以外的其他控件的 DragIcon屬性，例如：Set=LoadPicture()使用 LoadPicture可以將圖形文件載入到系統(tǒng)剪貼板，程序代碼如下：LoadPicture()第 11章 多媒體程序設(shè)計2.LoadPicture函數(shù)實例 本例使用 LoadPicture函數(shù)將圖片加載到窗體的PictureBox控件并從控件上清除掉該圖片。程序運行后，單擊窗體，即可看到所加載的圖片。對象屬性設(shè)置如下：BeginForm1Caption = Form1ClientHeight= 3540ClientLeft = 1650第 11章 多媒體程序設(shè)計Clienttop = 1590ClientWidth = 5010LinkTopic = Form1ScaleHeight= 3540ScaleWidth = 5010 BeginPicture1Height = 615Left = 2160第 11章 多媒體程序設(shè)計ScaleHeight = 555ScaleWidth = 675TabIndex = 0Top = 1200Width = 735 BeginPicture1Height = 615Left = 2160ScaleHeight= 555ScaleWidth = 675第 11章 多媒體程序設(shè)計BeginPicture1Height = 615Left = 2160ScaleHeight= 555ScaleWidth = 675TabIndex = 0Top = 1200Width = 735EndEnd第 11章 多媒體程序設(shè)計 程序代碼如下：PrivateSubForm_Click()DimMsgAsString39。聲明變量OnErrorResumeNext39。設(shè)置錯誤句柄Height=3990Width=489039。設(shè)置高度和寬度 = LoadPicture (+\,vbLPCustom,vbLPColor,32,32)加載光標(biāo)IfErrThenMsg=Couldn39。tfindthe.curfile.第 11章 多媒體程序設(shè)計MsgBoxMsg39。顯示錯誤消息ExitSub39。如果發(fā)生錯誤則退出EndIfMsg=ChooseOKtoclearthebitmapfromtheform.MsgBoxMsg=LoadPicture()39。清除 PictureBoxEndSub第 11章 多媒體程序設(shè)計Pset、 Circle、 Line繪圖方法除了圖形控件 (Line控件、 Shape控件 )之外， VB還提供了創(chuàng)建圖形的一些方法，見表 112。 表 112創(chuàng)建圖形方法 第 11章 多媒體程序設(shè)計在任
法律信息相關(guān)推薦
鄂ICP備17016276號-1