<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      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下調試通過。
      相關教程
      江苏快3 云浮 | 灌云 | 迪庆 | 湘西 | 台州 | 泸州 | 临沧 | 黄冈 | 迁安市 | 辽宁沈阳 | 扬州 | 南充 | 瓦房店 | 株洲 | 海西 | 徐州 | 香港香港 | 三河 | 廊坊 | 湘西 | 眉山 | 姜堰 | 蚌埠 | 黄冈 | 江门 | 防城港 | 长垣 | 孝感 | 大兴安岭 | 霍邱 | 贺州 | 云浮 | 衢州 | 朝阳 | 潍坊 | 三亚 | 苍南 | 琼中 | 宁波 | 阿里 | 廊坊 | 云浮 | 简阳 | 延安 | 衢州 | 澳门澳门 | 内蒙古呼和浩特 | 扬中 | 乐山 | 衡阳 | 郴州 | 绍兴 | 昌吉 | 汉中 | 汉川 | 沛县 | 湘西 | 高密 | 姜堰 | 章丘 | 东阳 | 铁岭 | 锦州 | 绍兴 | 济源 | 克拉玛依 | 大庆 | 吉林长春 | 兴化 | 邢台 | 丹阳 | 甘南 | 大理 | 来宾 | 昭通 | 绍兴 | 黄山 | 信阳 | 灌云 | 日照 | 株洲 | 如东 | 通化 | 长兴 | 吕梁 | 珠海 | 大连 | 醴陵 | 章丘 | 景德镇 | 临汾 | 绥化 | 资阳 | 寿光 | 乳山 | 新泰 | 肥城 | 绥化 | 无锡 | 晋中 | 张家口 | 沛县 | 河北石家庄 | 大连 | 馆陶 | 凉山 | 运城 | 单县 | 齐齐哈尔 | 甘南 | 厦门 | 阿拉善盟 | 贺州 |