boy-hercule
Member
سلام به همهتون يه سوال داشتم در مورد رزوليشن كامپيتور كاربر
من يك پرنامه اي ساختم كه تمام صفحاتش بر پايه سايز 864*1152 طراحي شده به همين خاطر بوسيله كد زير كاري كردم تا كسي كه برنامه رو اجرا مي كنه رزوليشنش به 864*1152 تبديل بشه تا ظاهر پروژه ام به هم نريزه ولي بعد از اينكه user از پروژه خارج شد رزوليشنش همين 864*1152 مي مونه ولي نمي خوام اينجوري باشه بلكه مي خوام كاري كنم كه اگر exit رو زد ، resolation ويندوزش به حالت اوليه خودش برگرده به طوري كه متوجه نشه كه رزويشنش تغييري كرده بود.
از كسي پرسيدم كه چه جوري اين كار رو انجام بدم، توضيح داد كه بايد اول بفهمي كه رزوليشنش چيه بعد اونو در جايي ذخيره كني و در پايان اونو فعال كني
آيا اين كار درسته يا اينكه راهي آسان تر براي اين كار هست يا كدي براي اين كار وجود دارد يا نه
حال از شما مي خوام كه به من كمك كنيد تا بتونم رزوليشن user رو به حالت اوليه خودش بعد از زدن exit برگردونم
كدي هم كه توسطش رزوليشن رو عوض كردم اينه :
خواهش مي كنم اگر پاسخ اين سوال رو مي دونيد بگيد چون خيلي لنگه اين كارم و در واقع اگر نتونم اين كار رو بكنم پروژه ام با شكست روبرو مي شه
من يك پرنامه اي ساختم كه تمام صفحاتش بر پايه سايز 864*1152 طراحي شده به همين خاطر بوسيله كد زير كاري كردم تا كسي كه برنامه رو اجرا مي كنه رزوليشنش به 864*1152 تبديل بشه تا ظاهر پروژه ام به هم نريزه ولي بعد از اينكه user از پروژه خارج شد رزوليشنش همين 864*1152 مي مونه ولي نمي خوام اينجوري باشه بلكه مي خوام كاري كنم كه اگر exit رو زد ، resolation ويندوزش به حالت اوليه خودش برگرده به طوري كه متوجه نشه كه رزويشنش تغييري كرده بود.
از كسي پرسيدم كه چه جوري اين كار رو انجام بدم، توضيح داد كه بايد اول بفهمي كه رزوليشنش چيه بعد اونو در جايي ذخيره كني و در پايان اونو فعال كني
آيا اين كار درسته يا اينكه راهي آسان تر براي اين كار هست يا كدي براي اين كار وجود دارد يا نه
حال از شما مي خوام كه به من كمك كنيد تا بتونم رزوليشن user رو به حالت اوليه خودش بعد از زدن exit برگردونم
كدي هم كه توسطش رزوليشن رو عوض كردم اينه :
XRes$ = '1152'
XResInt = VAL(XRes$)
** Change X value to Integer
PluginSet("MiscPlugIn","XResInt")
PluginRun("MiscPlugIn","ResX")
YRes$ = '864'
YResInt = VAL(YRes$)
** Change Y value to Integer
PluginSet("MiscPlugIn","YResInt")
PluginRun("MiscPlugIn","ResY")
PluginRun("MiscPlugIn","ChangeRes")
**Must be a valid Screen Resolution
XResInt = VAL(XRes$)
** Change X value to Integer
PluginSet("MiscPlugIn","XResInt")
PluginRun("MiscPlugIn","ResX")
YRes$ = '864'
YResInt = VAL(YRes$)
** Change Y value to Integer
PluginSet("MiscPlugIn","YResInt")
PluginRun("MiscPlugIn","ResY")
PluginRun("MiscPlugIn","ChangeRes")
**Must be a valid Screen Resolution
خواهش مي كنم اگر پاسخ اين سوال رو مي دونيد بگيد چون خيلي لنگه اين كارم و در واقع اگر نتونم اين كار رو بكنم پروژه ام با شكست روبرو مي شه
آخرین ویرایش:









