★★★_~初学多媒体，那个WindowsMediaPlayer的控件怎么弄啊???_~★★★

amjiahe 2004-12-02 08:10:03

我在窗体里插了个WindowsMediaPlayer插件,我在属性框的URL里添上D:/歌/MTV/老歌_男/如果有一天这样就可以播了,但我是想通过变量fname传给那个URL,那个fname是一个文件控件(Drive和File)选择的音像文件地址,不知我说清楚了没有？怎么办呢？急!!!!!!!!!!!!!!!!

...全文

142 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

fnnxlsm 2004-12-07

打赏
举报

晕，9.0的控件是这样的，
with windowsmediaplayer1
.url = 文件名
.controls.play

amjiahe 2004-12-02

打赏
举报

楼上说的什么意思啊，能具体点吗？

uestczcs 2004-12-02

打赏
举报

要用msdxm.ocx才有!
你用的是wmp9的dll!

amjiahe 2004-12-02

打赏
举报

不对啊，你们说的MediaPlayer1有FileName和Play两个属性，可我的VB6.0没有啊，我在MediaPlayer1后按了点，没有啊，怎么回事？大哥大姐！

zhzhq800204 2004-12-02

打赏
举报

Private Sub Command1_Click()
MediaPlayer1.FileName = fname
MediaPlayer1.Play
End Sub
就是这样

tztz520 2004-12-02

打赏
举报

想播放就很简单.

Private Sub Command1_Click()
MediaPlayer1.FileName = fname
MediaPlayer1.Play
End Sub

Abyss-Xu 2004-12-02

打赏
举报

msdxm.ocx 对就是这个,把它加到你的部件
' 打开文件并自动播放
Private Sub open_Click(Index As Integer)
Dim MFile As String
CommonDialog1.ShowOpen
MFile = CommonDialog1.FileName
MediaPlayer1.FileName = MFile
MediaPlayer1.AutoStart = True
MediaPlayer1.AutoSize = True
Form1.Width = MediaPlayer1.Width + 600
Form1.Height = MediaPlayer1.Height + 800
End Sub

uestczcs 2004-12-02