Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

11 Aralık 2010 Cumartesi

Use The Windows Media Player Library By The Excel Workbook



'Workbook CodePage

'Normal Reference Add
'1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'3) Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\STDOLE2.TLB
'4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'5) Name: WMPLib, Description: Windows Media Player, FullPath: C:\WINDOWS\system32\wmp.dll

Option Explicit
Private WMP1 As New WMPLib.WindowsMediaPlayer
Private StatusL(1 To 4)
Private Durum As Boolean
Private Sub Workbook_Open()

Durum = True
Call Play_WMP

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Durum = False

End Sub
Private Sub Play_WMP()'By Kitaro & By Celine Dion & Luis Armstrong And Danny Kaye

With WMP1

.currentPlaylist.Clear
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609818.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615108.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608318.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610533.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614499.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610625.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608703.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613713.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608264.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608155.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608166.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608183.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608199.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608204.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608227.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608282.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608304.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608335.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608356.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608382.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608396.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608408.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608423.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608450.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608531.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608538.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608552.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608563.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608573.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608594.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608609.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608781.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608618.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608630.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608658.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608673.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608675.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608697.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608787.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608800.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608813.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608823.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608830.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608842.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/608860.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609712.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609681.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609705.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609725.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609732.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609753.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609773.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609794.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609838.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/609876.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610285.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610298.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610303.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610521.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610527.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610530.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610531.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610542.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610551.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610554.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610565.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610573.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610583.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610594.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610601.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610612.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610616.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610623.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610635.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610726.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610737.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610766.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610770.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610782.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610787.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610801.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/610816.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612913.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612580.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612614.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612628.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612647.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612690.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612706.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612721.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612737.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612752.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612765.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612774.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612777.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612814.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612839.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612845.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612853.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612857.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612867.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612877.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612937.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612959.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612978.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/612999.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613011.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613034.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613048.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613118.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613099.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613133.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613143.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613156.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613174.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613189.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613193.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613205.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613212.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613219.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613231.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613240.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613245.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613250.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613270.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613277.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613306.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613346.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613393.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613451.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613921.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613748.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613763.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613773.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613778.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613796.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613844.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613856.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613885.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613891.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613902.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613958.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613974.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/613993.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614005.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614021.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614026.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614037.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614044.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614057.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614067.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614075.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614089.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614096.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614107.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614252.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614257.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614468.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614472.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614476.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614480.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614487.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614491.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614494.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614504.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614509.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614512.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614522.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614524.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614527.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614532.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614547.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614539.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614544.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614559.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614564.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614573.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614582.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614641.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614653.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614669.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614675.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614685.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/614698.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615063.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615094.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615502.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615561.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615622.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615660.mp3")
.currentPlaylist.appendItem .newMedia("http://www.musicwebtown.com/rhwfu/playlists/77433/615689.mp3")
.currentPlaylist.appendItem .newMedia("http://dc122.4shared.com/img/mClaJlN3/LOUIS_ARMSTRONG__DANNY_KAYE.WMV")
.currentPlaylist.appendItem .newMedia("http://www.musiconline.com.br/somzera/videos/arq/videoclipes/CelineDion-MyHeartWillGoOn.wmv")
.Controls.Play

End With
Call Status

End Sub
Private Sub Status()

Do While Durum = True

With WMP1.currentMedia

If .Name <> StatusL(3) Then

StatusL(1) = .attributeCount
StatusL(2) = .durationString
StatusL(3) = .Name
StatusL(4) = .SourceUrl
Application.StatusBar = "[" & StatusL(1) & "][" & StatusL(2) & "][" & StatusL(3) & "][" & StatusL(4) & "]"

End If

End With
DoEvents

Loop

End Sub
'Sub References_List()

' On Error Resume Next
' Dim Eleman, No
' No = 1
' For Each Eleman In ThisWorkbook.VBProject.References

' Sheets(1).Cells(No, 1) = No & ") Name: "
' Sheets(1).Cells(No, 2) = Eleman.Name
' Sheets(1).Cells(No, 3) = ", Description: "
' Sheets(1).Cells(No, 4) = Eleman.Description
' Sheets(1).Cells(No, 5) = ", FullPath: "
' Sheets(1).Cells(No, 6) = Eleman.FullPath
' No = No + 1

' Next Eleman

'End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul