vb播放器
你用的API函数不对,用下面的就可以了。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
Dim temp
CommonDialog1.Filter = "(*.wav)|*.wav|"
CommonDialog1.Action = 1
Call mciSendString("open " & Chr(34) & CommonDialog1.FileName & Chr(34) & " type Waveaudio", vbNullString, 0, 0)
Call mciSendString("play " & Chr(34) & CommonDialog1.FileName & Chr(34), vbNullString, 0, 0)
End Sub
不用这么费劲,用过VB里的mci吗?专门播放多媒体的播放器控件,播放器的功能都有了,连按钮都现成的。唯一要做的就是用List控件显示歌曲列表,并让mci控件播放List列表指定的音乐文件即可
mci控件的全名是 Microsoft Multimedia Control 6.0,文件是MCI32.ocx
在工具条上右键菜单里选组件,然后在列表里找控件的全名即可添加到工具条上。
提示你一下,属性列表里把PlayEnabled等需要使用的属性设为有效,把不需要的播放按钮比如PauseVisible等设为无效。
这个就是最简单实现音乐播放器的方法了,真的!!!
CommonDialog1.ShowOpen
MediaPlayer1.FileName = CommonDia
log1.FileName
这代码不对!
我的代码是这样的@!~
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then MediaPlayer1.URL = CommonDialog1.FileName
我们要不要交流一下我编的程序?
看看这个可以不|?
切忌要写
CommonDialog1.Filter
这个属性哦~~~~
这个是过滤器~
CommonDialog1.ShowOpen
MediaPlayer1.FileName = CommonDialog1.FileName
MediaPlayer1.play
如果还是不能不播放,代码是正确的,可能有一些原因:
1.没有声卡驱动
2.media Player 有问题,换台电脑试试
3.您打开的不是有效的媒体文件。
MediaPlayer1.play 这个是播放命令
MediaPlayer1.stop 停止
MediaPlayer1.close 关闭
大众187B音乐播放(插入sd卡一部分可以播放一部分不能播)?
用户在使用大众187B音乐播放器时遇到的问题是关于SD卡音乐播放的不稳定性,部分歌曲在车上和电脑上都无法播放,表现出了随机性。对于这种情况,深入理解大众187B音乐播放器的工作原理是关键。通常,播放器会根据车辆的设定和参数来管理音乐播放,包括音频格式、比特率和文件类型等。如果遇到无法播放的问题,...
有没有可以AB重复的播放器
当然有,比如暴风影音。具体步骤:1、打开暴风影音,然后打开相应的文件。在想要开始的A点位置暂停,然后在播放区点右键,在右键菜单中选择“播放控制”—“AB点重复”—“设置A点”。运用同样的方法,在想要结束的B点位置暂停,然后设置B点。设置好了之后,播放器就开始在AB两点间重复播放了。如果需要...
有没有一个音乐播放器可以AB重复播放的
1、使用“爱奇艺成能联播”就可以AB重复播放,首先要打开电脑上的“爱奇艺成能联播”。2、打开后,双击要设置AB重复播放的音乐。3、开始播放后,在需要重复的那段音乐前面,右键点击界面选择“播放”。4、然后选择“A-B重复”,再设置A点。5、设置好A点后,当音乐播放到需要重复的后断时,将B点也...
b76影院专用播放器是啥
呆呆的球员称为Dplayer,是一个多功能的视频播放器,它具有独特的视频播放内核,使更加清晰流畅的视频播放。同时,Dplayer是可以支持播放BT种子,磁力链接,以及强大的P2P网络共享功能,让视频播放更加强大实用的P2P视频播放器。中国呆呆的球员特点:1 ,内容丰富 数以万计的免费在线点播电影和电视,涵盖电影...
各大在线视频网站和在线视频播放器的最高视频质量及详细内容~~~_百度...
File size : 151 MiB Duration : 41mn 45s Overall bit rate : 507 Kbps Writing application : m_ccc3959902930b34632d8736c8c89d7f_md Tudou, Inc.Tagging application : Tudou Metadata Injector for FLV - Version 1.0 Video Format : AVC ...
索尼SONY WALKMAN A系列 B系列 E系列 S系列 X系列 那个系列听音乐音质...
楼主,索尼播放器中,B系列的音质确实有些差,但是价格厚道,勉强算得上物有所值。ESAXZ这些系列的音质没有什么天壤之别,相对于A系列E\\S系列做工用料差些,一些音频技术没有用在E\\S系列上,所以价格相对较低,音质保持了索尼WLKMNA的基本素质,绝对不是什么“垃圾”。A系列是WALKMAN常规系列里素质最...
请问哪种视频播放器有A-B功能
QQ影音,音频视频都可以这么放。我也是在学习外语。
未下载完电影怎么才能播放出来???
1、用kmplayer 播放,这是个韩国播放器软件,号称万能播放器,我一般就是用这个播放那些下到一半没种子或者99%左右的电影,华军就有下载,免费的。不知道楼主是怎么放的,我一般是先打开kmplayer,然后再把电影文件拖到kmplayer的播放窗口,绝对是可以的,不过播放时有时画面有点花,就像VCD的乱码一样。ht...
播放器英文怎么写
播放器的英文:player 一、词汇解析 player 英['pleɪə];美['pleɚ]n. 播放器;运动员,比赛者;游戏者,做游戏的人;演奏者,表演者;演员 例:Big business has become a major player in the art market.大公司已经成为艺术市场中的重要参与者。例:I know a lot of ...
什么播放器可以播放mkv格式?
Media player Classic、BSplayer、ZoomPlayer、暴风影音、PotPlayer、爱奇艺万能联播播放器、QQ影音、迅雷影音等都可以播放mkv格式。1、暴风影音 暴风影音16周年特别版是官方推出的一款特别纯净的本地播放器,它去掉了线上播放,还原播放器本质!专注更好的视频播放技术!新全新的暴风影音16能够支持812种格式...
燕沾枢力: 在VB中选“工程”=>“部件”=>在“控件”选项卡中勾选“Windows Media Player”=>确定 你就会看见控件栏中多了个控件,既是Windows Media Player控件了,再在窗口中添加该控件就行了.解释一下三楼的代码: Private Sub Form_Load()WMP1.settings.autoStart=True'打开窗口自动播放WMP1.URL="d:\movie.mpg"'播放“D:\”目录下的“movie.mpg”文件 End Sub看完有帮助的话别忘了采纳哦~~~~~呵呵呵~~~~
永寿县15667737806: vb媒体播放器程序 - ?
燕沾枢力: 播放flash需要添加: shockwave flash 控件 添加后在窗体上画出屏幕 需要一句代码: shockwaveflash1.movie="flash文件路径"'你可配合commondialog控件来选择文件! 播放avi,rmvb 需要 microsoft multimedia control 6.0 控件,实例代码如下,...
永寿县15667737806: 如何用VB制作简单的播放器? - ?
燕沾枢力: 本人曾做过这类东西,你可以使用VB自带的media player,MCI控件,也可以调用API函数.或者在网站上搜索一下别人编写的现成的播放器.在设计模式下选择WindowsMediaPlayer的“自定义……”可以设置它的相关基本属性,如装载时是否启...
永寿县15667737806: 用vb设计一个视频播放器,功能:可以播放,暂停,结束,调节音量大小,显示进度.可以在播放列表显示要 - ?
燕沾枢力: 很简单,用WMP(Wiindows Media Player)控件,满足你的所有要求
永寿县15667737806: 用VB编写视频播放器,给个代码?
燕沾枢力: 就是在菜单里 添加控件 选windows media player然后拖到form上 就好了...好像都不需要代码...
永寿县15667737806: 如何用VB编写一个播放器? - ?
燕沾枢力: 从菜单:工程-部件里选用Windows media player 控件,是system32下的wmp.dll文件.下面我命名为wmp1.再选用Microsoft Common Dialog control 6.0控件3个command,表示打开,播放/暂停,和停止Private Sub OpenCmd_Click()...
永寿县15667737806: 在VB中,有多少种多媒体播放器啊??
燕沾枢力: 在VB中,有:Media Player控件,MMControl控件,ShockwaveFlash控件,这三种播放器控件但这都要在自定义工具箱里添加了才能用的!
永寿县15667737806: 如何使用VB制作一个网络播放器? - ?
燕沾枢力: 首先,创建一个工程,按Ctrl+T 弹出一个对话筐,在其中找到Windows Media Player并钩选,然后点确定 接着点左面控件栏里的一个播放器图标,然后在窗体上绘制一个控件,命名为wmp1 如果你需要让他隐藏,把Visible属性设为False 然后在...
永寿县15667737806: 使用VB语言编程可否做出播放器程序? - ?
燕沾枢力: 可以的 做个最普通的播放器是比较简单的 VB提供了最基础的播放器控件 定义一些属性参数就可以做成一个基础类播放器
永寿县15667737806: vb制作播放器的代码??
燕沾枢力: 先添加这个控件 WindowsMediaPlayer1.URL = "所要播放文件的地址" 这个好多视频格式好像都是不支持的