c_c_lai

¦^´_ 1# lshsien
¥¿¦p Joforn ¤j¤j©Ò´£¥Üªº¡A¥H¤Uªº
¥N½X¤£»Ý­n MediaPlayer ªº¤ä´©±±¥ó¡C
¦pªG§A¸û²ßºD¨Ï¥Î MediaPlayer ±±¥ó
¨º»ò§A«K¥i¥H¤£¥Î©¹¤U¾\Äý¤F¡C

1. Option Explicit
   
2. 
   
3. Private Const SND_APPLICATION = &H80         '  look for application specific association
   
4. Private Const SND_ALIAS = &H10000            '  name is a WIN.INI [sounds] entry
   
5. Private Const SND_ALIAS_ID = &H110000        '  name is a WIN.INI [sounds] entry identifier
   
6. Private Const SND_ASYNC = &H1                '  play asynchronously
   
7. Private Const SND_FILENAME = &H20000         '  name is a file name
   
8. Private Const SND_LOOP = &H8                 '  loop the sound until next sndPlaySound
   
9. Private Const SND_MEMORY = &H4               '  lpszSoundName points to a memory file
   
10. Private Const SND_NODEFAULT = &H2            '  silence not default, if sound not found
    
11. Private Const SND_NOSTOP = &H10              '  don't stop any currently playing sound
    
12. Private Const SND_NOWAIT = &H2000            '  don't wait if the driver is busy
    
13. Private Const SND_PURGE = &H40               '  purge non-static events for task
    
14. Private Const SND_RESOURCE = &H40004         '  name is a resource name or atom
    
15. Private Const SND_SYNC = &H0                 '  play synchronously (default)
    
16. 
    
17. #If VBA7 Then
    
18.     Private Declare PtrSafe Function PlaySoundA Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
    
19.     '  ¥H¤W«Y .Wav Àɤ§°Ñ¼Æ«Å§i¡F ¤U¦C¤T¦æ¬° .MP3 Àɮ׫ŧi¤§¤Þ¥Î¥\¯à¨ç¦¡¤ÎÅܼƫŧi¡C
    
20.     Private Declare PtrSafe 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
    
21.     Private Declare PtrSafe Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    
22. #Else
    
23.     Private Declare Function PlaySoundA Lib "winmm.dll" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
    
24.     '  ¥H¤W«Y .Wav Àɤ§°Ñ¼Æ«Å§i¡F ¤U¦C¤T¦æ¬° .MP3 Àɮ׫ŧi¤§¤Þ¥Î¥\¯à¨ç¦¡¤ÎÅܼƫŧi¡C
    
25.     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
    
26.     Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
    
27. #End If
    
28. 
    
29. Dim Mp3File, LastMp3File As String, lst() As String, idx As Long
    
30. 
    
31. Sub Ex()
    
32.     Dim cnt As Long
    
33.    
    
34.     idx = 0
    
35.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¦U¦ì®È«È±z¦n.wav")
    
36.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_6ÂI.wav")
    
37.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¤À50.wav")
    
38.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¤À.wav")
    
39.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¶}©¹.wav")
    
40.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¥x¥_ªº.wav")
    
41.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸5.wav")
    
42.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸0.wav")
    
43.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¨®¦¸0.wav")
    
44.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¦¸.wav")
    
45.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_°ªÅK.wav")
    
46.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_¥_¤W.wav")
    
47.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_ªº¦C¨®§Y±N¶i¯¸½Ð«e©¹.wav")
    
48.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_²Ä¤G¤ë¥x.wav")
    
49.     addList (ThisWorkbook.Path & "\" & "±`¥Î¼s¼½" & "\" & "°ê»y_·f­¼¨Ã¯d·N¤ë¥x¶¡»ØÁÂÁÂ.wav")
    
50.         
    
51.     For cnt = 1 To UBound(lst)
    
52.         If UCase(Right(lst(cnt), 4)) = ".WAV" Then
    
53.             PlaySound (lst(cnt))
    
54.         ElseIf UCase(Right(lst(cnt), 4)) = ".MP3" Then
    
55.             MMStop (LastMp3File)
    
56.             LastMp3File = lst(cnt)
    
57.             MMPlay (lst(cnt))
    
58.         End If
    
59.     Next cnt
    
60.         
    
61.     rmvList
    
62. End Sub
    
63. 
    
64. Public Function addList(ByVal fn As String)
    
65.     Dim num As Long
    
66.    
    
67.     If idx = 0 Then num = 1 Else num = UBound(lst) + 1
    
68.     ReDim Preserve lst(num)
    
69.     lst(num) = fn
    
70.     idx = idx + 1
    
71. End Function
    
72. 
    
73. Public Function rmvList()
    
74.     If idx = 0 Then Exit Function
    
75.     ReDim Preserve lst(0)   '  lst :  String(0 to 0)
    
76.     idx = 0                 '  UBound(lst) = 0 : Long
    
77. End Function
    
78. 
    
79. ' Purpose     :  Plays an audio file
    
80. ' Inputs      :  sFilePath           The location of the wav file
    
81. '                lFlags              Can be one or many of the constants given above
    
82. ' Outputs     :  The text found on the web site
    
83. ' Author      :  Andrew Baker
    
84. ' Date        :  21/10/2000 12:37
    
85. ' Notes       :  Code adapted from code found on www.allapi.net (excellent site!)
    
86. ' Revisions   :
    
87. 
    
88. Function PlaySound(sFilePath As String, Optional lFlags As Long = SND_FILENAME Or SND_ASYNC) As Long
    
89.     PlaySound = PlaySoundA(sFilePath, 0&, lFlags)
    
90. End Function
    
91. 
    
92. Function ConvShortFilename(ByVal strLongPath$) As String
    
93.     Dim strShortPath$
    
94.     If InStr(1, strLongPath, " ") Then
    
95.         strShortPath = String(LenB(strLongPath), Chr(0))
    
96.         GetShortPathName strLongPath, strShortPath, Len(strShortPath)
    
97.         ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1)
    
98.     Else
    
99.         ConvShortFilename = strLongPath
    
100.     End If
     
101. End Function
     
102. 
     
103. Private Sub MMPlay(ByRef FileName As String)
     
104.     FileName = ConvShortFilename(FileName)
     
105.     mciSendString "close " & FileName, vbNullString, 0, 0
     
106.     mciSendString "open " & FileName, vbNullString, 0, 0
     
107.     mciSendString "play " & FileName, vbNullString, 0, 0
     
108. End Sub
     
109. 
     
110. Private Sub MMStop(ByRef FileName As String)
     
111.     FileName = ConvShortFilename(FileName)
     
112.     mciSendString "stop " & FileName, vbNullString, 0, 0
     
113.     mciSendString "close " & FileName, vbNullString, 0, 0
     
114. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 6# lshsien
ÁöµM§A°¾¦n¨Ï¥Î Windows Media Player¡A
¦ý§Ú¨Ï¥Î Joforn ¤j¤j´£¨Ñªºµ{¦¡½X´ú¸Õ
¤TºØ«¬ºAªº´CÅéÀÉ (*.mp3;*.wav;*.mp4)
¥¦¦b°õ¦æ¼·©ñ¹Lµ{«D±`í©w¡ADoEvents ªº
®É¬q®³®º±o«ê·í¡A¤×¨ä¬O mp4 ¼v¤ù¼·©ñ
µøµ¡¤]«Ü¬yºZ¡AÆZ­È±o§A±Ä¥Î¡C¨ä¹ê
Windows Media Player¤¸¥ó¥ç¨Ï¥Î¦P¼Ë¤§
Windows System µ{¦¡®w (Lib)¡C

1. Sub Ex()
   
2.     ItemAdd (ThisWorkbook.Path & "\" & "¤j´d©G¤Ñ¨Ïªiù»e.wav")
   
3.     ItemAdd (ThisWorkbook.Path & "\" & "µÎ§B¯S ¤p©]¦± ¤j´£µ^ºt«µ .mp4")
   
4.     ItemAdd (ThisWorkbook.Path & "\" & "Ä_æשG.mp3")
   
5.     ItemAdd (ThisWorkbook.Path & "\" & "¸t½Ï§Ö¼Ö 01.mp4")
   
6.     ItemAdd (ThisWorkbook.Path & "\" & "01_¤Ú«¢ G©¶¤§ºq Air On the G string.mp3")
   
7.     ItemAdd (ThisWorkbook.Path & "\" & "µÎ§B¯S ¤p©]¦± ¤j´£µ^ºt«µ .mp4")
   
8.     ItemAdd (ThisWorkbook.Path & "\" & "02_NOCTURNE.mp3")
   
9.     ItemAdd (ThisWorkbook.Path & "\" & "03_SAULT D' AMOUR.mp3")
   
10.     ItemAdd (ThisWorkbook.Path & "\" & "04_JUNE(BARCAROLLE).mp3")
    
11.    
    
12.     StartPlay
    
13. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 10# Joforn
¦^´_ 9# ML089
Pause  ¥H¤Î Resume ªº³B²z¡A§Ú¼g¤F¤@
¨ç¦¡¡A¦p¤U¡G

1. Public Sub PauseResume()
   
2.     Static Msg As Boolean    '  ¥Î¥H§P©w¬O§_¬°¨C¤é²Ä¤@¦¸°õ¦æ
   
3.    
   
4.     If Msg = False Then
   
5.         mciSendString StrPtr("pause JofornMusic"), 0&, 0, 0
   
6.         Msg = True
   
7.     Else
   
8.         mciSendString StrPtr("resume JofornMusic"), 0&, 0, 0
   
9.         Msg = False
   
10.     End If
    
11. End Sub

½Æ»s¥N½X

¥t¥~¡A¦A½Ð±Ð Joforn ¤j¤j¡A¦pªG·Q­n°õ¦æ *.rmvb ªº´CÅéÀÉ¡A
ÁÙ­n¥[±¾¨º¨Ç Lib¡A¤~¯à°÷°õ¦æ¡H
ÁÂÁ§A¡I

c_c_lai

¦^´_ 1# lshsien
§Ú¯S¿ï¤F¤E­º­µ¼Ö (¼Ö¦±ªøµu¤£¤@¡A§tMP4ÀÉ)¡A¤ÏÂдú¸Õ
§¡¯à¥¿±`¼·©ñ¡C§A¸Õ¸Õ¬Ý§a¡I

1. Option Explicit
   
2. 
   
3. Dim Xwmp As IWMPMedia                       '  Playlist
   
4. Dim MyPlayer As WindowsMediaPlayer
   
5. Dim ListIdx As Long
   
6. 
   
7. Public Function addList(ByVal fileName As String)
   
8.     Set Xwmp = MyPlayer.newMedia(fileName)
   
9.     MyPlayer.currentPlaylist.insertItem ListIdx, Xwmp
   
10.     ListIdx = ListIdx + 1
    
11.     DoEvents
    
12.     MyPlayer.Controls.Play
    
13. End Function
    
14. 
    
15. Public Function rmvList()
    
16.     DoEvents
    
17.     If MyPlayer.playState = 1 Or MyPlayer.playState = 10 Then      '  "Stopped"  or  "Ready"
    
18.         ListIdx = 0
    
19.         MyPlayer.currentPlaylist.Clear
    
20.     End If
    
21. End Function
    
22. 
    
23. Sub Ex()
    
24.     Set MyPlayer = ¤u§@ªí1.WindowsMediaPlayer1
    
25.     rmvList
    
26.    
    
27.     addList ThisWorkbook.Path & "\\" & "¤j´d©G¤Ñ¨Ïªiù»e.wav"
    
28.     addList ThisWorkbook.Path & "\\" & "Ä_æשG.mp3"
    
29.     addList ThisWorkbook.Path & "\\" & "µÎ§B¯S ¤p©]¦± ¤j´£µ^ºt«µ .mp4"
    
30.     addList ThisWorkbook.Path & "\\" & "¸t½Ï§Ö¼Ö 01.mp4"
    
31.     addList ThisWorkbook.Path & "\\" & "01_¤Ú«¢ G©¶¤§ºq Air On the G string.mp3"
    
32.     addList ThisWorkbook.Path & "\\" & "ÅK¹F¥§¸¹ - My Heart Will Go On (§Ú¤ß¥Ã«í) ¤¤­^¤å¦r¹õ.mp4"
    
33.     addList ThisWorkbook.Path & "\\" & "02_NOCTURNE.mp3"
    
34.     addList ThisWorkbook.Path & "\\" & "03_SAULT D' AMOUR.mp3"
    
35.     addList ThisWorkbook.Path & "\\" & "- Barcarolle in F sharp, Op.60.mp3"
    
36. End Sub

½Æ»s¥N½X

¤U¸ü (220.01 KB)

2016-1-24 20:42

c_c_lai

¦^´_ 1# lshsien
°ò¥»¤W¡AWindows Media Player ¬OµLªk¼·©ñ  *.rmvb ÀÉ¡A
¦pªG§A·Q³z¹L Windows Media Player ªº¼·©ñ¾¹¨Ó¼·©ñ
*.rmvb ªº¼v¤ùÀÉ¡A¨ä¹ê°ÈÀ³¥Î½d¨Ò¦p¤U¡A´£¨Ñ¤j®a°Ñ¦Ò¡G

1. Option Explicit
   
2. 
   
3. Dim MyPlayer As WindowsMediaPlayer
   
4. 
   
5. Public Function playRMVB(ByVal fileName As String)
   
6.     MyPlayer.URL = fileName        '  »Ý¥H .URL ¤è¦¡«Å§i
   
7.     DoEvents
   
8.     MyPlayer.Controls.Play
   
9. End Function
   
10. 
    
11. Public Function InitialList()
    
12.     MyPlayer.Controls.stop
    
13.    
    
14.     DoEvents
    
15.     If MyPlayer.playState = 0 Or MyPlayer.playState = 1 Or MyPlayer.playState = 10 Then
    
16.         '  0 = "Undefined"  /  1 = "Stopped"  /  10 = "Ready"
    
17.         ListIdx = 0
    
18.         MyPlayer.currentPlaylist.Clear
    
19.     End If
    
20. End Function
    
21. 
    
22. Sub Ex()
    
23.     Set MyPlayer = ¤u§@ªí1.WindowsMediaPlayer1
    
24.     InitialList
    
25.    
    
26.     '  ******************************************************************
    
27.     '  ¼·©ñ RMVB ¼v¤ùÀɻݥý¦w¸Ë Real_Alternative ªº¸ÑªR½X«á¡A Windows
    
28.     '  Media Player ¤~¯à¶i¦æ¸ÑªR RMVB ¼v¤ùÀÉ¡A¶i¦Ó©l¯àª½±µ¼·©ñ¥¦¡C
    
29.     '  http://www.free-codecs.com/real_alternative_download.htm
    
30.     '  ¥H¤U¤T¦æ«Y .rmvb ¼v¤ù¤§¼·©ñµ{§Ç  (*** ¦ý¥u¯à©ñ¸m¦b²Ä¤@­º¼·©ñ ***)
    
31.     '  1. MyPlayer.URL = ThisWorkbook.Path & "\\" & "xxxxxxxx.rmvb"
    
32.     '  2. DoEvents
    
33.     '  3. MyPlayer.Controls.Play
    
34.     '  ******************************************************************
    
35.     playRMVB ThisWorkbook.Path & "\\" & "xxxxxxxx.rmvb"
    
36. End Sub

½Æ»s¥N½X