Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub OpenFile(filename As String)
ShellExecute 0, "Open", filename, "", "", 1
End Sub
Sub Exam()
OpenFile ([COLOR=Red]"D:\Music\LaDo.mp3"[/COLOR])
End Sub
- Vẽ 1 CommandButton lên bảng tính
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private mp3File As StringPrivate Sub CommandButton1_Click()
Dim Check As Boolean
Check = (CommandButton1.Caption = "Play")
If Check Then mp3File = Application.GetOpenFilename("Music Files (*.mp3), *.mp3")
PlayMP3 Check
CommandButton1.Caption = IIf(Check, "Stop", "Play")
If mp3File = "False" Then CommandButton1.Caption = "Play"
End SubPrivate Sub PlayMP3(isPlaying As Boolean)
If isPlaying Then
Call mciSendString("Open """ & mp3File & """ Alias MM", 0, 0, 0)
Call mciSendString("Play MM", 0, 0, 0)
Else
Call mciSendString("Stop MM", 0, 0, 0)
Call mciSendString("Close MM", 0, 0, 0)
End If
End SubPrivate Sub CommandButton1_Click()
Dim Check As Boolean
Check = (CommandButton1.Caption = "Play")
If Check Then mp3File = Application.GetOpenFilename("Music Files (*.mp3), *.mp3")
PlayMP3 Check
CommandButton1.Caption = IIf(Check, "Stop", "Play")
If mp3File = "False" Then CommandButton1.Caption = "Play"
End SubKhông biết bạn copy code cho vào Excel và bị lỗi hay lỗi xuất hiện trên file đính kèm của tôi nhỉ?
Rất dễ ---> Copy code và chạy thử, nếu báo lỗi thì đưa nguyên file ấy lên đây để "khám"
Ẹc... Ẹc... Tôi đã lường trước điều này nên mới có đoạn:
Vậy mà bạn lại chẳng làm giống như chổ màu đỏ tôi đã hướng dẫn
chào bác, em có dùng code như của bác để bật và tắt 1 bài mp3; tuy nhiên em gặp hiện tượng là khi lần đầu ấn bật: thì bị trễ cỡ 2s mới chạy nhạc, còn lần sau ấn thì bật luôn, tuy nhiên để cách 1 vài phút không bật tắt liên tục, thì lần bật trở lại nó lại bị trễ như vậy, vậy là bị sao bác nhỉ?
Bạn thử PlayVideo.xls của tôi ở bài #3 xem. Chọn nhạc để nghe hoặc phim để xem.
www.giaiphapexcel.com
chào bác, em đã thử file bác gửi, tuy nhiên vẫn bị lỗi trễ ~2.5s ở lần đầu bật đầu tiên hoặc sau 10p mới bật lại ; khi ấn thì cái nút play nó bị tụt xuống, và khi nào lên nhạc nó mới nổi lên được. Bác có gặp trường hợp này không? hiện em cần ấn nút là nó chạy ngay các lệnh khác của em, khi em cho dòng bật nhạc mp3 là chương trình của e bị trễ lại ~2.5s rồi mới chạy tiếp được, haizzz, các bác xem giúp em vớiBạn thử PlayVideo.xls của tôi ở bài #3 xem. Chọn nhạc để nghe hoặc phim để xem.
code mở phim wmv
Em có đường dẫn tới phim wmv. Sau này các đường dẫn sẽ được lấy từ danh sách. Trên sheet có hai nút. Nếu bấm nút play thì phim sẽ được chiếu. Ở đâu cũng được chỉ cần có phim để xem. Nếu bấm nút close thì phim sẽ được tắt. Anh chị giúp em với nhé
Không có cái gì sảy ra tức thì được.
Ý bạn nói là bạn đóng Form và sau 10 phút mở lại? Hay là bạn không đóng Form mà chỉ nhấn STOP rồi sau 10 phút nhấn "Open Media"?
Tức khi nào nhạc bắt đầu phát? Cái MP3 của bạn lớn cỡ nào? Cũng phải mất thời gian load chứ. Bạn thử mở bằng một chương trình phát nhạc, vd. Windows Media Player, xem có bị trễ không. Không phải tức thì mà mọi cái xuất hiện trong memory được
Bạn nên nhớ là bạn chỉ nhấn nút Close duy nhất 1 lần trước khi đóng Form. Hoặc không nhấn cũng được vì code trong Sub UserForm_Terminate làm việc này.
Private Sub UserForm_Initialize()
hForm = FindWindow("ThunderDFrame", vbNullString)
OpenMedia "c:\CafeSuaNong.wmv"
End Sub
