-----------------------------------------------------------

New Message on BDOTNET

-----------------------------------------------------------
From: Pooran-Prasad
Message 5 in Discussion


Hi Ravi,
 
    Call this recursive 
function...

   Private Sub 
ClearControls(ByVal cntControl As 
Control)
        Dim i As 
Integer
        For i = 0 To 
cntControl.Controls.Count - 
1
            
Try
                
If cntControl.Controls(i).GetType.ToString() = "System.Windows.Forms.TextBox" 
Then
                    
cntControl.Controls(i).Text = 
""
                
ElseIf cntControl.Controls(i).Controls.Count > 0 
Then
                    
ClearControls(cntControl.Controls(i))
                
End If
            
Catch ex As 
InvalidCastException
                
MessageBox.Show(ex.Message)
            
End Try
        Next
    
End Sub

    Hope that helps
    Have a great day 
:)


R. Pooran 
Prasad
Itreya Technologies Pvt Ltd.,
Mail: [EMAIL PROTECTED]
Phone(Off) 
: +91 80 5200179 Extn: 51
Mobile:  +91 98860 
29578
Add 
me to address book



-----------------------------------------------------------

To stop getting this e-mail, or change how often it arrives, go to your E-mail 
Settings.
http://groups.msn.com/bdotnet/_emailsettings.msnw

Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help

For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact

If you do not want to receive future e-mail from this MSN group, or if you received 
this message by mistake, please click the "Remove" link below. On the pre-addressed 
e-mail message that opens, simply click "Send". Your e-mail address will be deleted 
from this group's mailing list.
mailto:[EMAIL PROTECTED]

Reply via email to