تغيير خلفية سطح المكتب

أخي على

لتغيير صوره الخلفية هناك دالة وتستعمل على المنوال التالي:

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _

(ByVal uAction As Long, ByVal uParam As Long, _

ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Const SPIF_UPDATEINIFILE = &H1

Const SPI_SETDESKWALLPAPER = 20

Const SPIF_SENDWININICHANGE = &H2

Private Sub Command1_Click()

Dim X As Long

X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, "(None)", _

SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

MsgBox "Wallpaper was removed"

End Sub

Private Sub Command2_Click()

Dim FileName As String

Dim X As Long

'هنا تختار الصورة

FileName = "c:windowspinstripe.bmp"

X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _

SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)

MsgBox "Wallpaper was changed"

End Sub

شكراً لك عزيزي بركان .

لقد أجبتني على طلبي وكفيت ووفيت.

لكني كنت تغييرها عن طريق REGEDIT

من المفتاح :

HKEY_CURRENT_USER_Control PanelDesktop

ثم قم بتغيير قيمة WALPAPER من مثلاً "C:WINDOWSA.bmp"

إلى "C:WINDOWSD.bmp"

وبعد إعلدة تشغيل الجهاز يتم تغيير خلفية سطح المكتب.

لكني لست بارع كثيراً في التعامل مع REGEDIT في الفيجوال بيسيك.

على كل حال هذه معلومة للإفادة أرجو ممن يتمكن من تطبيقها أن يضع لنا الكود للإفادة.

وشكراً لك أخي بركان مرة ثانية.

شكرا اخي بركان على الجواب على ذا الكود انا ابحث عنه من زمان