تغییر دسکتاپ

[reza87]

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

[Darg]

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

[Payman62]

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

کد:

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

[Payman62]

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