สามารถดัดแปลงไปใช้กับ Textbox ได้เช่นกัน
Protected Sub ClearLabel(ByVal p1 As Control)
For Each ctrl As Control In p1.Controls
If TypeOf ctrl Is Label Then
Dim t As Label = TryCast(ctrl, Label)
If t IsNot Nothing Then
t.Text = [String].Empty
End If
Else
If ctrl.Controls.Count > 0 Then
ClearLabel(ctrl)
End If
End If
Next
End Sub
ไม่มีความคิดเห็น:
แสดงความคิดเห็น