Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mart 2011 Perşembe

To Change WallPaper By SystemParametersInfo Function




'UserForm1
'A) Windows XP® Office 2003® Normal Referance List
'Description: Visual Basic For Applications, FullPath: C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL
'Description: Microsoft Excel 11.0 Object Library, FullPath: C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE
'Description: OLE Automation, FullPath: C:\WINDOWS\system32\stdole2.tlb
'Description: Microsoft Office 11.0 Object Library, FullPath: C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL
'Description: Microsoft Forms 2.0 Object Library, FullPath: C:\WINDOWS\system32\FM20.DLL
'B) UserForm1'e Eklenen Araçlar (Add Tools)
'Image1, Label1, Label2
'Image2
'C) Make Directory
'C:\MonthlyPictures
'D) Load *.jpg Files From Internet and Save as *.bmp Files in New Directory [Picture 1]
'URL01= http://landscape.thundafunda.com/full/autumn%20forest%20landscape%20wallpaper.jpg; File Save as.. C:\MonthlyPictures\File01.bpm
'URL02= http://antwrp.gsfc.nasa.gov/apod/image/1005/ic434_mtm.jpg; File Save as.. C:\MonthlyPictures\File02.bpm
'URL03= http://www.zastavki.com/pictures/1920x1200/2008/World_Germany_German_landscape_007592_.jpg; File Save as.. C:\MonthlyPictures\File03.bpm
'URL04= http://landscape.thundafunda.com/full/beautiful%20scenery%20green%20fields%20landscape%20wallpaper.jpg; File Save as.. C:\MonthlyPictures\File04.bpm
'URL05= http://www.christmaswallpapers.info/images/wallpapers/landscape-christmas-wallpaper-7354.jpeg File Save as.. C:\MonthlyPictures\File05.bpm
'URL06= http://landscape.thundafunda.com/full/plain%20snowland%20winter%20season%20landscape%20wallpaper.jpg; File Save as.. C:\MonthlyPictures\File06.bpm
'URL07= http://fotogaleri.shiftdelete.net/d/32030-1/30.jpg; File Save as.. C:\MonthlyPictures\File07.bpm
'URL08= http://pickedpictures.com/wp-content/uploads/2009/11/guzel_manzara_Full_hd_duvar_kagidi.jpg; File Save as.. C:\MonthlyPictures\File08.bpm
'URL09= http://www.arkaplan-resmi.com/Indir/085-727_Manzara1920x1080.jpg; File Save as.. C:\MonthlyPictures\File09.bpm
'URL10= http://www.kaliteliresimler.com/data/media/2041/ekzotik_manzara.jpg; File Save as.. C:\MonthlyPictures\File10.bpm
'URL11= http://www.freehdwallpapers.com/bulkupload/mnpp/Skylines/Dramatic-Sky.jpg; File Save as.. C:\MonthlyPictures\File11.bpm
'URL12= http://www.freehdwallpapers.com/bulkupload/mnpp/Skylines/Summer-Sky.jpg; File Save as.. C:\MonthlyPictures\File12.bpm
'URL13= http://i075.radikal.ru/1001/3e/9e264bd54837.jpg; File Save as.. C:\MonthlyPictures\File13.bpm
'URL14= http://fotogaleri.shiftdelete.net/d/32159-1/34.jpg; File Save as.. C:\MonthlyPictures\File14.bpm
'URL15= http://fotogaleri.shiftdelete.net/d/32012-1/24.jpg; File Save as.. C:\MonthlyPictures\File15.bpm
'URL16= http://www.manzara.gen.tr/w1/Kumsal.jpg; File Save as.. C:\MonthlyPictures\File16.bpm
'URL17= http://fotogaleri.shiftdelete.net/d/31677-1/Doga+duvarkagidi+5.jpg; File Save as.. C:\MonthlyPictures\File17.bpm
'URL18= http://pickedpictures.com/wp-content/uploads/2009/11/kiraz_agaci_full_hd.jpg; File Save as.. C:\MonthlyPictures\File18.bpm
'URL19= http://www.arkaplan-resmi.com/Indir/03-51_NeseliYedi1920x1080.jpg; File Save as.. C:\MonthlyPictures\File19.bpm
'URL20= http://www.arkaplan-resmi.com/Indir/098-835_MontanaGolu1920x1080.jpg; File Save as.. C:\MonthlyPictures\File20.bpm
'URL21= http://pickedpictures.com/wp-content/uploads/2010/02/river-wallpapers-66.jpg; File Save as.. C:\MonthlyPictures\File21.bpm
'URL22= http://img510.imageshack.us/img510/5943/45ma5.jpg; File Save as.. C:\MonthlyPictures\File22.bpm
'URL23= http://officialdesktopwallpapers.com/wp-content/gallery/1920x1080-1/1920x1080-HD-wallpaper-43.jpg; File Save as.. C:\MonthlyPictures\File23.bpm
'URL24= http://www.photofurl.com/wp-content/uploads/2008/09/rock_beauty_fish_widescreen_wallpaper.jpg; File Save as.. C:\MonthlyPictures\File24.bpm
'URL25= http://christmas-wallpapers.co.uk/wp-content/uploads/2009/09/Christmas_Wallpaper_Lights_Scene_Snow.jpg; File Save as.. C:\MonthlyPictures\File25.bpm
'URL26= http://andreas.nutshellpuppets.com/wallpapers/cloud_wallpaper_andreasz_com_full_hd_1920x1080.jpg; File Save as.. C:\MonthlyPictures\File26.bpm
'URL27= http://www.photofurl.com/wp-content/uploads/2008/09/lush_foliage_zion_national_park_utah_wide_screen_wallpaper.jpg; File Save as.. C:\MonthlyPictures\File27.bpm
'URL28= http://mi9.com/datawallpapers/data/22/2870/1250218040/mount-cook-wallpapers_1920x1080.jpg; File Save as.. C:\MonthlyPictures\File28.bpm
'URL29= http://mi9.com/datawallpapers/data/22/2870/1250219176/lake-wakatipu-scenery-wallpapers_1920x1080.jpg; File Save as.. C:\MonthlyPictures\File29.bpm
'URL30= http://blog.finogeev.com/wp-content/gallery/wallpapers/wallpapers_tai_02.jpg; File Save as.. C:\MonthlyPictures\File30.bpm
'URL31= http://wallpaper-nature.com/images/wallpapers/Lake-Sunset-Wallpaper-339313.jpg; File Save as.. C:\MonthlyPictures\File31.bpm
Option Explicit
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpstrCLSID As Long, lpCLSID As Any) As Long
Private 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
Private IPic(15) As Byte
Private Const ClsID As Variant = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}" 'It may take a few seconds, please wait.
Private Const URL1 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 Logo]
Private Const URL2 As String = "http://2.bp.blogspot.com/_hsHTxo_5L8E/S7rn6KHVfNI/AAAAAAAACRs/fxVMg9YGzb4/s1600/VectorBackround.jpg" 'Microsoft Office Excel® Kod Kılavuzu [Bant]
Private Sub UserForm_Initialize()
On Error Resume Next
Application.Visible = False
Application.VBE.MainWindow.Visible = False
Me.Caption = "[PBİD®] To Change WallPaper By SystemParametersInfo Function"
Call EkranDüzenle
Call WeekDaysWallPapers
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
End Sub
Private 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
Private Sub EkranDüzenle()
On Error Resume Next
With Me
.Height = 348
.Width = 460
.Picture = Resim(URL2)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
End With
With Image1
.Left = 6
.Top = 6
.Height = 24
.Width = 24
.BackStyle = fmBackStyleTransparent
.BorderColor = &H80000002
.BorderStyle = fmBorderStyleSingle
.Picture = Resim(URL1)
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeClip
.PictureTiling = False
End With
With Label1
.Caption = "Mustafa ULUSARAÇ"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Font.Bold = True
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 6
.Height = 12
.Width = 228
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Label2
.Caption = "01ulusarac@superonline.com"
.AutoSize = False
.BackStyle = fmBackStyleTransparent
.BorderStyle = fmBorderStyleNone
.Font.Bold = True
.ForeColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
.Left = 36
.Top = 18
.Height = 12
.Width = 228
.WordWrap = False
.TextAlign = fmTextAlignLeft
End With
With Image2
.AutoSize = False
.Left = 6
.Top = 36
.Height = 282
.Width = 444
.PictureAlignment = fmPictureAlignmentCenter
.PictureSizeMode = fmPictureSizeModeStretch
.PictureTiling = False
.BackStyle = fmBackStyleOpaque
.BorderStyle = fmBorderStyleSingle
.BorderColor = vbBlue
.SpecialEffect = fmSpecialEffectFlat
End With
End Sub
'Module1
Option Explicit
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
'A) UINT uiAction
'SPI_GETBEEP = 1
'SPI_SETBEEP = 2
'SPI_GETMOUSE = 3
'SPI_SETMOUSE = 4
'SPI_GETBORDER = 5
'SPI_SETBORDER = 6
'SPI_GETKEYBOARDSPEED = 10
'SPI_SETKEYBOARDSPEED = 11
'SPI_LANGDRIVER = 12
'SPI_ICONHORIZONTALSPACING = 13
'SPI_GETSCREENSAVETIMEOUT = 14
'SPI_SETSCREENSAVETIMEOUT = 15
'SPI_GETSCREENSAVEACTIVE = 16
'SPI_SETSCREENSAVEACTIVE = 17
'SPI_GETGRIDGRANULARITY = 18
'SPI_SETGRIDGRANULARITY = 19
'SPI_SETDESKWALLPAPER = 20
'SPI_SETDESKPATTERN = 21
'SPI_GETKEYBOARDDELAY = 22
'SPI_SETKEYBOARDDELAY = 23
'SPI_ICONVERTICALSPACING = 24
'SPI_GETICONTITLEWRAP = 25
'SPI_SETICONTITLEWRAP = 26
'SPI_GETMENUDROPALIGNMENT = 27
'SPI_SETMENUDROPALIGNMENT = 28
'SPI_SETDOUBLECLKWIDTH = 29
'SPI_SETDOUBLECLKHEIGHT = 30
'SPI_GETICONTITLELOGFONT = 31
'SPI_SETDOUBLECLICKTIME = 32
'SPI_SETMOUSEBUTTONSWAP = 33
'SPI_SETICONTITLELOGFONT = 34
'SPI_GETFASTTASKSWITCH = 35
'SPI_SETFASTTASKSWITCH = 36
'SPI_SETDRAGFULLWINDOWS = 37
'SPI_GETDRAGFULLWINDOWS = 38
'SPI_GETNONCLIENTMETRICS = 41
'SPI_SETNONCLIENTMETRICS = 42
'SPI_GETMINIMIZEDMETRICS = 43
'SPI_SETMINIMIZEDMETRICS = 44
'SPI_GETICONMETRICS = 45
'SPI_SETICONMETRICS = 46
'SPI_SETWORKAREA = 47
'SPI_GETWORKAREA = 48
'SPI_SETPENWINDOWS = 49
'SPI_GETHIGHCONTRAST = 66
'SPI_SETHIGHCONTRAST = 67
'SPI_GETKEYBOARDPREF = 68
'SPI_SETKEYBOARDPREF = 69
'SPI_GETSCREENREADER = 70
'SPI_SETSCREENREADER = 71
'SPI_GETANIMATION = 72
'SPI_SETANIMATION = 73
'SPI_GETFONTSMOOTHING = 74
'SPI_SETFONTSMOOTHING = 75
'SPI_SETDRAGWIDTH = 76
'SPI_SETDRAGHEIGHT = 77
'SPI_SETHANDHELD = 78
'SPI_GETLOWPOWERTIMEOUT = 79
'SPI_GETPOWEROFFTIMEOUT = 80
'SPI_SETLOWPOWERTIMEOUT = 81
'SPI_SETPOWEROFFTIMEOUT = 82
'SPI_GETLOWPOWERACTIVE = 83
'SPI_GETPOWEROFFACTIVE = 84
'SPI_SETLOWPOWERACTIVE = 85
'SPI_SETPOWEROFFACTIVE = 86
'SPI_SETCURSORS = 87
'SPI_SETICONS = 88
'SPI_GETDEFAULTINPUTLANG = 89
'SPI_SETDEFAULTINPUTLANG = 90
'SPI_SETLANGTOGGLE = 91
'SPI_GETWINDOWSEXTENSION = 92
'SPI_SETMOUSETRAILS = 93
'SPI_GETMOUSETRAILS = 94
'SPI_SETSCREENSAVERRUNNING = 97
'SPI_SCREENSAVERRUNNING = SPI_SETSCREENSAVERRUNNING
'SPI_GETFILTERKEYS = 50
'SPI_SETFILTERKEYS = 51
'SPI_GETTOGGLEKEYS = 52
'SPI_SETTOGGLEKEYS = 53
'SPI_GETMOUSEKEYS = 54
'SPI_SETMOUSEKEYS = 55
'SPI_GETSHOWSOUNDS = 56
'SPI_SETSHOWSOUNDS = 57
'SPI_GETSTICKYKEYS = 58
'SPI_SETSTICKYKEYS = 59
'SPI_GETACCESSTIMEOUT = 60
'SPI_SETACCESSTIMEOUT = 61
'SPI_GETSERIALKEYS = 62
'SPI_SETSERIALKEYS = 63
'SPI_GETSOUNDSENTRY = 64
'SPI_SETSOUNDSENTRY = 65
'SPI_GETSNAPTODEFBUTTON = 95
'SPI_SETSNAPTODEFBUTTON = 96
'SPI_GETMOUSEHOVERWIDTH = 98
'SPI_SETMOUSEHOVERWIDTH = 99
'SPI_GETMOUSEHOVERHEIGHT = 100
'SPI_SETMOUSEHOVERHEIGHT = 101
'SPI_GETMOUSEHOVERTIME = 102
'SPI_SETMOUSEHOVERTIME = 103
'SPI_GETWHEELSCROLLLINES = 104
'SPI_SETWHEELSCROLLLINES = 105
'SPI_GETMENUSHOWDELAY = 106
'SPI_SETMENUSHOWDELAY = 107
'SPI_GETSHOWIMEUI = 110
'SPI_SETSHOWIMEUI = 111
'SPI_GETMOUSESPEED = 112
'SPI_SETMOUSESPEED = 113
'SPI_GETSCREENSAVERRUNNING = 114
'SPI_GETDESKWALLPAPER = 115
'SPI_GETACTIVEWINDOWTRACKING = &H1000
'SPI_SETACTIVEWINDOWTRACKING = &H1001
'SPI_GETMENUANIMATION = &H1002
'SPI_SETMENUANIMATION = &H1003
'SPI_GETCOMBOBOXANIMATION = &H1004
'SPI_SETCOMBOBOXANIMATION = &H1005
'SPI_GETLISTBOXSMOOTHSCROLLING = &H1006
'SPI_SETLISTBOXSMOOTHSCROLLING = &H1007
'SPI_GETGRADIENTCAPTIONS = &H1008
'SPI_SETGRADIENTCAPTIONS = &H1009
'SPI_GETKEYBOARDCUES = &H100A
'SPI_SETKEYBOARDCUES = &H100B
'SPI_GETMENUUNDERLINES = SPI_GETKEYBOARDCUES
'SPI_SETMENUUNDERLINES = SPI_SETKEYBOARDCUES
'SPI_GETACTIVEWNDTRKZORDER = &H100C
'SPI_SETACTIVEWNDTRKZORDER = &H100D
'SPI_GETHOTTRACKING = &H100E
'SPI_SETHOTTRACKING = &H100F
'SPI_GETMENUFADE = &H1012
'SPI_SETMENUFADE = &H1013
'SPI_GETSELECTIONFADE = &H1014
'SPI_SETSELECTIONFADE = &H1015
'SPI_GETTOOLTIPANIMATION = &H1016
'SPI_SETTOOLTIPANIMATION = &H1017
'SPI_GETTOOLTIPFADE = &H1018
'SPI_SETTOOLTIPFADE = &H1019
'SPI_GETCURSORSHADOW = &H101A
'SPI_SETCURSORSHADOW = &H101B
'SPI_GETUIEFFECTS = &H103E
'SPI_SETUIEFFECTS = &H103F
'SPI_GETFOREGROUNDLOCKTIMEOUT = &H2000
'SPI_SETFOREGROUNDLOCKTIMEOUT = &H2001
'SPI_GETACTIVEWNDTRKTIMEOUT = &H2002
'SPI_SETACTIVEWNDTRKTIMEOUT = &H2003
'SPI_GETFOREGROUNDFLASHCOUNT = &H2004
'SPI_SETFOREGROUNDFLASHCOUNT = &H2005
'SPI_GETCARETWIDTH = &H2006
'SPI_SETCARETWIDTH = &H2007
Private Const uAction = 20
'B) UINT uiParam
Private Const uParam = False '0=False / 1=True
'C) PVOID pvParam [Windows Server 2003 and Windows XP/2000: The pvParam parameter cannot specify a .jpg file.]
Private Const File01 As String = "C:\MonthlyPictures\File01.bmp" 'URL01= http://landscape.thundafunda.com/full/autumn%20forest%20landscape%20wallpaper.jpg
Private Const File02 As String = "C:\MonthlyPictures\File02.bmp" 'URL02= http://antwrp.gsfc.nasa.gov/apod/image/1005/ic434_mtm.jpg
Private Const File03 As String = "C:\MonthlyPictures\File03.bmp" 'URL03= http://www.zastavki.com/pictures/1920x1200/2008/World_Germany_German_landscape_007592_.jpg
Private Const File04 As String = "C:\MonthlyPictures\File04.bmp" 'URL04= http://landscape.thundafunda.com/full/beautiful%20scenery%20green%20fields%20landscape%20wallpaper.jpg
Private Const File05 As String = "C:\MonthlyPictures\File05.bmp" 'URL05= http://www.christmaswallpapers.info/images/wallpapers/landscape-christmas-wallpaper-7354.jpeg
Private Const File06 As String = "C:\MonthlyPictures\File06.bmp" 'URL06= http://landscape.thundafunda.com/full/plain%20snowland%20winter%20season%20landscape%20wallpaper.jpg
Private Const File07 As String = "C:\MonthlyPictures\File07.bmp" 'URL07= http://fotogaleri.shiftdelete.net/d/32030-1/30.jpg
Private Const File08 As String = "C:\MonthlyPictures\File08.bmp" 'URL08= http://pickedpictures.com/wp-content/uploads/2009/11/guzel_manzara_Full_hd_duvar_kagidi.jpg
Private Const File09 As String = "C:\MonthlyPictures\File09.bmp" 'URL09= http://www.arkaplan-resmi.com/Indir/085-727_Manzara1920x1080.jpg
Private Const File10 As String = "C:\MonthlyPictures\File10.bmp" 'URL10= http://www.kaliteliresimler.com/data/media/2041/ekzotik_manzara.jpg
Private Const File11 As String = "C:\MonthlyPictures\File11.bmp" 'URL11= http://www.freehdwallpapers.com/bulkupload/mnpp/Skylines/Dramatic-Sky.jpg
Private Const File12 As String = "C:\MonthlyPictures\File12.bmp" 'URL12= http://www.freehdwallpapers.com/bulkupload/mnpp/Skylines/Summer-Sky.jpg
Private Const File13 As String = "C:\MonthlyPictures\File13.bmp" 'URL13= http://i075.radikal.ru/1001/3e/9e264bd54837.jpg
Private Const File14 As String = "C:\MonthlyPictures\File14.bmp" 'URL14= http://fotogaleri.shiftdelete.net/d/32159-1/34.jpg
Private Const File15 As String = "C:\MonthlyPictures\File15.bmp" 'URL15= http://fotogaleri.shiftdelete.net/d/32012-1/24.jpg
Private Const File16 As String = "C:\MonthlyPictures\File16.bmp" 'URL16= http://www.manzara.gen.tr/w1/Kumsal.jpg
Private Const File17 As String = "C:\MonthlyPictures\File17.bmp" 'URL17= http://fotogaleri.shiftdelete.net/d/31677-1/Doga+duvarkagidi+5.jpg
Private Const File18 As String = "C:\MonthlyPictures\File18.bmp" 'URL18= http://pickedpictures.com/wp-content/uploads/2009/11/kiraz_agaci_full_hd.jpg
Private Const File19 As String = "C:\MonthlyPictures\File19.bmp" 'URL19= http://www.arkaplan-resmi.com/Indir/03-51_NeseliYedi1920x1080.jpg
Private Const File20 As String = "C:\MonthlyPictures\File20.bmp" 'URL20= http://www.arkaplan-resmi.com/Indir/098-835_MontanaGolu1920x1080.jpg
Private Const File21 As String = "C:\MonthlyPictures\File21.bmp" 'URL21= http://pickedpictures.com/wp-content/uploads/2010/02/river-wallpapers-66.jpg
Private Const File22 As String = "C:\MonthlyPictures\File22.bmp" 'URL22= http://img510.imageshack.us/img510/5943/45ma5.jpg
Private Const File23 As String = "C:\MonthlyPictures\File23.bmp" 'URL23= http://officialdesktopwallpapers.com/wp-content/gallery/1920x1080-1/1920x1080-HD-wallpaper-43.jpg
Private Const File24 As String = "C:\MonthlyPictures\File24.bmp" 'URL24= http://www.photofurl.com/wp-content/uploads/2008/09/rock_beauty_fish_widescreen_wallpaper.jpg
Private Const File25 As String = "C:\MonthlyPictures\File25.bmp" 'URL25= http://christmas-wallpapers.co.uk/wp-content/uploads/2009/09/Christmas_Wallpaper_Lights_Scene_Snow.jpg
Private Const File26 As String = "C:\MonthlyPictures\File26.bmp" 'URL26= http://andreas.nutshellpuppets.com/wallpapers/cloud_wallpaper_andreasz_com_full_hd_1920x1080.jpg
Private Const File27 As String = "C:\MonthlyPictures\File27.bmp" 'URL27= http://www.photofurl.com/wp-content/uploads/2008/09/lush_foliage_zion_national_park_utah_wide_screen_wallpaper.jpg
Private Const File28 As String = "C:\MonthlyPictures\File28.bmp" 'URL28= http://mi9.com/datawallpapers/data/22/2870/1250218040/mount-cook-wallpapers_1920x1080.jpg
Private Const File29 As String = "C:\MonthlyPictures\File29.bmp" 'URL29= http://mi9.com/datawallpapers/data/22/2870/1250219176/lake-wakatipu-scenery-wallpapers_1920x1080.jpg
Private Const File30 As String = "C:\MonthlyPictures\File30.bmp" 'URL30= http://blog.finogeev.com/wp-content/gallery/wallpapers/wallpapers_tai_02.jpg
Private Const File31 As String = "C:\MonthlyPictures\File31.bmp" 'URL31= http://wallpaper-nature.com/images/wallpapers/Lake-Sunset-Wallpaper-339313.jpg
'D) UINT fWinIni
'SPIF_UPDATEINIFILE Writes the new system-wide parameter setting to the user profile.= &H1
'SPIF_SENDCHANGE Broadcasts the WM_SETTINGCHANGE message after updating the user profile.= &H1A
'SPIF_SENDWININICHANGE= &H2
Private Const fuWinIni = &H
Private MonthlyDays As Double 'Ay İçi Günler (1...31)
Sub FormAç()
On Error Resume Next
UserForm1.Show 0
End Sub
Public Function WeekDaysWallPapers()
On Error Resume Next
MonthlyDays = VBA.Format$(Now, "dd")
Select Case MonthlyDays
Case 1: SystemParametersInfo uAction, 0, File01, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File01)
Case 2: SystemParametersInfo uAction, 0, File02, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File02)
Case 3: SystemParametersInfo uAction, 0, File03, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File03)
Case 4: SystemParametersInfo uAction, 0, File04, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File04)
Case 5: SystemParametersInfo uAction, 0, File05, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File05)
Case 6: SystemParametersInfo uAction, 0, File06, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File06)
Case 7: SystemParametersInfo uAction, 0, File07, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File07)
Case 8: SystemParametersInfo uAction, 0, File08, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File08)
Case 9: SystemParametersInfo uAction, 0, File09, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File09)
Case 10: SystemParametersInfo uAction, 0, File10, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File10)
Case 11: SystemParametersInfo uAction, 0, File11, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File11)
Case 12: SystemParametersInfo uAction, 0, File12, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File12)
Case 13: SystemParametersInfo uAction, 0, File13, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File13)
Case 14: SystemParametersInfo uAction, 0, File14, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File14)
Case 15: SystemParametersInfo uAction, 0, File15, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File15)
Case 16: SystemParametersInfo uAction, 0, File16, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File16)
Case 17: SystemParametersInfo uAction, 0, File17, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File17)
Case 18: SystemParametersInfo uAction, 0, File18, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File18)
Case 19: SystemParametersInfo uAction, 0, File19, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File19)
Case 20: SystemParametersInfo uAction, 0, File20, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File20)
Case 21: SystemParametersInfo uAction, 0, File21, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File21)
Case 22: SystemParametersInfo uAction, 0, File22, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File22)
Case 23: SystemParametersInfo uAction, 0, File23, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File23)
Case 24: SystemParametersInfo uAction, 0, File24, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File24)
Case 25: SystemParametersInfo uAction, 0, File25, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File25)
Case 26: SystemParametersInfo uAction, 0, File26, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File26)
Case 27: SystemParametersInfo uAction, 0, File27, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File27)
Case 28: SystemParametersInfo uAction, 0, File28, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File28)
Case 29: SystemParametersInfo uAction, 0, File29, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File29)
Case 30: SystemParametersInfo uAction, 0, File30, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File30)
Case 31: SystemParametersInfo uAction, 0, File31, fuWinIni: UserForm1.Image2.Picture = LoadPicture(File31)
End Select
End Function

 

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