كمك در مورد ساده نويسي

[abo1524]

دوستان من يك پروژه دارم كه تعداد 20تصوير داره و با كليك كردن بر روي هر تصوير تصوير به يك اندازه مشخص بزرگ نمايي ميشه و هر كجاي فرم باشه به وسط فرم ميره
من خودم با كمك دوستان اين پروژه رو نوشته ام ولي يك ايراد بزرگ داره كه اون هم تعداد زياد تايمرها است شما اگه پروژه رو ببينيد متوجه ميشيد كه چي ميگم
يه ايراد ديگه هم كه داره اينه كه براي اينكه هر تصوير به وست صفحه بياد بايد مختصات يك به يك تصاوير رو به دست بيارم كه اين كار بسيار وقت گير و كسل كننده اي هست
از دوستان اگه كسي ميتونه كمكم كنه براي ساده نويسي برنامه و احيانا رفع ايرادهاي پروژه ممنون ميشم
اين هم لينك پروژه
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[abo1524]

يعني تو اين سايت به اين بزرگي يكي نيست به من كمك كنه؟

[senaps]

دوست عزیز برای هر عکس، دوباره همه‌ی کدها رو تکرار کردی؟!
یعنی گرفتن مختصات کنونی عکس و ست کردن مختصات و سایز جدید عکس رو هر بار برای هر عکس تکرار کردی که اینجوری شده؟!

----------------------
از یه کلاس استفاده کنین و کد ها رو یه بار بنویسید و بارها بهشون ارجاع بدین!

[abo1524]

ممنون بابت جوابتون ولي مشكل من هم دقيقا همين مبتدي بونم هست واينكه نميدونم بايد چيكار كنم
شما اگه لطف كننين و برام درستش كنيد ممنون ميشم

[senaps]

سلام....
راستش قولی نمی‌تونم بدم ولی باشه ببینم چیکارش میتونم بکنم!

فقط اینکه من پروژتون رو دانلود کردم که ببینمش، چیزی ازش حالیم نشد!!!!
اگر بیسیک نوشتین که شرمندتونم....!!!
اگر با سی‌شارپ نوشتین، لطفا کل فایل رو بذارین.... سولوشن حتمی باشه لااقل!

[abo1524]

متاسفانه با vb6 نوشتمش روال كارش اينطوره كه با كليك كردن بر روي هر تصوير ،تصوير هر كجاي صفحه كه باشه بزرگنمايي ميشه و به وسط فرم مياد پس از چند ثانيه يك تصوير ديگه ظاهر ميشه و دوباره تصوير هر جايي كه بوده بر ميگرده همونجا اين دستور رو فقط براي تصوير اولي نوشتم

[senaps]

کد هایی که تکرار شده رو قرار بدین تا ببینیم چیکار میشه کرد!!
مخصوصا که میشه کلاس ها رو با سی‌شارپ نوشت و تو بیسیک استفاده کرده و یا اینکه کد ها رو به هم تبدیل کرد!

[abo1524]

ممنون
من براي هر تصوير سه تا تايمر دارم
تايمر اول با كليك كردن روي تصوير فعال ميشه
تصوير در حين زوم شده به وسط فرم ميره
Picture1.Left = Picture1.Left + 30
Picture1.Top = Picture1.Top + 10
Label1.Caption = Label1.Caption + 1
ZoomPicture Picture1, Label1.Caption 'stretch it
If Label1.Caption = 70 Then
Picture1.Visible = False
Image1.Visible = True
Timer1.Enabled = False
Timer2.Enabled = True
End If

[abo1524]

تايمر دوم هم تصوير اولي رو غير فعال ميكنه و يه تصوير ديگه رو نشون ميده
Private Sub Timer2_Timer()
Timer3.Enabled = True
Label1.Caption = 0
End Sub

[abo1524]

تايمر سوم هم دقيقا برعكس تايمر اول كار ميكنه به اين صورت كه تصوير دوم رو غير فعال ميكنه
تصوير اول رو كوچك نمايي ميكنه و به جاي اولش ميبره
Picture1.Left = Picture1.Left - 30
Picture1.Top = Picture1.Top - 10
Timer2.Enabled = False
Image1.Visible = False
Picture1.Visible = True
Label2.Caption = Label2.Caption - 1
ZoomPicture Picture1, Label2.Caption 'shrink it
If Label2.Caption = -70 Then
Label2.Caption = 0
end if
مشكل اصلي من اينه كه اولا تعداد تايمرها زياد هستند و بايد براي هر تصوير سه تا تايمر بزارم
و مشكل بعدي اينه كه من بايد چيكار كنم كه تصاوير هر جاي فرم كه باشند به وسطفرم بروند و بزرگ نمايي بشوند مثل هموني كه براي تايمر اول نوشتم