ايران ويج

سلام.چطوری میشه با کدنویسی دسکتاپ رو عوض کرد.باتشکر

منظورت تصویر پس زمینست یا ایجاد یک دسکتاپ جدید و تغییر اون؟

سلام.
اگه میخوای وال پیپر رو تغییر بدی این کد کارتو راه میندازه.

کد: 
Private Declare Function SystemParametersInfoA Lib "user32" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SETDESKWALLPAPER = 20

Private Sub ChangeWallPaper(strAdrs As String)

Dim ptrPic As StdPicture

    Set ptrPic = LoadPicture(strAdrs)

    strAdrs = Left(strAdrs, InStrRev(strAdrs, ".", -1)) & "bmp"

    SavePicture ptrPic, strAdrs

    SystemParametersInfoA SPI_SETDESKWALLPAPER, 0, strAdrs, 0

End Sub

سلام.
دوست خوبم mojtabamalaekeh پیغام خصوصی داد که آدرس فایل تو Display Properties تغییر نمیکنه. کد اصلاح شدرو هم فرستاده بود. به این صورت که این جا میذارم. کافیه خط آخر به جای پارامتر آخر 1 بذاریم.
SystemParametersInfoA SPI_SETDESKWALLPAPER, 0, strAdrs, 1

reza87

Darg

Payman62

Payman62