Fa تنظیم بک گراند

amiralavi74 · Jul 9, 2012

با سلام خدمت اساتید و دوستان محترم من با نمونه ای که پیوست کردم یک اسلاید شو درست کردم و مخاطب برای دیدن هر عکس 4 ثانیه وقت داره حالا میخوام مخاطب هر عکسی رئ که پسندید بتونه با راست کلیک روی اون یا یک کلید دیگه عکس مورد نظر رو به عنوان یک گراند دسکتاپ تنظیم کنه.
با تشکر

nevercom · Jul 9, 2012

برای تغییر Wallpaper پلاگینی به همین نام موجود هست، همچنین پلاگین WallPlugin

amiralavi74 · Jul 9, 2012

با سلام و تششکر از همکاری شما من پلاگین WallPlugin رو دانلود کردم .
در اینجا کدی که با اون اسلایدشو رو زدم بهتون نشون میدم.

img = img+1number$=CHAR(img)
Picture$='d:\graphic\picture\hijab\Pic (' +number$+').jpg'
FileExist("Picture$","exist")
If (exist=0) Then
img = 1
number$=CHAR(img)
Picture$='C:\Picture\Pic' +number$+'.jpg'
End
ReplaceImage("Bitmap","Picture$")
ScriptTimer("Script","4000")

و این کدی هست که در پلاگین برای تغییر عکس بک گراند هست:

**Make Sure we turn Active Desktop ON*************************************
PluginSet("PlugIn","1")
PluginRun("PlugIn","SetActive")
*************************************
Path$ = '<Embedded>\Solar Eclipse.jpg'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetWP")

حالا من چطور کد کلید پلاگین رو عوض کنم که از کد بالا متغیر بگیره و عکسی که در اون زمان در حال نشان دادن هست رو تنظبم کنه روی دسکتاپ؟

nevercom · Jul 10, 2012

شما مسیر عکس رو در متغیر $Picture ذخیره میکنید و در پلاگین از متغیر $Path استفاده شده، کافیه متغیر $Picture رو به پلاگین ارسال کنید.

amir942 · Mar 1, 2014

باسلام
و این کدی هست که در پلاگین برای تغییر عکس بک گراند هست من میخواهم به جای تصویر پیش فرض Solar Eclipse.jpgازتصویر دلخواه استفاده کنم آیا راهی هست که بتوانم وقت اجرای اتوران درهرکامپیوتری اجرا شود.

Make Sure we turn Active Desktop ON
*************************************
PluginSet("PlugIn","1")
PluginRun("PlugIn","SetActive")
*************************************
Path$ = '<Embedded>\Solar Eclipse.jpg'
PluginSet("PlugIn","Path$")
PluginRun("PlugIn","SetWP")