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

9 Aralık 2010 Perşembe

Enumerate Windows Styles [1]



'UserForm1

'A) Normal Reference Add

'A1) Name: VBA, Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'A2) Name: Excel, Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'A3) Name: stdole, Description: OLE Automation, FullPath: C:\WINDOWS\system32\STDOLE2.TLB
'A4) Name: Office, Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'A5) Name: MSForms, Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'A6) Name: MSComctlLib, Description: Microsoft Windows Common Controls 6.0 (SP6), FullPath: C:\WINDOWS\system32\MSCOMCTL.OCX
'B) Tools Add on UserForm1\
'B1. Image1
'B2. Label1
'B3. Label2
'B4. ImageList (Automatic setup in Module1 with private dimention)
Option Explicit
Public Sub UserForm_Initialize()

Me.Caption = "[PBİD®] Enumerate Windows Styles"
Call Ekran_Düzenle
Call Resim_Ekle(Me)
Call UserForm_Tip1(Me)
DoEvents
End Sub
Private Sub UserForm_Activate()

Me.Move (Application.Width - Me.Width) / 2, (Application.Height - Me.Height) / 2
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Application.Visible = True
End Sub
Private Sub Ekran_Düzenle()

On Error Resume Next
With Me
.Height = 336
.Width = 336
.BackColor = VBA.vbWhite
.Picture = Resim(URL1)
'.Picture = LoadPicture("C:\...\*.bmp")
.PictureAlignment = fmPictureAlignmentTopLeft
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Image1
.BackStyle = fmBackStyleTransparent
.BorderColor = &HFF0000
.BorderStyle = fmBorderStyleSingle
.Top = 6
.Left = 6
.Height = 24
.Width = 24
.Picture = Resim(URL2)
'.Picture = LoadPicture("C:\...\*.ico")
End With
With Label1
.Caption = " " & "Mustafa ULUSARAÇ"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 6
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000
End With
With Label2
.Caption = " " & "01ulusarac@superonline.com"
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.SpecialEffect = fmSpecialEffectFlat
.Left = 30
.Top = 18
.Height = 12
.Width = 198
.Font.Bold = True
.ForeColor = &HFF0000
End With
End Sub

'Module1

Option Explicit
Public Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Public Declare Function OleLoadPicturePath Lib "oleaut32" (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As Any, ByRef ppvRet As Any) As Long
Public IPic(15) As Byte
Public Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Public Const URL1 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Klavuzu [Vector Backround]
Public Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S78EbvJyhRI/AAAAAAAACS0/txbOQ1qubg8/s1600/PB%C4%B0D_jpg.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD Icon]
Public Const URL3 As String = "http://4.bp.blogspot.com/_hsHTxo_5L8E/TKHXL1-dHVI/AAAAAAAAClo/xxJAhuSHReI/s1600/seven-shine-1024-768.jpg" 'Microsoft Office Excel® Kod Kılavuzu [PBİD BackroundPicture]
Public URL As String
Private Enum WindowStyles 'Enumerate windows styles

WS_OVERLAPPED = &H0
WS_POPUP = &H80000000
WS_CHILD = &H40000000
WS_MINIMIZE = &H20000000
WS_VISIBLE = &H10000000
WS_DISABLED = &H8000000
WS_CLIPSIBLINGS = &H4000000
WS_CLIPCHILDREN = &H2000000
WS_MAXIMIZE = &H1000000
WS_BORDER = &H800000
WS_DLGFRAME = &H400000
WS_VSCROLL = &H200000
WS_HSCROLL = &H100000
WS_SYSMENU = &H80000
WS_THICKFRAME = &H40000
WS_GROUP = &H20000
WS_TABSTOP = &H10000
WS_MINIMIZEBOX = &H20000
WS_MAXIMIZEBOX = &H10000
WS_CAPTION = WS_BORDER Or WS_DLGFRAME
WS_TILED = WS_OVERLAPPED
WS_ICONIC = WS_MINIMIZE
WS_SIZEBOX = WS_THICKFRAME
WS_OVERLAPPEDWINDOW = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
WS_POPUPWINDOW = WS_POPUP Or WS_BORDER Or WS_SYSMENU
WS_CHILDWINDOW = WS_CHILD
End Enum
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal WindowStyles As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private hForm As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal Index As Long) As Long
Private IList As New ImageList
Private hImage As Long
Private UWind As Long
Sub Form_Aç() 'Open UserForm

Application.Visible = False
Load UserForm1
End Sub
Public Function UserForm_Tip1(UForm As UserForm) 'Enumerated windows styles [X][X][X]

If Val(Application.Version) = 8 Then
hForm = FindWindow("ThunderXFrame", UForm.Caption)
Else
hForm = FindWindow("ThunderDFrame", UForm.Caption)
End If
SetWindowLong hForm, -16, WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX + WS_MAXIMIZEBOX
ShowWindow hForm, 5
End Function
Public Function Resim_Ekle(UForm As UserForm) 'Add icon on sysmenu
IList.ListImages.Add 1, "R1", LoadPicture("C:\Program Files\Microsoft Office\OFFICE11\MSN.ico")

hImage = IList.ListImages(1).Picture
If Val(Application.Version) = 8 Then

UWind = FindWindow("ThunderXFrame", UForm.Caption)
Else
UWind = FindWindow("ThunderDFrame", UForm.Caption)
End If
If UWind = 0 Then Exit Function
SendMessage UWind, &H80, True, hImage: SendMessage UWind, &H80, False, hImage
SetWindowLong UWind, (-20), GetWindowLong(UWind, (-20)) And Not &H1
DrawMenuBar UWind
End Function
Public Function Resim(URL) As Picture 'Picture load frome web address...

On Error Resume Next
CLSIDFromString StrPtr(ClsID), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), Resim
End Function
'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

1 Aralık 2010 Çarşamba

Create xlBitmap Picture From xlScreen Source



'Module1

'Windows XP® Office 2003® Normal Referance List
'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


Option Explicit
Private Type GUID

Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte

End Type
Private DispatchGuid As GUID
Private Type uPicDesc

Size As Long
Type As Long
hPic As Long
hPal As Long

End Type
Private PictureDescription As uPicDesc
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As uPicDesc, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private IPic As IPicture
Private hPtr As Long
Sub Create_xlScreenxlBitmap_Picture()

On Error Resume Next
Cells(1, 1).Interior.Color = RGB(0, 0, 0)
Cells(1, 2).Interior.Color = RGB(153, 51, 0)
Cells(1, 3).Interior.Color = RGB(51, 51, 0)
Cells(1, 4).Interior.Color = RGB(0, 51, 0)
Cells(1, 5).Interior.Color = RGB(0, 51, 102)
Cells(1, 6).Interior.Color = RGB(0, 0, 128)
Cells(1, 7).Interior.Color = RGB(51, 51, 153)
Cells(1, 8).Interior.Color = RGB(51, 51, 51)
Cells(2, 1).Interior.Color = RGB(128, 0, 0)
Cells(2, 2).Interior.Color = RGB(255, 102, 0)
Cells(2, 3).Interior.Color = RGB(128, 128, 0)
Cells(2, 4).Interior.Color = RGB(0, 128, 0)
Cells(2, 5).Interior.Color = RGB(0, 128, 128)
Cells(2, 6).Interior.Color = RGB(0, 0, 255)
Cells(2, 7).Interior.Color = RGB(102, 102, 153)
Cells(2, 8).Interior.Color = RGB(128, 128, 128)
Cells(3, 1).Interior.Color = RGB(255, 0, 0)
Cells(3, 2).Interior.Color = RGB(255, 153, 0)
Cells(3, 3).Interior.Color = RGB(153, 204, 0)
Cells(3, 4).Interior.Color = RGB(51, 153, 102)
Cells(3, 5).Interior.Color = RGB(51, 204, 204)
Cells(3, 6).Interior.Color = RGB(51, 102, 255)
Cells(3, 7).Interior.Color = RGB(128, 0, 128)
Cells(3, 8).Interior.Color = RGB(150, 150, 150)
Cells(4, 1).Interior.Color = RGB(255, 0, 255)
Cells(4, 2).Interior.Color = RGB(255, 204, 0)
Cells(4, 3).Interior.Color = RGB(255, 255, 0)
Cells(4, 4).Interior.Color = RGB(0, 255, 0)
Cells(4, 5).Interior.Color = RGB(0, 255, 255)
Cells(4, 6).Interior.Color = RGB(0, 204, 255)
Cells(4, 7).Interior.Color = RGB(153, 51, 102)
Cells(4, 8).Interior.Color = RGB(192, 192, 192)
Cells(5, 1).Interior.Color = RGB(255, 153, 204)
Cells(5, 2).Interior.Color = RGB(255, 204, 153)
Cells(5, 3).Interior.Color = RGB(255, 255, 153)
Cells(5, 4).Interior.Color = RGB(204, 255, 204)
Cells(5, 5).Interior.Color = RGB(204, 255, 255)
Cells(5, 6).Interior.Color = RGB(153, 204, 255)
Cells(5, 7).Interior.Color = RGB(204, 153, 255)
Cells(5, 8).Interior.Color = RGB(255, 255, 255)
RangeSaveAsPicture Range("A1:H5"), "c:\xlScreenxlBitmapPicture.bmp"

End Sub
Private Sub RangeSaveAsPicture(SourceRange As Range, FilePathName As String)

SourceRange.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
OpenClipboard 0
hPtr = GetClipboardData(2)
CloseClipboard
With DispatchGuid

.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB

End With
With PictureDescription

.Size = Len(PictureDescription)
.Type = 1
.hPic = hPtr
.hPal = 0

End With
OleCreatePictureIndirect PictureDescription, DispatchGuid, True, IPic
stdole.SavePicture IPic, FilePathName

End Sub

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

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
Anadolu Üniversitesi Açık Öğretim Fakültesi