需要条件:安装了RealPlayer..因为我们需要用到它里面的rmoc3260.dll控件 新建一个工程>>Form,引用System目录下的rmoc3260.dll控件,也可以直接在菜单:工程>>部件里面引用:realplayer activex control libray,可以看到“工具箱”里新增了一个realaudio控件,把它拖到窗体新建一个:realaudio1控件,再添加一个commandbutton作为播放控制按钮,添加如下代码: private sub command1_click() RealAudio1.Source="file://E:\DVD\我的野蛮女友\我的野蛮女友1.rm" 'RM文件路径 RealAudio1.doplay'OK,可以开始欣赏了 end sub'可以直接通过设置realaudio1的windth 和 height来设置显示区域的大小,用realaudio1的getclipwidht和getclipheight函数可以得到电影的原始大小
需要条件:安装了RealPlayer..因为我们需要用到它里面的rmoc3260.dll控件 新建一个工程>>Form,引用System目录下的rmoc3260.dll控件,也可以直接在菜单:工程>>部件里面引用:realplayer activex control libray,可以看到“工具箱”里新增了一个realaudio控件,把它拖到窗体新建一个:realaudio1控件,再添加一个commandbutton作为播放控制按钮,添加如下代码: private sub command1_click() RealAudio1.Source="file://E:\DVD\我的野蛮女友\我的野蛮女友1.rm" 'RM文件路径 RealAudio1.doplay'OK,可以开始欣赏了 end sub'可以直接通过设置realaudio1的windth 和 height来设置显示区域的大小,用realaudio1的getclipwidht和getclipheight函数可以得到电影的原始大小
新建一个工程>>Form,引用System目录下的rmoc3260.dll控件,也可以直接在菜单:工程>>部件里面引用:realplayer activex control libray,可以看到“工具箱”里新增了一个realaudio控件,把它拖到窗体新建一个:realaudio1控件,再添加一个commandbutton作为播放控制按钮,添加如下代码:
private sub command1_click()
RealAudio1.Source="file://E:\DVD\我的野蛮女友\我的野蛮女友1.rm" 'RM文件路径
RealAudio1.doplay'OK,可以开始欣赏了
end sub'可以直接通过设置realaudio1的windth 和 height来设置显示区域的大小,用realaudio1的getclipwidht和getclipheight函数可以得到电影的原始大小
新建一个工程>>Form,引用System目录下的rmoc3260.dll控件,也可以直接在菜单:工程>>部件里面引用:realplayer activex control libray,可以看到“工具箱”里新增了一个realaudio控件,把它拖到窗体新建一个:realaudio1控件,再添加一个commandbutton作为播放控制按钮,添加如下代码:
private sub command1_click()
RealAudio1.Source="file://E:\DVD\我的野蛮女友\我的野蛮女友1.rm" 'RM文件路径
RealAudio1.doplay'OK,可以开始欣赏了
end sub'可以直接通过设置realaudio1的windth 和 height来设置显示区域的大小,用realaudio1的getclipwidht和getclipheight函数可以得到电影的原始大小
RealAudio1.Source="xxx.rm"
RealAudio1.Controls = "ImageWindow,controlpanel" '视频
RealAudio1.DoPlay
软件发布的时候记得把那个控件文件一起发布
以后如果在引用被人的,我一定声明
维护知识产权!!