VB中如何插入音乐

VB中如何插入音乐,第1张

工程→控件→windowsmediaplayer

引用后左边控件列表中会多出一个东西,点它,在屏幕上画个框,mediaplayer就到屏幕上啦

接下来,制作文件打开工具

放置

drive1

dir1

file1

三个控件。把file1的pattern属性设为*.wma

然后写入如下代码

private

sub

dir1_change()

file1.path

=

dir1.path

end

sub

private

sub

drive1_change()

dir1.path

=

drive1.drive

end

sub

private

sub

file1_click()

windowsmediaplayer1.url

=

file1.path

&

"\"

&

file1.filename

end

sub

url是文件的路径,你也可以抛弃那三个控件,直接指定一个文件

至于视频嘛,也一样,可以放一个command1

caption属性设为"视频"

private

sub

command1_click()

file1.pattern="*.avi"

end

sub

为了能改回来,放一个command2

caption属性设为"音频"

private

sub

command2_click()

file1.pattern="*.wma"

end

sub

附加:全屏法:

放一个command3

caption属性设为"全屏"

private

sub

command3_click()

windowsmediaplayer1.fullscreen

end

sub

在一个新建的窗体中,加入一个MMControl控件

控件在工具箱空白处点击右键--〉部件---〉Microsoft

Multimedia

Control

6.0

在窗体中添加下面这段代码:

Private

Sub

Form_Load()

MMC.FileName

=

App.Path

+

"\*.mp3"

MMC.Command

=

"Open"

MMC.Command

=

"Play"

End

Sub

例:Rem 添加三个控件,一个按钮Command,一个计时器Timer,一个文本框Text,自己在窗体添加

Private Sub Command1_Click()

Static flag As Boolean

If flag = True Then

Command1.Caption = "开始"

Timer1.Enabled = False

Else

Command1.Caption = "暂停"

Timer1.Enabled = True

End If

flag = Not flag

End Sub

Private Sub Form_Load()

Timer1.Interval = 10

Timer1.Enabled = False

Command1.Caption = "开始"

Text1 = ""

End Sub

Private Sub Timer1_Timer()

Randomize

Text1 = Int(351 * Rnd)

End Sub

大体意思是:0-350随机选择,开始,停止控制,在开始时添加声音,停止时声音停止。 解决方法:在面板添加一个MMControl1控件

在“开始”下面输入以下代码,开始播放

MMControl1.FileName = 播放音乐的绝对路径

MMControl1.Command = "open"

MMControl1.Command = "play"

在“停止”下面,输入

MMControl1.Command = "Close"

可以停止音乐播放


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11862094.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-19
下一篇 2023-05-19

发表评论

登录后才能评论

评论列表(0条)

保存