اسکریپت S_Start

[ameir-hg]

سلام دوستان. یه پروژه اتچ کردم .بی زحمت نگاهش کنیدو اسکریپت S_Start که در صفحه ی اول اجرا میشه رو ببینید
آیا این اسکریپت فقط در فرمهای مربعی خوب کار میکنه و آیا راهی نیست که بشه ازش در پروژه هایی که مستطیلی هستند استفاده کرد؟

 

[m javad]

راهنمایی

آیا این اسکریپت فقط در فرمهای مربعی خوب کار میکنه و آیا راهی نیست که بشه ازش در پروژه هایی که مستطیلی هستند استفاده کرد؟

نمونه رو براتون تغییر دادم
میتونید با هر نسبتی این که میخواهید این کار رو انجام بدید
موفق باشید

 

[ameir-hg]

ممنون آقا جواد. خیلی کارت درسته. پروژم 400*600 هست که با تغییر زیر که از شما یادگرفتم مشکل حل شد
xy2=3xy و xy3=2xy
مشکل من اینه که خوب متوجه نمیشم که کد داره به جه سمتی پیش میره. اگه وقت داشتی بی زحمت یکم در موردش توضیح بده می خوام به زبان ویبی دات نت بنویسمش. برنامه نویس تازه کارم -هنوز دستم خوب راه نیوفتاده.

ممنون ازت

 

[m javad]

خب یه حلقه داریم که داره دستور تغییر سایز پنجره رو به تعداد دلخواه تکرار میکنه
علاوه بر اون تو هر تکرار پنجره رو وسط صفحه هم قرار میده

For i=1 To 200
i2=2*i
SysCommand("ResizeWindow","i2,i")
SysCommand("CenterWindow","")
Pause("1")
Next i

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

حالا اگر دستور وسط چین کردن پنجره رو ازش حذف کنید بهتر متوجه میشید که کد داره چیکار میکنه

For i=1 To 200
i2=2*i
SysCommand("ResizeWindow","i2,i")
Pause("1")
Next i

موفق باشید​