Printable View
سلام
می خوام با استفاده از ویژوال بیسیک عکس بک گراند کامپیوتر رو عوض کنم
کلیدشو توی رجیستری سرچ کردم پیدا کردم
ولی وقتی تغییرش دادم عکس عوض نشد
باید Display propearties رو باز کنی و فقط ok کنی بعد عکسی که توی رجیستری گذاشتم اعمال میشه
این خیلی بده:31:
اگر API یا ترفندی بلدین بگین لطفا
مرسی
سلام
شما نباید خودتان مسیر HKCU\Control Panel\Desktop را اصلاح کنید.
به وسیله API ، SystemParametersInfo از کتابخانه user32.dll تغییرات را ویندوز گزارش کنید تا Refresh انجام شود.
سلام
گفتم شاید باز به مشکل بخورید، کدش را تست کردم و اینجا میگذارم.
کد فوق برای VB9 است، فکر کنم برای کار در VB6 باید:کد:'VB9
Private Declare Unicode Function SystemParametersInfoW Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
'...
SystemParametersInfoW(20, 0, "C:\file.bmp", 3)
- لغت Unicode را حذف کنید.
- کاراکتر W را به A تغییر دهید.
- Integer را به Long تغییر دهید.
البته طبیعی است که اگر مسیر مورد نظر Unicode ای باشد و مثلاً نام پوشه ای فارسی باشد، احتمالاً کد در Vb6 به مشکل میخورد.
ولی در بقیه حالات باید عین تستی که من انجام دادم باید کار کند.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
planetsourcecode سایت خوبیه که سایتهایی مثل برنامه نویس ! از روی اون ایجاد شدن! یعنی می تونین ببینین که اونجور سایتهایی رسما شدن ایندکس فارسی این سایت !
بالاخره من چه کار کنم؟
یکی یک برنامه بزاره [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام
شوخی میکنید یا جدی میگید؟نقل قول:
بالاخره من چه کار کنم؟
آن کد دو خطی ساده پست 3 را تست کردید؟
یک نمونه هم کاربر KhepeleSibilo برایتان گذاشتند؟
یعنی شما هر دو را دیدید و تست کردید و نشد؟!!!!!!
به خدا اوني كه لينك دادم يك برنامه هست [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ببخشید من متوجه نشدم
درباره اون برنامه باید بگم خیلی پیچیدست
من فقط یک برنامه می خوام تا با یک کلید والپیپر رو عوض کن بقیه کاراش رو می خوام خودم انجام بدم
درباره اون کد هم باید بگم متاسفانه عمل نمی کنه
یعنی دسکتاپ ویندوز رو بدون عکس می کنه
آقا جون هر کی دوست دارین یکی کمکم کنه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سلام بهرام جان!
در ویبی 6 به این صورته:
یک کلید به فرم اضافه کن.کد:Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Private 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
Private Sub Command1_Click()
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, مسیر فایل مورد نظر, SPIF_UPDATEINIFILE
End Sub
یادت باشه که مسیر فایل مورد نظر رو کامل بنویسی و فایلش هم موجود باشه -- مثلا "D:\Picture.bmp"
نکته مهم: تصویر مورد نظر حتما باید bitmap باشه. در غیر اینصورت تصویر نمایش پیدا نمیکنه.
موفق باشی :11:
ایول ژیگر
درشت شد [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
از همه دوستان مشتکرم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]