VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
当前位置:
主页 > 编程开发 > 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下调试通过。
相关教程
  • 中国算是世界杯中最能长期保持着稳定成绩的一个了。 2018-12-19
  • 北欧的千湖之国被选为2018全球最幸福国家 2018-12-19
  • 设计众议院:神奇的MQB让全新一代宝来重生 2018-12-19
  • 坚持思想建党 推进理论强党 2018-12-18
  • 苏57空中姿态控制能力瞬间救场, F22隐身战机无法超越! 2018-12-18
  • 河北省对中央环保督察“回头看”问题整改进行部署 强化标本兼治 防止整改问题反弹 2018-12-18
  • 文天祥就义秘闻:时人写“生祭文”催其速死成就英名 2018-12-18
  • 在学习中进步。[奋斗] 2018-12-17
  • 香港海关加强查检堵截涉世界杯赛事侵权物品 2018-12-17
  • 中兴展台图赏:可折叠手机AXON M吸睛丨CES2018 2018-12-17
  • 逛博物馆 淳化大鼎的身世之谜:是何方显贵之物? 2018-12-16
  • 大陆首批台湾乘务员晋升乘务长 2018-12-16
  • 端午假期国内游客超8900万人次 全域旅游见成效 2018-12-15
  • 好,那我领教一下,回答我提出的问题 2018-12-15
  • 藏医保健常识:保肝护肝有讲究 2018-12-15
  • 832| 114| 186| 149| 785| 1| 951| 467| 31| 568|