Sub
Timer1_Timer()
Dim
t
As
Long
Dim
ret
As
String
*
128
Timer1.Interval
=
1000
t
=
mciSendString("status
"
+
na
+
"
position",
ret,
128,
0)
'得到当前播放位置
ProgressBar1.Value
=
Val(ret)
Label4.Caption
=
Gettime(Val(ret))
'显示歌曲当前时间
If
ProgressBar1.Value
=
ProgressBar1.Max
Then
Command5_Click
End
If
End
Sub
Private
Function
Gettime(position
As
Long)
As
String
'这个函数的功能是把以长整型表示的时间转换为电子钟式的"**:**"
Dim
min,
sec
min
=
position
/
1000
min
=
min
/
60
sec
=
min
-
Int(min)
min
=
Int(min)
sec
=
60
*
sec
/
100
sec
=
Int(sec
*
100)
Gettime
=
Str(min)
+
":"
+
Str(sec)
End
Function
实在看不懂的话我把整个程序发给你
vb如何制作歌曲播放的进度条
按钮Open MP3 File是用来打开对话框选择MP3文件，其他5个按钮分别为Play(播放)、Pause(暂停)、Stopplay(停止播放)、Back(向后跳跃)、Prew(向前跳跃)。Label1用来表示歌曲当前时间；label2放在时度条的最左边，Caption属性为00：00；lable3放在时度条的右边，用来表示歌曲总长。下面就可以编写代码了。首先...
vb如何制作歌曲播放的进度条
Private Sub Timer1_Timer()Dim t As Long Dim ret As String 128 Timer1.Interval = 1000 t = mciSendString("status "+ na + "position",ret,128,0)'得到当前播放位置 ProgressBar1.Value = Val(ret)Label4.Caption = Gettime(Val(ret))'显示歌曲当前时间 If ProgressBar1.Value = Progr...
VB如何实现进度条
1．首先，编写一个程序框架，如下所示。2．然后您可以在这里输入各种语句，如下所示。3．然后找到两个语句块的中间部分，如下图所示。4．输入语句［Exitsub］，如下所示。5．最后，您可以运行测试并解决实现进度条的问题，如下所示。注意事项：VB背后的思想是让程序员（新手和专家）都能轻松使用它。V...
VB6.0wmP如何实现循环播放!和进度条!求代码,
Select Case NewState '设定重新开始播放的环境 Case Is = wmppsMediaEnded '当播放结束时 WindowsMediaPlayer1.Controls.play '继续播放文件列表中的下一个 End Select End Sub 以上就可以循环播放了,用WMP哪还需要自己设计进度条,直接用它的界面就是了,不难看的 ...
在VB中用WindowsMediaPlayer播放音乐如何用Slider实现播放定位且随播...
'完整解决,添加一个按钮,一个计时器和你说的那两个控件,复制以下代码即可 Private Sub Command1_Click()WindowsMediaPlayer1.URL = "媒体文件的全路径"Timer1.Interval = 10 End Sub Private Sub Slider1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button =...
VB怎么制作进度条?
1.在控件工具箱中右键=>部件。2.在“部件”窗口中勾选Microsoft windows common controls 5.0或6.0。单击确定。3.然后控件工具箱中就有进度条了。改变样式方法：（我暂时只知道这种）下载一个SkinH，下载的文件夹里面有使用方法哦~（并且会优化所有控件及窗体）注意事项：1.使用时避免使用End语句...
VB:如何在循环中加上进度条
这里的 PB1 就代表进度条控件 private sub form_load() pb1.max=254 '<--- 以你的 ping 的最大值做 pb1 的最大进度值 end sub Private Sub Command2_Click() If Right(Text1, 1) = "*" Then '当文本框，也就是IP输入框最右边的一个字符是 * 的时候 Dim i As Integ...
vb里的进度条怎么做
系统自带进度条控件，在控件栏右键→部件 然后选择 microsoft windows common controls 6.0 有个自带的进度条 你也可以用shape picture image等控件模拟进度条 也可以自己手动写一个进度条控件 不过个人觉得用picturebox和image 模拟进度条方便好看点，可以设置一个漂亮的图片 ...
VB 这样的进度条样式怎么做?
一、实现原理 采用一个完整的图片来作为进度条，每次当进度条改变时，采用先贴图再用背景色擦去不需显示的一段进度的方法来实现进度条的变化，可实现制作任何复杂美观的进度条。二、准备工作 首先需准备一个如下图样式的进度条图片（当然你可以做你自己喜欢的样式）。然后在窗体中加入一PictureBox控件，...
vb进度条制作
添加部件“Microsoft Windows Common Controls 6.0(SP6)”，窗体添加1按钮、1标签控件、1个Timer控件、1个进度条控件，代码如下：Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()With ProgressBar1.Max = 60.Min = 0.Value = 0End WithTimer1.Interval = 1000...
