متدی برای Reload کردن فرم می خوام..

سلام.. من متدی برای reload کردن فرم می خوام..
فرض کنید دارم یه بازی مثل بازی فکر و بکر مینویسم.. برای دکمه New اگر بخوام کد بنویسم باید 100 خط بنویسم چون باید تمام دکمه ها لیبل ها برگرده به روز اول..:9:
حالا می خوام بدونم متدی یا راه حلی برای این کار وجود داره یا نه..
مثلا کاری کنه که انگار فرم را بسته و باز کرده ایم..
ممنون میشم راهنمایی کنید..:40:

پس چي شد؟ يعني يكي نيست جواب مارو بده..

اگه کنترل هات رو فرم زیاده باید انها رو ارایه کنترلی می کردی تا اینکارا راحت بشه که می تونستی با یک حلقه همه رو به حالت قبل برگردونی

سلام

نقل قول:

---

متدی یا راه حلی برای این کار وجود داره یا نه..

---

به جز اون 100 خط بله راههای دیگه هم هست.

نقل قول:

---

اگه کنترل هات رو فرم زیاده باید انها رو ارایه کنترلی می کردی تا اینکارا راحت بشه که می تونستی با یک حلقه همه رو به حالت قبل برگردونی

---

نیازی به این کار نیست. خود vb این آرایه رو داره.

خوب اول مواد لازم :دی :
- یک عدد CommandButton جدید در فرم قرار دهید و (Name) آن را به Reset تغییر دهید.
- یکم دقت

این قطعه را به پروژه اضافه کنید:

کد:

---

Dim Caption_arr() As String

Private Sub Form_Load()
  ReDim Caption_arr(0 To Me.Controls.Count)
  Dim i As Long
 
  i = 0
  For Each Control In Me.Controls
    Select Case TypeName(Control)
      Case "TextBox": Caption_arr(i) = Control.Text
      Case "Label": Caption_arr(i) = Control.Caption
      Case "CommandButton": Caption_arr(i) = Control.Caption
    End Select
   
    i = i + 1
  Next
End Sub

Private Sub Reset_Click()
  Dim i As Long
 
  i = 0
  For Each Control In Me.Controls
    Select Case TypeName(Control)
      Case "TextBox": Control.Text = Caption_arr(i)
      Case "Label": Control.Caption = Caption_arr(i)
      Case "CommandButton": Control.Caption = Caption_arr(i)
    End Select
   
    i = i + 1
  Next
 
End Sub

---

تمام شد. سلامت باشید.
به همین سادگی!
موفق باشین :11:

خوب بذار حالا یه توضیح هم بدم که دیگه کامل شه :دی
ببینید کل کنترل های یک فرم درون یک آرایه وجود دارند. آن آرایه این است Me.Controls
یا Form1.Controls
در حقیقت اسم فرم.کنترل (Me به فرمی که در آن کد مینویسیم اشاره دارد.)

ما توسط TypeName میتونیم نوع Control رو متوجه بشیم (توسط رشته ای که بر میگردونه.)

در Form_Load (موقع شروع برنامه) عنوان ها رو در آرایه ای ذخیره کردیم.
وقتی دکمه Reset زده شود عنوان ها از همان آرایه (که در بالا اشاره شد) بازخوانی میشنوند و در Control های خود قرار میگیرند.

اگه سوالی داشتید بپرسید.
متشکرم :11: