您的位置 首页 PR教程

pr使用教程画中画



关于pr使用教程画中画最佳答案


pr使用教程画中画


1.一、建立窗体。进入VISUALSC5.0系统环境,建立一个新的窗体FORM1。 二、建立视频窗口。在这里笔者使用了一大一小的两个图画框(PictureBox)作为视频窗口。选择控件工具箱中的PictureBox控件,在窗体中拉出两个方框(Picture1和Picture2)。其中Picture1为大画面,播放AVI01.AVI文件;Picture2为小画面,播放AVI02.AVI文件。 三、编写相应控件的脚本。 通用模块: DeclareFunctionmciExecuteLib"winmm.dll"(ByVallpstrCommandAsString)AsLong DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong DeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong FORM1的ACTIVATE过程: DimAAAsLong DimPlayAviAsLong DimtmpValAsString DimKeyValSizeAsLong OnErrorResumeNext tmpVal=String$(1024,0) KeyValSize=1024 PlayAvi=mciSendString("STATUSAVI01READY" Str(Picture2.hwnd),tmpVal,KeyValSize,0) IfPlayAvi263Then PlayAvi=mciExecute("closeAVI01") EndIf tmpVal=String$(1024,0) KeyValSize=1024 PlayAvi=mciSendString("OPENAVI01.AVIALIASAVI01TYPEAVIVIDEOSTYLECHILDPARENT" Str(Picture2.hwnd) "WAIT",tmpVal,KeyValSize,0) x1Pos=Picture1.Width y1Pos=Picture1.Height tmpVal=String$(1024,0) KeyValSize=1024 AA=mciSendString("STATUSAVI01WINDOWHANDLEWAIT",tmpVal,KeyValSize,0) If(Asc(Mid(tmpVal,KeyValSize,1))=0)Then tmpVal=Left(tmpVal,KeyValSize-1) Else tmpVal=Left(tmpVal,KeyValSize) EndIf AA=SetWindowPos(tmpVal,0,0,0,x1Pos,y1Pos,0) AA=mciExecute("WINDOWAVI01STATESHOW") tmpVal=String$(1024,0) KeyValSize=1024 PlayAvi=mciSendString("STATUSAVI02READY" Str(Picture1.hwnd),tmpVal,KeyValSize,0) IfPlayAvi263Then PlayAvi=mciExecute("CLOSEAVI02") EndIf tmpVal=String$(1024,0) KeyValSize=1024 PlayAvi=mciSendString("OPENAVI02.AVIALIASAVI02TYPEAVIVIDEOSTYLECHILDPARENT" Str(Picture1.hwnd) "WAIT",tmpVal,KeyValSize,0) x1Pos=Picture2.Width y1Pos=Picture2.Height tmpVal=String$(1024,0) KeyValSize=1024 AA=mciSendString("STATUSAVI02WINDOWHANDLEWAIT",tmpVal,KeyValSize,0) If(Asc(Mid(tmpVal,KeyValSize,1))=0)Then tmpVal=Left(tmpVal,KeyValSize-1) Else tmpVal=Left(tmpVal,KeyValSize) EndIf AA=SetWindowPos(tmpVal,0,0,0,x1Pos,y1Pos,0) MciExecute"WINDOWAVI02STATESHOW" MciExecute"PLAYAVI01REPEAT" MciExecute"PLAYAVI02REPEAT" OnErrorGoTo0 FORM1的QueryUnload过程: mciExecute"STOPAVI01" mciExecute"STOPAVI02" mciExecute"CLOSEAVI01" mciExecute"CLOSEAVI02" 运行此程序可见两个动画同时播放,实现了视频画中画的效果。以上程序在VISUALSC5.0及WINDOWS95中运行通过。->


关于pr使用教程画中画相关答案



了解更多pr使用教程画中画类似问题


prcc2018零基础入门教程第27讲
pr视频制作教程6分钟
project使用教程b站
pr基础教程案例
pr剪辑教程英文版
procreate基础临摹教程
pr教程去除水印

热门文章

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注