دنیای سورس کد ویژوال بیسیک

 

 

 

Public Enum What2Clear
    [Clear All Textbox's] = 0
    [Clear Textbox's Contained In Frames] = 1
    [Clear Textbox's Contained In Picturebox's] = 2

    [Clear Textbox's Contained In Form] = 3

End Enum

Public Sub TextBoxMod(WhichForm As Form, CommandLine As What2Clear, Optional ReplaceWith As String = Empty)

    For Each Control In WhichForm 'Search's through given form


        If CommandLine = [Clear All Textbox's] Then
            If TypeOf Control Is TextBox Then Control.Text = ReplaceWith
            'Look for ALL textboxes
        ElseIf CommandLine = [Clear Textbox's Contained In Form] Then
            'Look for textboxes in Form ONLY
            If TypeOf Control Is TextBox And TypeOf Control.Container Is Form Then Control.Text = ReplaceWith
        ElseIf CommandLine = [Clear Textbox's Contained In Frames] Then
            'Look for textboxes in Frmaes ONLY
            If TypeOf Control Is TextBox And TypeOf Control.Container Is Frame Then Control.Text = ReplaceWith
        ElseIf CommandLine = [Clear Textbox's Contained In Picturebox's] Then
            'Look for textboxes in Pictureboxes ONLY
            '    
            If TypeOf Control Is TextBox And TypeOf Control.Container Is PictureBox Then Control.Text = ReplaceWith
        End If

    Next

End Sub