تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تغيير خلفية سطح المكتب
#1
كاتب الموضوع : Boutemine Oualid


كود :
Private 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
' ' constants
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Dim ctr As Integer
' Form contains a Command Button (cmddefaultwallpaper) and a Timer with
' seconds according to user choice.
' Please make sure that the path of the file to be changed is correct.
Private Sub cmddefaultwallpaper_Click()
ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "(None)", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub

Private Sub Form_Load()
Form1.WindowState = 1
ctr = 0
'_________________________________
Dim ret As Long
Dim filename As String
ctr = ctr + 1
If ctr > 20 Then ctr = 1
' c:\photos folder holds bmp files from wall1.bmp to wall20.bmp.
filename = "c:\photos\wall" & ctr & ".bmp"
ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, filename, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير شكل الزر عند المرور عليه Ahmad Jawad 1 1,464 11-03-13, 09:08 AM
آخر رد: عمـر
  لانشاء اختصار على سطح المكتب RaggiTech 0 453 17-10-12, 02:19 PM
آخر رد: RaggiTech
  نسخ صورة الخلفية من سطح المكتب RaggiTech 0 277 17-10-12, 01:11 AM
آخر رد: RaggiTech
  لنسخ خلفية سطح المكتب إلى برنامجك RaggiTech 0 288 17-10-12, 01:02 AM
آخر رد: RaggiTech
  تغيير صوت اغلاق الويندوز RaggiTech 0 497 17-10-12, 12:40 AM
آخر رد: RaggiTech
  تغيير الصورة في خلفية سطح المكتب RaggiTech 0 357 17-10-12, 12:39 AM
آخر رد: RaggiTech
  تغيير اسم الكومبيوتر RaggiTech 0 340 17-10-12, 12:38 AM
آخر رد: RaggiTech
  اظهار واخفاء ايقونات سطح المكتب RaggiTech 0 449 17-10-12, 12:19 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم