VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
魔兽世界wow > 編程開發 > 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下調試通過。
相關教程