تغيير سطح المكتب بالصورة إلي في PictureBox

بسم الله الرحمن الرحيم و الصلاة و السلام على أشرف الأنبياء و المرسلين و بعد :

السلام عليكم شباب و الله أنا حبيت أطبق شغلانة بس مدري ما زبطت معي مدري ليش -_-

المهم أنا لقيت كود لتغيير خلفية سطح المكتب : :P

في الموديول :

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	   
Public Const SPI_SETDESKWALLPAPER = 20

و في Command Button

Dim lngSuccess As Long	   
Dim strBitmapImage As String	   
strBitmapImage = "C:\WINDOWS\pchealth\helpctr\System\Remote Assistance\Interaction\Server\StopControl.bmp"	   
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)

بس قلت مع نفسي ليش ما أعدل على الكود إلي في الزر وبدل ما يحط صوة من النظام ..... يعني إلي في المسار ده :

C:\WINDOWS\pchealth\helpctr\System\Remote Assistance\Interaction\Server\StopControl.bmp

أضيف للبرنامج Picture Box وأحط فيها صورة ولما أضغط على الزر يتبدل سطح المكتب بالصورة إلي في Picture Box

زي كده . :lol:

و السلام عليكم

تغيير سطح المكتب بالصورة إلي في PictureBox

مواضيع مشابهة