最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
首頁 > 編程開發 > vb >
  • vb教程之用VB制作RM壓縮軟件

  • 2017-09-21 11:27 來源:未知
有一天在網上閑逛時看到了一個可以用來做RM電影的軟件,名字是RealProducer。下載安裝后立即用它做了一個小小的RM電影一試身手,感覺速度和質量還是可以接受的,但是離我的要求還是差了一點,畢竟是共享軟件,在沒有注冊的情況下好多的功能都被屏蔽了,真可惜。 

無奈之際我讀了它的幫助文件,突然發現RealProducer的核心部分就是用ProducerControl.ocx控件編的,這個控件支持從.mpg、.dat、.avi、.mov、.qt 等文件格式到.rm格式的轉換,功能還不差呢!呵呵,真是天助我也! 

打開VB新建一個工程,在窗體上添加兩個CommandButton,Name屬性分別是Run和Stop,Caption屬性分別是“開始編碼”與“停止編碼”。再添加兩個TextBox,Name 屬性分別是InputFile和OutPutFile,是用來確定輸入輸出文件名的。依次點擊Project、Components,在Components對話框中選上Real Producer ActiveX Control Library后按下確定,窗體上就會自動加入ProducerControl1控件了。最終的窗體設計請參考附圖。 

切換到代碼編輯窗口并輸入以下代碼: 
Private Sub Form_Load() 
InputFile = "" 

OutputFile = "" 

ProducerControl1.InputType = INPUT_SOURCE_FILE 

ProducerControl1.InputFilename = "" 

ProducerControl1.TempDirectory = "c:\temp" 

ProducerControl1.OutputFilename = "" 

End Sub 

Private Sub Run_Click() 

ProducerControl1.InputFilename = InputFile 

ProducerControl1.OutputFilename = OutputFile 

ProducerControl1.StartEncoding 

End Sub 

Private Sub Stop_Click() 

ProducerControl1.StopEncoding 

End Sub 

以上的代碼只是個演示,只能實現簡單的RM文件制作,如果你還想要挖掘ProducerControl,那么VB中的Object Browser將成為你的好幫手。順便說一句,網上好多的RM制作軟件都是利用ProducerControl.ocx編出來的,只是ProducerControl. visible=False罷了! 

程序在VB6+Windows2000下調試通過。
pk10赛车冠军技巧
最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
吉林十一选五多少期 什么网游能赚钱 托管班 赚钱 山水闲来广西麻将下载 56打工网是怎么赚钱的 当老公是赚钱工具 比特现金币很赚钱吗 捕鱼来了怎么刷到1亿 大芬村 赚钱 吗