Mở file ca nhạc

[nguyennb]

Minh cần form có một nút Browse. Khi ấn nút này thì sẽ gọi Opendialog để có thể chọn file ca nhạc. Tuy nhiên mình cần là chỉ các các file ca nhạc (media player có thể mở được) hiện ra còn các file khác thì không. Vướng ở chỗ liệt kê các đuôi file ca nhạc

 

[ndu96081631]

Minh cần form có một nút Browse. Khi ấn nút này thì sẽ gọi Opendialog để có thể chọn file ca nhạc. Tuy nhiên mình cần là chỉ các các file ca nhạc (media player có thể mở được) hiện ra còn các file khác thì không. Vướng ở chỗ liệt kê các đuôi file ca nhạc

Gợi ý cho bạn:

Sub Test()
  With Application.FileDialog(1)
    .Filters.Clear
    .Filters.Add "Media files", "*.wma; *.mp3"
    .Show
  End With
End Sub

 

[nguyennb]

Cám ơn bạn. Mình cần chọn được tất cả các định dạng ca nhạc, nhưng không biết "tất cả" bao gồm những gì

 

[giaosy]

Xin hỏi thêm: nếu muốn khi macro chạy xong thì máy tự phát một đoạn nhạc để báo thì phải làm thé nào hả các bác

 

[ndu96081631]

Xin hỏi thêm: nếu muốn khi macro chạy xong thì máy tự phát một đoạn nhạc để báo thì phải làm thé nào hả các bác

Code về âm thanh có tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=21496
và đây:
http://www.giaiphapexcel.com/forum/showpost.php?p=167468&postcount=15
và 1 file nữa dùng chơi mp3:
http://www.box.net/shared/c9huru9z2k