کمک : دستور بستن و نمایش مجدد فرم

[mostafa_tak2000]

سلام دوستان
مشکلی خاصی داشتم و اون این هست که یک فرم دارم که دارای تکسها و لیبلهای متعددی است . میخوام وقتی دکمه جدید را فشار دادم فرم بسته شده و مجددا نمایش داده شود. آیا دستوری هست :
البته از دستورات مختلفی استفاده کردم نشده مثل
me.refresh
چون تو این دستور فرم رفرش میشه ولی همه داده های تکس باکسها و لیبلها پاک نمیشن
باتشکر

[Hossis]

اگر منظورتون فقط خالی شدن تکست ها و لیبل ها و کومبو ها و ... هست، این که راه داره و نیازی به بارگزاری مجدد نیست
Sub EmptyText(ByVal ctl As Control)
For Each Itm As Object In ctl.Controls
If TypeOf Itm Is TextBox Then Itm.Text = ""
If TypeOf Itm Is MaskedTextBox Then Itm.Text = ""
If TypeOf Itm Is ComboBox Then Itm.SelectedIndex = -1
If TypeOf Itm Is CheckBox Or TypeOf Itm Is RadioButton Then Itm.checked = False
If TypeOf Itm Is PictureBox Then Itm.image = nothing
If TypeOf Itm Is GroupBox Then EmptyText(Itm)
Next

End Sub
ولی اگر واقعا می خواهید فرم رو ببندید، از تابع Close یا dispose اسفتاده کنید

me.dispose