VB 播放音乐时显示音量条的控件谁有?
发布网友
发布时间：2024-10-12 01:46
共1个回答
热心网友
时间：5分钟前
使用滑块，这种设置只对msdxm.ocx有效，对wmp.dll无效。
HScroll1属性：max=20,min=1,value=1
Private Sub Form_Load()
HScroll1.Value = 17
End Sub
Private Sub HScroll_Change()
If HScroll.Value = 1 Then MediaPlayer1.Volume = -3600
If HScroll.Value = 2 Then MediaPlayer1.Volume = -3300
If HScroll.Value = 3 Then MediaPlayer1.Volume = -3000
If HScroll.Value = 4 Then MediaPlayer1.Volume = -2700
If HScroll.Value = 5 Then MediaPlayer1.Volume = -2400
If HScroll.Value = 6 Then MediaPlayer1.Volume = -2100
If HScroll.Value = 7 Then MediaPlayer1.Volume = -1800
If HScroll.Value = 8 Then MediaPlayer1.Volume = -1500
If HScroll.Value = 9 Then MediaPlayer1.Volume = -1200
If HScroll.Value = 10 Then MediaPlayer1.Volume = -1150
If HScroll.Value = 11 Then MediaPlayer1.Volume = -1100
If HScroll.Value = 12 Then MediaPlayer1.Volume = -1000
If HScroll.Value = 13 Then MediaPlayer1.Volume = -900
If HScroll.Value = 14 Then MediaPlayer1.Volume = -800
If HScroll.Value = 15 Then MediaPlayer1.Volume = -600
If HScroll.Value = 16 Then MediaPlayer1.Volume = -400
If HScroll.Value = 17 Then MediaPlayer1.Volume = -200
If HScroll.Value = 18 Then MediaPlayer1.Volume = -100
If HScroll.Value = 19 Then MediaPlayer1.Volume = -50
If HScroll.Value = 20 Then MediaPlayer1.Volume = 0
End Sub
