by ahmed salah arife (1 Submission)
Category: Sound/MP3
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 3rd February 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
mp3 by mmcontrol .ocx
End
End Sub
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
On Error Resume Next
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
On Error Resume Next
Dim strFile As String
strFile = Dir1.Path & "\" & File1.List(File1.ListIndex)
mmcmp3.DeviceType = "MPEGVideo"
mmcmp3.FileName = strFile
mmcmp3.Command = "Open"
End Sub
Private Sub Form_Load()
End Sub