【正文】 Size=宋體 Font第 11章 多媒體程序設(shè)計 =mciExsecute播放 BeginCommand2Caption Begin =6150 ScaleHeight LinkTopic =6150ClientWidth =2235 =2760第 11章 多媒體程序設(shè)計ClientTop ClientLeft=4740sndPlaySoundm及 Caption =H00C0C0下面給出使用 API函數(shù) SndplaySound及 MciExecute播放聲音的完整程序。第 11章 多媒體程序設(shè)計4. =OpenEnd設(shè)定要播放 Wav文件的路徑及文件名 =C:\Windows\Media\Liangzhu.Mid播放 Mdi時要設(shè)置為 sequencer 必須等到下一個 Mci命令完成才能將控件返回應(yīng)用程序=SequencerSub_Form_Load()第 11章 多媒體程序設(shè)計使用 MCI32播放 MIDI的方式與播放 WAV的方式是一樣的。 =CloseEndAsSubSub 39。=C:\Windows\Media\指定文件類型在 Form_Load()中添加下述代碼：Private1的屬性。(3)在窗體上添加 Mmcontrol控制對象 Mmcontrol新建一個工程。就可以增加 Mmcontrol控件。Multimedia3．利用 VB的多媒體控件 MCI32播放音頻及 MIDI音樂使用 MCI32在應(yīng)用程序中加入聲音文件是很容易的事。=c:\windows\media\第 11章 多媒體程序設(shè)計=1=7=9End也可在程序運行后調(diào)用聲音文件，例如：SubFile”，指定硬盤上聲音文件的位置，同時確認 Link方式。Type為聲音文件，并選擇 “CreateSub第 11章 多媒體程序設(shè)計2．利用 從 VB工具箱中可以找到 ，雙擊時該控件會彈出 “InsertBeep:beep:beepKeyascii=0Endkeyascii57keyascii48AsText1_Keypress利用 beep語句使揚聲器發(fā)聲beep語句是 VB提供的一條利用計算機揚聲器發(fā)聲的語句，它雖然只能發(fā)出簡單的蜂鳴聲，但在應(yīng)用程序中大量用于輸出警告的信息。在 VB中用于輸出聲音的方法較多，主要有以下四種。 Sub/=/=Sub以下程序在 Image1 控件，設(shè)置屬性 Stretch為 True。vbDefaultEndIf=*,b1IIf(ThenIfIf*, b1 IIf(ThenpIf,0,*,*0,b1=yg*==/=As畫出縮放DimAsfsEnd=SubEndSub)End=====+====0畫面和滾動條重設(shè)置程序Sub第 11章 多媒體程序設(shè)計Sub+LoadPictureyxd2Single)d1Single,_yxIntegerShiftIntegerPicture2_MouseDown(ButtonSubPrivateIf第 11章 多媒體程序設(shè)計EndCall25blfbifThenvbKeySubtractIffs(blf)End+=150blfvbKey)End + Case)ValuevbKeyUp,Value=IIf(If第 11章 多媒體程序設(shè)計 Max + =Case)Value00 Iif( vbKeyLeftKeyCode第 11章 多媒體程序設(shè)計Integer)SelectShiftIntegerPicture2_KeyDown(KeyCode設(shè)置功能鍵：光標(biāo)鍵移動畫面，加減號縮放畫面PrivateIfEnd=Endccc1ccc10Endccc10ccc1+=EndcccEndccc0Endcccy)(d2通過計算機鼠標(biāo)移動位置，調(diào)用 VScroll_change事件cccThen39。Single)IfySinglexConctrolPicture2_DragDrop(Source以拖放方式滾動畫面PrivateIfEndCallc2c1,+c3,t+c4= =1770Height1500WidthSubEndyg Documents\實例\)yk ====SubAs,IntegerPublicblfd4d3d2d1tfAs,EndEnd程序代碼如下：PublicBorderStyle =0True39。Picture2第 11章 多媒體程序設(shè)計AutoRedraw =1ScaleWidth =5940TabIndex =0Top =90Width =6000BeginScaleHeight =4095Left =90Height =4155Picture1End第 11章 多媒體程序設(shè)計BeginWidth =6090Top =4365TabIndex =2SmallChange =10Left =45LargeChange =300Height =330HScroll1第 11章 多媒體程序設(shè)計BeginEndWidth =330Top =45TabIndex =3SmallChange =10Left =6210LargeChange =300Height =4650VScroll1 ScaleWidth =6720第 11章 多媒體程序設(shè)計BeginScaleHeight =4995 LinkTopic =Form1 ClientWidth =6720 ClientTop =2445ClientLeft =3165ClientHeight =4995Caption =圖像滾動顯示 Form1各對象的屬性定義如下：Begin 第 11章 多媒體程序設(shè)計如圖 113所示，首先在窗體中放置 Picture1作為包容器，然后在其中放置 Picture2，最后在窗體中再放置兩個滾動條 (一個為水平滾動條 HScroll1，另一個為滾動條 VScroll1)。Picture2中圖形的顯示采用了前面介紹過的 PaintPicture方法(見 )，它可以在窗體、圖片框上的任何地方繪制圖形。程序中使用了兩個圖片 Picture1和 Picture2，其中， Picture1第 11章 多媒體程序設(shè)計2.Sub ScreencapSub第 11章 多媒體程序設(shè)計Sub ‘釋放 bHandle,Sourcedc刪除 DESTDCReleaseDCDestDC 39。將內(nèi)存中的位圖拷貝到剪貼板CloseClipboard將剪貼板清空SetClipboardData指定由當(dāng)前活動窗體獨占使用剪貼板第 11章 多媒體程序設(shè)計EemptyClipboardDestDC,0,0,rWidth,rHeight,SourceDC,LT,Top,hccoo20Wnd=OpenClipboardDestDC39。獲得系統(tǒng)顯示設(shè)備的句柄第 11章 多媒體程序設(shè)計DestDC=CreateCompatibleDC(SourceDC,rWidth,rHeight)Screencap(Lt,Top,Rt,Bot)Long‘函數(shù) Screencap() Lib FunctionLong第 11章 多媒體程序設(shè)計PrivateAsValString,nWidthString,ByValGdi32 CreateCompatiBlebitmap DeclareAsAsHdc(By Lib FunctionLongPrivateAs As Val String,lpDeviceNameString,ByValAliasLibFunctionLong第 11章 多媒體程序設(shè)計PrivatedwRopasByAsValLong,xSrcByAsValLong,nHeightByAsValLong,YByAsValAsValLibFunctionLongPrivateAsValLibFunctionLongPrivateAsValAsValLibFunctionLongPrivateAsValAsValLibFunctionLong第 11章 多媒體程序設(shè)計PrivateLibFunctionLongPrivateAsValLibFunctionPrivateLong)AsHdcLong,ByHawnd User32(By ReleaseDC DeclareEndEnd39。=SubSubForm_Load()第 11章 多媒體程序設(shè)計EndEedEed程序代碼如下：Private Width=5775 Top=2925 Left=945Height=1725 ForeColor=H000000FFProperty PropertyBackStyleAlignment=2Label1Timer1Interval=100Left=180Top=3960End第 11章 多媒體程序設(shè)計BeginPicture1Height=4995Left=135第 11章 多媒體程序設(shè)計Picture=:0000ScaleHeight=4935ScaleWidth=7920TabIndex=0Top=180Width=7980BeginForm1Caption=在圖片上平滑移動文字 第 11章 多媒體程序設(shè)計ClientHeight=5400ClientLeft=1650ClientTop=1590ClientWidth=8265LinkTopic=Form1ScaleHeight=5400ScaleWidth=8265Begin各對象屬性如下所示：Begin(2)在 Form1上放置PictureBox控件 Picture1,選定背景圖片。在圖片上平滑移動文字要想使文字在圖片上平滑移動，可用以下方法實現(xiàn)：(1)線的寬度取決于 DrawWidth屬性值。如果不用 F而只用 B，則矩形用當(dāng)前的 FillColor和 FillStyle填充。如果使用了 B選項，則 F選項規(guī)定矩形以矩形邊框的顏色填充。如果選上該參數(shù)，則可利用對角坐標(biāo)畫出矩形。它用于指定畫線時用的 RGB顏色。第 11章 多媒體程序設(shè)計˙(x2,y2)是必需的。該關(guān)鍵字用于指定相對于起點的終點坐標(biāo)。是直線或矩形的起點坐標(biāo)。該關(guān)鍵字用于指定起點坐標(biāo)。對象表達式。語法：[Step](x1,y1)[Step](x2,y2),[Color],[B][F](3)作用：在對象上畫直線和矩形。EndLimitCircle(CX,CY),Radius,RGB(Rnd*255,Rnd*255,Rnd*255)NextRadius=0LimitLimit=CYCXCY/2 39。/2 39。 39。 39。Form_Click()DimCircle方法實例：用 Circle方法在窗體中央畫許多同心圓。(4)˙Aspect是可選的。˙Start,End是可選的。它是半徑第 11章 多媒體程序設(shè)計˙Color是可選的。它是被設(shè)置為圓、橢圓或圓弧的中心點的坐標(biāo)。該關(guān)鍵字用于指定圓、橢圓或圓弧的中心。對象表達式。 Radius,[Color,Start,End,Aspect](3)(2)方法(1)Sub 39。 39