تمرین برای مسابقات علمی عملی(مرحله عملی)

[sadeghbarout]

دوستان من میخواستم با فشردن کلید alt+f4 برنامه end نشه اومدم تو رویداد keydown اینو نوشتم:

If KeyCode = 115 And 18 Then

End If

البته keypreview فرم رو هم true کردم حالا باید بین این دستور شرطی چی بذارم؟؟؟؟

ما که آخرش نفیمیدیم داری سوال میگی یا داری ما رو امتحان میکنی یا خودت جوابو بلد نیستی ولی به هر حال برای این سوال میتونی یه متغیری رو مثل ex رو توی همین if برابر 1 بذاری و توی unload یه شرط دیگه بذاری که اگه ex=1 بعدش خارج نشه(cancel=1) و ex=0 بشه

موفق باشی

[amirxbest]

سلام دوسان من میخوام مثل این برنامه درست کنم که کاربر با وارد کردن ردیف و ستون به تعداد عددی که وارد کرده از picture box روی فرم load کنه.
نمیدونم از آرایه 2 بعدی باید استفاده کنم یا چیز دیگه:
اینم شکلش:

ممنو میشم از راهنماییتون.

[sadeghbarout]

یدونه picture1 بذار رو صفحه و اون رو آرایه صفر کن(برای این کار باید picture1 رو یه بار کپی و پیست کنی و اون picture1(1) رو پاک کنی) یدونه دکمه هم بذار
حالا کد های زیر رو توی صفحه کد کپی کن:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالشو ببر

[amirxbest]

صادق جان ممنون

ولی اگه کاربر بخوادبرای بار دوم عدد وارد کنه برنامه به مشکل برمیخوره و picture box ها جابجا میشه و شکل بدی پیدا میکنه خواستم با دستور unload کار کنم تا یه حدی پیش رفت ولی بازم مشکل داره.ببین میفهمی مشکل از کجاست؟

If Picture1.Count > 2 Then
For i = 1 To Picture1.Count - 1
Unload Picture1(i)

Next

End If

البته برای بار اول کار میکنه ولی بار بعد اخطار میده.
در ضمن این کد رو قبل از اون دسور گذاشتم.
ممنون میشم از راهنمایی

[sadeghbarout]

در اول کد دکمه این کد رو بذار

unload form1
form1.show

درضمن این قسمت کد رو هم اینطور تغییر بده(وگرنه داخل 1 ستونی ها یه کم مشکل پیش میاد)

Next j
top1 = top1 + 700
left1 = 500
Next i

[amirxbest]

unload form1
form1.show

صادق جون این دیگه چه کاری هست اینکه اصلا کار نمیکنه؟
برا اولین بار که میخواد picture box ها رو load کنه که نمیتونه این فقط فرم رو unload میکنه.
فکر کنه بای یه چیزی تو مایه های همونی که من گذاشتم بنویسم

[sadeghbarout]

یعنی چی که نمیشه؟ مگه دست خودشه ؟
من کردم شد
سورس رو برات میذارم:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[amirxbest]

آره درسته صادق جون.شرمنده
آخه من picture ها رو که آرایه ای بود درون یه picture box دیگه قرار داده بودم واسه همینم نمیشد.
خودم این کد رو گذاشتم کار کرد:

For i = 1 To Picture1.Count - 1
Unload Picture1(i)
Next

ممنون

[amirxbest]

یه برنامه ای هست که یه line رو میچرخونه(مثل عقربه های ساعت):
این برنامه رو بجز با sin و cos جور دیگه هم میشه نوشت؟؟؟؟؟

[sadeghbarout]

اینم همونطوری که میخواستی بدون unload کردن فرم و با unload کردن picture ها

توی فایل قبلی که گذاشتم به جای اون کدها اینها رو کپی کن

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید