yhkn.net
当前位置:首页 >> VB中添加的WinDows mEDiA控件,一运行程序就自动播... >>

VB中添加的WinDows mEDiA控件,一运行程序就自动播...

Private Sub Form_Load() WindowsMediaPlayer1.URL = "d:\temp\dds.mp3" '音乐文件路径 Timer1.Interval = 1000 '定时器 End Sub Private Sub Timer1_Timer() If Time() = "14:23:45" Then '定时的时间 WindowsMediaPlayer1.Controls.play '播放...

FullScreen功能需要WindowsMediaPlayer1处于播放状态时才能使用,否则会报错。

Option Explicit Dim WithEvents objExt As VBControlExtender Private Sub Form_Load() Licenses.Add "WMPlayer.OCX.7", "WMPlayer7" Set objExt = Form1.Controls.Add("WMPlayer.OCX.7", "wmp1") With objExt .Visible = True .Left = 50 .Hei...

Timer就是定时器,它在设定的时间间隔(比如1秒钟)会自动触发,这样当它在运行的时候检测到windows media player控件处在停止播放的状态,就会自动播放下一曲,从而实现顺序连接播放的功能。 但是windows media player控件本身是支持播放列表的...

WindowsMediaPlayer1.URL = "D\爱因为在心中.mp3" 这句不要放在这,你放在一个按钮里 Private Sub Command1_Click() WindowsMediaPlayer1.URL = "D\爱因为在心中.mp3" End Sub

楼上大大这是VB的media控件,不是wmp程序, 用对象浏览器慢慢看,虽然都是英文,但应该可以看懂, 不同版本的wmp程序wmp控件的方法属性都有不一样的地方 o(∩_∩)o 希望对你有所帮助

假设歌曲曲目在file1里显示 Private Sub Timer1_Timer() If WindowsMediaPlayer1.playState = 1 Then WindowsMediaPlayer1.URL = File1.List(File1.ListIndex + 1) If File1.ListCount > File1.ListIndex + 1 Then File1.ListIndex = File1.List...

你看看这个代码: Dim b As Integer Private Sub Command1_Click() a = 0: b = 0 p = App.Path + "\data\" If Dir(p & "*.avi") = "" Then MsgBox "没有avi文件": Exit Sub Dim filenames() As String '读取目录下的avi文件 Dim f As String n =...

URL:String; 指定媒体位置,本机或网络地址 uiMode:String; 播放器界面模式,可为Full, Mini, None, Invisible playState:integer; 播放状态,1=停止,2=暂停,3=播放,6=正在缓冲,9=正在连接,10=准备就绪 enableContextMenu:Boolean; 启用/禁...

Private Sub Command1_Click() CommonDialog1.Filter = "mp3(*.mp3)|*.mp3" CommonDialog1.ShowOpen If CommonDialog1.FileName = "" Then MsgBox "请选择一个mp3文件!" Else WindowsMediaPlayer1.URL = CommonDialog1.FileName WindowsMediaPl...

网站首页 | 网站地图
All rights reserved Powered by www.yhkn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com