VB6播放器打开时自动获取音乐文件的代码怎么写?
谢谢

Sub Play_Midi() '播放的文件格式可以是其它音频文件，如rm、mp3、wav等
    Dim midFile As String
    midFile = App.Path
    If Right(midFile, 1) <> "\" Then midFile = midFile & "\"
    midFile = midFile & "sudo.mid"
    midFile = Chr(34) & midFile & Chr(34)
    mciSendString "open " & midFile & " alias midi", vbNullString, 0, 0
    mciSendString "play midi from 0", vbNullString, 0, 0
End Sub

Private Sub Timer2_Timer() '用于判断是否播放结束，以重新播放
    Dim retStr As String * 256
    mciSendString "status midi mode", retStr, 256, 0
    If InStr(retStr, "stopped") > 0 Or InStr(retStr, "停止") > 0 Then
      mciSendString "seek midi to start", vbNullString, 0, 0
      mciSendString "play midi", vbNullString, 0, 0
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    mciSendString "close midi", vbNullString, 0, 0
End Sub

谢谢，可以做一个范例上来吗，
我是菜鸟。我想一打开播放器，自动搜索到C盘或其他盘的音乐显示在File1里

打开exe，自动搜索本地多类型音乐，在列表展示，包含文件名，作者，路径，创建时间等，然后点选列表中音乐，可以增加多选功能，添加到待播放列表，列表旁边放置单曲循环和随机循环。。。。。

我想达到的是,打开播放器自动搜索到本地多类型音乐的文件名称（比如;大海啊故乡.mp3）显示在列表框中，可以点击播放就可以了。不需要作者，路径，创建时间等信息，也不需要单曲循环和随机循环。
能做个文件和代码给我看看，菜鸟没办法，谢谢！！

Private Sub Command1_Click()
    資料夾 = Text1.Text
    Call 檔案列表(資料夾)
End Sub

'檔案處理
Function 檔案列表(路徑) '更新 讀取存檔 的下拉項目
    Dim stritem As String
    Combo1.Clear '組合框清除選單
    List1.Clear '下拉框清除選單
    stritem = Dir(路徑 & "*.mp3") 'DIR查找目錄
    i = 0
    Do Until stritem = ""  '為空離開迴圈
        Combo1.AddItem stritem '組合框增加項目
        List1.AddItem stritem
        stritem = Dir
        i = i + 1
    Loop
    If i > 0 Then
        Combo1.ListIndex = 0     '設定 第0項 為預設
        List1.ListIndex = 0
    End If
End Function
Private Sub Combo1_Click() '選擇觸發
    Text3.Text = Combo1.Text
End Sub
Private Sub List1_Click() '選擇觸發
    Text2.Text = List1.Text
End Sub

壓縮檔
https://drive.
右上角下載鈕

[此贴子已经被作者于2022-3-11 15:13编辑过]