MASAÜSTÜ RESMİNİ DEĞİŞTİRMEK
Visual Basic ile masaüstü resmini değiştirmek çok kolaydır. Sadece USER32.DLL dosyasında bulunan bir fonksiyonu çağırmak yeterlidir. Yemedik, içmedik sizin için bu API'yi kullanan bir program oluşturduk. Öncelikle FORMdan ayrı bir BAS modülüne aşağıdaki tek bir satırı girin.
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
Fonksiyonu programınıza tanıttıktan sonra şekildeki gibi bir form oluşturun ve ilgili bölümlere kodları yazın.
Private Sub Form_Load()
Dim Temp As String
Temp = InputBox("Lütfen WINDOWS
klasörünü girin", "", "C:\WINDOWS\")
If Temp = "" Then End 'Vazgeç'e basıldı
If Right$(Temp, 1) <> "\" Then Temp = Temp + "\"
list1.Tag = Temp
Temp = Temp + "*.bmp"
Temp = Dir$(Temp)
Do While Temp$ <> ""
Temp = Dir$
'Dosya bulunamazsa döngüden çık.
If Temp = "" Then Exit Do
list1.AddItem Temp
Loop
list1.AddItem "(Yok)"
Show
list1.SetFocus
list1.ListIndex = 0
End Sub
'Küçük açıklama: Formun yüklenme aşamasında
'Setfocus olayını kullanırsanız VB hata verir.
Private Sub list1_DblClick()
Dim Temp As String
Dim BMPFile As String
Temp = Tag
If list1.Text = "(Yok)" Then
BMPFile = "(Yok)"
Else
BMPFile = Temp + (list1)
End If
SystemParametersInfo SPI_SETDESKWALLPAPER, 0,
ByVal BMPFile, SPIF_UPDATEINIFILE
End Sub
'Değiştir tuşu
Private Sub Command1_Click()
list1_DblClick
End Sub
Programınızı çalıştırdıktan sonra karşınıza BMP dosyalarınızın yerini soran bir mesaj kutusu gelecektir. Mesaj kutusuna uygun bir dizin girdikten sonra artık liste kutusundaki ilgili resme çift tıklayarak veya değiştir tuşuna basarak resmi masaüstüne yükleyebilirsiniz. Program aynı zamanda WIN.INI dosyasını da haberdar ediyor.
|