بسم الله الرحمن الرحيم و الصلاة و السلام على أشرف الأنبياء و المرسلين و بعد :
السلام عليكم شباب و الله أنا حبيت أطبق شغلانة بس مدري ما زبطت معي مدري ليش -_-
المهم أنا لقيت كود لتغيير خلفية سطح المكتب : :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:
و السلام عليكم
