پاک کردن متن تکس باکس ها .....

[nasiiiiiii]

سلام دوستان
من دارم یه برنامه می نویسم که تو یه فرم اطلاعات زیادی رو از کاربر می گیره و این اطلاعات یا تو تکس باکس
باید نوشته شون یا ایتکه با تیک زدن چک باکس و من می خوام یه دکمه بزارم که با کلیک کاربر روی اون تمام این تکسا خالی شن و چک باکس هم تیک نخورده شن اما اگه بخوام برای تک تک این تکس باکس و چک باکس کد بنویسم به نظرم کار منطقی نیست می شه راه ساده تری پیشنهار کنید
البته بگم که قبل از گذاشتن این تاپیک جستجو کردم و یه چیزایی پیدا کردم اما متوجه نشم پس اگه می شه درباره راه حلتون یه توضیح کوچیک بدین مرسی:خجالت::خجالت::قلب::بوس:

[Hossis]

کار سختی نیست
این کار رو می تونید در یک حلقه انجام دهید

For Each ctl As Object In Me.Controls
If TypeOf ctl Is TextBox Then ctl.Text = ""
If TypeOf ctl Is CheckBox Then ctl.Checked = False

Next

[oliya24]

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

[Hossis]

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

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

Private Sub EmptyText()
For Each ct As object In Me.controls
If TypeOf ct Is TextBox Then
ct.Text = ""
ElseIf TypeOf ct Is CheckBox Then
ct.checked=false
ElseIf TypeOf ct Is GroupBox Then

For Each ctl As object In ct.Controls
If TypeOf ct Is TextBox Then
ct.Text = ""
ElseIf TypeOf ct Is CheckBox Then
ct.checked=false
End If
Next
End If
Next
End Sub

[nasiiiiiii]

پس توضیح چی شد؟؟؟؟؟؟؟:خجالت:

[sina_saravi1]

پس توضیح چی شد؟؟؟؟؟؟؟:خجالت:
نگاه کنید میبینید کلا چند خط بیشتر نیست
اگه با ساختار IF و For Each آشنا باشین دیگه سوالی نمیمونه

[oliya24]

جناب سینا درست میگن اصلا توضیح نمیخواد فقط با این 2 ساختار اشنا باشید کار حله