خلاصه نویسی برای چند شرط

[saeed 444]

با سلام
من میخواستم این شرط ها رو در دستور کوتاه تر و گروهی داشته باشم چون نمونه این شرط رو زیاد استفاده میکنم
لطفا در صورت امکان راهنمایی بفرمایید نمونه کد هم گذاشتم


Private Sub LBVisibleFalse()
If lb1.Text = "" Then
lb1.Visible = False
If lb2.Text = "" Then
lb2.Visible = False
If lb3.Text = "" Then
lb3.Visible = False
If lb4.Text = "" Then
lb4.Visible = False
If lb5.Text = "" Then
lb5.Visible = False
If lb6.Text = "" Then
lb6.Visible = False
If lb7.Text = "" Then
lb7.Visible = False
If lb8.Text = "" Then
lb8.Visible = False
If lb9.Text = "" Then
lb9.Visible = False
If lb10.Text = "" Then
lb10.Visible = False
If lb11.Text = "" Then
lb11.Visible = False
If lb12.Text = "" Then
lb12.Visible = False
If lb13.Text = "" Then
lb13.Visible = False
If lb14.Text = "" Then
lb14.Visible = False
If lb15.Text = "" Then
lb15.Visible = False
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

با تشکر

[shahryari]

سلام
البته این کدشما تقریبا بی معنی میتونه باشه
چرا؟
چون هر لیبلی که تکستش برابر "" هست ، عملا مثلا اینکه Visible برابر false است چون چیزی دیده نمیشه
ولی به هر حال ...:متفکر:
این کد را تست کن
For Each c As Control In Me.Controls
If TypeOf c Is Label Then
If DirectCast(c, Label).Text = "" Then
c.Visible = False
End If
End If
Next

[Purya Fallah]

سلام
البته این کدشما تقریبا بی معنی میتونه باشه
چرا؟
چون هر لیبلی که تکستش برابر "" هست ، عملا مثلا اینکه Visible برابر false است چون چیزی دیده نمیشه
ولی به هر حال ...:متفکر:
این کد را تست کن
For Each c As Control In Me.Controls
If TypeOf c Is Label Then
If DirectCast(c, Label).Text = "" Then
c.Visible = False
End If
End If
Next
میشه درباره کدتون یه مقدار توضیح بدید .

[mehran6764]

میشه درباره کدتون یه مقدار توضیح بدید .

کنترل های فرم جاری رو یکی یکی بررسی می کنه که Label هستند یا نه ، بعد بررسی می کنه که اگر خاصیت text برچسب ها خالی بود اونا رو مخفی کنه