saeed 444
یک شنبه 30 تیر 1392, 20:42 عصر
با سلام
من میخواستم این شرط ها رو در دستور کوتاه تر و گروهی داشته باشم چون نمونه این شرط رو زیاد استفاده میکنم
لطفا در صورت امکان راهنمایی بفرمایید نمونه کد هم گذاشتم
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
با تشکر
من میخواستم این شرط ها رو در دستور کوتاه تر و گروهی داشته باشم چون نمونه این شرط رو زیاد استفاده میکنم
لطفا در صورت امکان راهنمایی بفرمایید نمونه کد هم گذاشتم
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
با تشکر