Tặng công cụ nghe nhạc MP3 với VBA. (1 người xem)

[Hoàng Trọng Nghĩa]

Qua nay rảnh rỗi sinh nông nổi, ngồi viết cả đêm không ngủ để có đồ chơi này. Xin đừng so sánh với các công cụ nghe nhạc có sẳn như Media Player hoặc nhúng nó vào Excel, mọi sự so sánh đều khập khiểng. Ở đây mô phỏng cái na ná như thế để tặng mọi người giải trí khi trà dư tửu hậu. Có thể viết code còn rườm rà, nhưng đã cố gắng hết sức rồi.

Với các dạng nhạc, để cho chúng chạy hết một cái list tôi nghĩ là cả một vấn đề, nhưng sau khi xem file này các bạn sẽ cảm thấy dễ dàng thực hiện điều đó.

Khi tải file về, mở file thì nó ló cái mặt nó ra như trong hình đấy (nhưng chưa có đường dẫn, chưa có list nhạc đâu nha).

Bấm vào nút Tìm Thư Mục và chọn một thư mục nào đó có chứa nhạc với đuôi *mp3.

Bấm nút Tải Tên Bài Hát, lúc này list nhạc nó mới hiện lên xanh lè như cái hình.

(Sau khi đã có list nhạc, đường dẫn, lần mở sau, đảm bảo nó hiện lên như vậy luôn, khỏi bấm biếc gì hết, trừ khi muốn tìm thư mục nhạc khác).

Nếu muốn chơi chỉ 1 bài, check vào nút Chơi một bài, sau đó bấm Chơi Nhạc, nó chạy hết bản nhạc là nó dừng, còn không thì đừng check, nó sẽ chơi hết list nhạc.

Khi nó chơi đến bản nhạc nào thì ListBox nó sẽ hiển thị select tại bài đó.

Nếu muốn Volume lớn nhỏ? Thanh scrollbar nằm ngang sẽ giải quyết được vấn đề.

Đang nghe nhạc có điện thoại? Mute đó mà check vô!

Dĩ nhiên cũng như các Player chuyên nghiệp, cái tên này nó cũng có nút Tạm Ngưng sau khi ta bấm Chơi Nhạc, muốn chạy tiếp chỉ việc bấm lại nút đó.

Và khi muốn nghe bản nhạc nào trong list, chỉ cần double click vào nó là xong!

Thôi, quảng cáo nhiều quá, xem file đi các bạn ơi.

P/s: Trong file có mượn một hàm tự tạo của Thầy ndu96081631: FilesFoldersList, xin cám ơn Thầy.

''===========================================================

VBA Password là HoangTrongNghia.

Update file mới nhất: VBA_Player_V.5.xla

Cập nhật các mục:

- Tạo file AddIn để chạy nhạc, không tự động show form, tạo ToolBar trên Menu hoặc Ribbon, muốn chơi thì click.

- ComboBox list các thư mục chứa nhạc, tự động xóa những thư mục không chứa nhạc *mp3

- Bài đang hát - Tên ca sĩ

- Thanh trạng thái vị trí bản nhạc, kéo phải kéo trái nhạc sẽ chạy ở vị trí đó.

- Bit rate.

 

[Hoàng Trọng Nghĩa]

Quá ác! Trưng ra cho thiên hạ ngó .... mà không cho xơi sao

Nếu trưng ra thì giao diện sẽ như thế này đây :

Trạng thái chưa chơi nhạc:

Trạng thái đang chơi nhạc:

Đó, thanh trượt muốn kéo đi đâu thì nhạc theo đó, click bất cứ vị trí nào trên thanh đó thì "hạt đậu đỏ" nó chạy tới đó và chơi nhạc ở đó.

 

[quyenpv]

Nếu trưng ra thì giao diện sẽ như thế này đây :

Trạng thái chưa chơi nhạc:

Trạng thái đang chơi nhạc:

Đó, thanh trượt muốn kéo đi đâu thì nhạc theo đó, click bất cứ vị trí nào trên thanh đó thì "hạt đậu đỏ" nó chạy tới đó và chơi nhạc ở đó.

Kết giao diện này rồi đó a, Public đi anh ơi

 

[quyenpv]

Bác Hoàng Trọng Nghĩa lại trốn nữa rồi

 

[Hoàng Trọng Nghĩa]

Bác Hoàng Trọng Nghĩa lại trốn nữa rồi

Trốn gì, đang thiết kế chơi tùy chọn. Sau khi chọn lựa trên List thì chỉ chơi những bài hát đó thôi.

Apple nó muốn ra một phiên bản mới nó cũng hé hé một thời gian huống hồ chi là Nghĩa đẹp trai!

 

[ndu96081631]

Trốn gì, đang thiết kế chơi tùy chọn. Sau khi chọn lựa trên List thì chỉ chơi những bài hát đó thôi.

Apple nó muốn ra một phiên bản mới nó cũng hé hé một thời gian huống hồ chi là Nghĩa đẹp trai!

Muốn đẹp mình nghĩ nên dùng DialogSheet chứ UserForm và mấy Controls của nó thì dù làm kiểu gì vẫn cứ.. xấu hoắc
Với DialogSheet, ta có thể dùng đối tượng Shape tha hồ mà vẽ vời, tô màu, hiệu ứng 3D... vân vân.. (theo kiểu giao diện bóng bẩy của Windows 7 cũng được nữa là...)

 

[Hoàng Trọng Nghĩa]

Muốn đẹp mình nghĩ nên dùng DialogSheet chứ UserForm và mấy Controls của nó thì dù làm kiểu gì vẫn cứ.. xấu hoắc
Với DialogSheet, ta có thể dùng đối tượng Shape tha hồ mà vẽ vời, tô màu, hiệu ứng 3D... vân vân.. (theo kiểu giao diện bóng bẩy của Windows 7 cũng được nữa là...)

Nhưng em chưa thiết kế trên DialogSheet bao giờ, và nếu sử dụng nó có làm Addins được không Thầy? Thầy thử làm một ví dụ trên DialogSheet có ListBox, có CheckBox và những câu lệnh như thế nào, em sẽ theo đó thiết kế một form hoàn chỉnh ạ.

 

[ndu96081631]

Nhưng em chưa thiết kế trên DialogSheet bao giờ, và nếu sử dụng nó có làm Addins được không Thầy?

Sao không được! Lúc gọi thì nó show lên như UserForm thôi

Thầy thử làm một ví dụ trên DialogSheet có ListBox, có CheckBox và những câu lệnh như thế nào, em sẽ theo đó thiết kế một form hoàn chỉnh ạ.

Thử file DialogSheet_CreateControls.xls đính kèm dưới đây. File này nó dùng code vẽ các Controls luôn
Lưu ý code trong file có đoạn:

.....................
With dlgDate
    .Name = DateDialog
    [COLOR=#ff0000].Visible = xlSheetHidden[/COLOR]
  ............................
      MsgBox "No date was selected.", 64, "You clicked Cancel."
    End If
    Application.DisplayAlerts = False
    [COLOR=#ff0000].Delete[/COLOR]
    Application.DisplayAlerts = True
    
  End With 
End Sub

Muốn xem form nó hình dáng thế nào thì bỏ đoạn màu đỏ, chạy code xong sẽ thấy
--------------------
Ngoài ra cũng có 1 số file do tôi tự thiết kế, gửi luôn cho Nghĩa tham khảo (thấy cũng dễ ẹc)
---------------
Tham khảo chỗ này để biết cách thiết lập thuộc tính cho các Controls:
http://www.giaiphapexcel.com/forum/showthread.php?31515-Tạo-Form-bằng-DialogSheet

 

[Hoàng Trọng Nghĩa]

Sao không được! Lúc gọi thì nó show lên như UserForm thôi

Thử file DialogSheet_CreateControls.xls đính kèm dưới đây. File này nó dùng code vẽ các Controls luôn
Lưu ý code trong file có đoạn:

.....................
With dlgDate
    .Name = DateDialog
    [COLOR=#ff0000].Visible = xlSheetHidden[/COLOR]
  ............................
      MsgBox "No date was selected.", 64, "You clicked Cancel."
    End If
    Application.DisplayAlerts = False
    [COLOR=#ff0000].Delete[/COLOR]
    Application.DisplayAlerts = True
    
  End With 
End Sub

Muốn xem form nó hình dáng thế nào thì bỏ đoạn màu đỏ, chạy code xong sẽ thấy
--------------------
Ngoài ra cũng có 1 số file do tôi tự thiết kế, gửi luôn cho Nghĩa tham khảo (thấy cũng dễ ẹc)
---------------
Tham khảo chỗ này để biết cách thiết lập thuộc tính cho các Controls:
http://www.giaiphapexcel.com/forum/showthread.php?31515-Tạo-Form-bằng-DialogSheet

Đẹp thì có đẹp, nhưng tùy chỉnh quá khó.

Không cho Insert Shape trực tiếp lên sheet, phải tạo ở sheet khác rồi copy qua. Không cho insert hay paste hình ảnh vào.

ListBox chỉ có 1 cột được hiển thị.

Rối rắm quá, không chơi với trò này đâu Thầy ơi.

 

[ndu96081631]

Đẹp thì có đẹp, nhưng tùy chỉnh quá khó.

Không cho Insert Shape trực tiếp lên sheet, phải tạo ở sheet khác rồi copy qua. Không cho insert hay paste hình ảnh vào.

ListBox chỉ có 1 cột được hiển thị.

Rối rắm quá, không chơi với trò này đâu Thầy ơi.

Thì cái ListBox mà Nghĩa đang dùng cũng có 1 cột chứ mấy (vì thấy dùng 1 cột nên tôi mới gợi ý DialogSheet đó chứ)

 

[Hoàng Trọng Nghĩa]

Thì cái ListBox mà Nghĩa đang dùng cũng có 1 cột chứ mấy (vì thấy dùng 1 cột nên tôi mới gợi ý DialogSheet đó chứ)

Nhưng còn nhiều thứ để làm đẹp lắm, như phông chữ, màu chữ hay những thứ hoa hòe hoa sói khác làm không tiện chút nào cả Thầy ơi. Chắc em không nghiên cứu em này đâu hihihihi.

 

[quyenpv]

Update V6 ---> Show hàng bác Hoàng Trọng Nghĩa

 

[Hoàng Trọng Nghĩa]

Update V6 ---> Show hàng bác Hoàng Trọng Nghĩa View attachment 147270View attachment 147271

Trùi ui, cái gì cũng phải từ từ mà tốn chứ! Làm quá rồi cứ chỉnh sửa hoài mệt lắm, làm nhiều chức năng một tí cho nó phê.

 

[quyenpv]

Cập nhật Version mới đi anh Nghĩa ơi!

 

[Hoàng Trọng Nghĩa]

Cập nhật Version mới đi anh Nghĩa ơi!

Hỗm rày lo làm chuyện khác nên chưa hoàn chỉnh. Khi nào xong tôi sẽ gửi lên, khỏi phải hối thúc!

 

[ndu96081631]

Cập nhật Version mới đi anh Nghĩa ơi!

Không được viết tiếp bài nào thuộc dạng này nữa nha bạn!
Tôi đã xóa 5, 6 bài thuộc dạng hối thúc của bạn rồi
Người ta có tiếp tục viết hay không là chuyện của người ta (tùy hứng) và không có bất cứ ràng buộc nào cho việc phải viết để bạn xài cả

 

[quyenpv]

Tại e cũng đang tìm và vọc cái này thì gắp đúng anh Nghĩa up thấy hay quá anh! Ngồi vọc mà mãi không được ạ em up file đang nghịch lên

 

[Hoàng Trọng Nghĩa]

Tại e cũng đang tìm và vọc cái này thì gắp đúng anh Nghĩa up thấy hay quá anh! Ngồi vọc mà mãi không được ạ em up file đang nghịch lên

Vào đây để thưởng thức chương trình mới bạn nhé!

http://www.giaiphapexcel.com/forum/...BA-(phần-2-Final-Version)&p=676760#post676760