Attribute VB_Name = "Module3"
'‘本模塊實現動態顯示音量在picturebox里
Option Explicit
Public zuidayinliang As Integer
Public Sub drawline(object1 As PictureBox)
Dim liangdu As Double
liangdu = object1.Height / zuidayinliang
object1.Line (0, object1.Height)-(object1.Width, volume * liangdu * 3.5), RGB(0, 33, 123), BF
End Sub

'////下面的代碼是用來打開文件以保存播放列表的
Public Sub liebiaotofenjian()
Dim i As Integer
i = Form1.List2.ListCount
If i = 0 Then Exit Sub
Open App.Path + "\mp3list.zsf" For Output As #34
For i = 0 To Form1.List2.ListCount
  Print #34, Form1.List2.List(i)
  Print #34, Form1.List1.List(i)

Next i


Close #34

End Sub
Public Sub fenjiantoliebiao()
Dim fenjian As String
fenjian = Dir(App.Path + "\mp3list.zsf")
If Len(fenjian) = 0 Then GoTo last

Dim fenjianming As String
Open App.Path + "\mp3list.zsf" For Input As #34
Do While Not EOF(34)
  Line Input #34, fenjianming
  Form1.List2.AddItem fenjianming
  Line Input #34, fenjianming
  Form1.List1.AddItem fenjianming

Loop
Form1.List1.RemoveItem Form1.List1.ListCount - 1
Form1.List2.RemoveItem Form1.List2.ListCount - 1

last:
Close #34

End Sub