I have a form that might (or might not) have a textbox on it named
something particular - how can I find if the form has the control, and
if it does what the text of the control has? This form has textboxes
that are created on the fly, and when the OK is clicked I need to figure
out which ones are on the screen and what the text is in each to do
other stuff.

So, kind of like:

dim xstr as string
xstr=me.findcontrol("tText").tostring

Thanks.

Darin

*** Sent via Developersdex http://www.developersdex.com ***

Try this. It's not terribly elegant, but I think
it will get the job done.
------------------


'call with the name of the control you're looking for
If ControlIsThere("MyBigGiantTextBox") Then...

'You need this to be available in both the
'function and the recursive routine that
'it calls, so you have something to stop
'the recursion. I'd make it a form-level
'variable.
Dim FoundControl as Boolean

Private Function ControlIsThere(controlName as String) as Boolean
    'Set this to false.
    FoundControl = False
    'Call the recursive routine with the form.
    ControlExists(Me)
    'Return the result.
    Return FoundControl
End Function

'This will recurse, so it gets all the controls on the form.
'This way, if you have panels, for example, it will
'  touch the controls inside those containers.
Private Sub ControlExists(ByVal ctrlContainer As Control)
    For Each ctrl As Control In ctrlContainer.Controls
        'Debug.Print(ctrl.Name.ToString)
        If ctrl.Name = "MyBigGiantTextBox" Then
            FoundControl = True
            Exit For
        End If
        'if control has children, call this function recursively
        If ctrl.HasChildren Then
            ControlExists(ctrl)
        End If
    Next
End Sub

Robin S.

Show quoteHide quote

You know, I'm not sure if this will pick up controls that are contains
within control containers on a form, but what's wrong with this:

Public Function ContainsControl("ControlYourLookingFor" as string) as
Control
for each ctl as control in me.controls
    if string.Compare(ctl.name, "ControlYourLookingFor", True) then
        return ctl
    end if
next
end function

if not ctl is nothing then
    ' get the text of the control and do something with it
end if

HTH
Steve

Show quoteHide quote

If you are using .NET 2.0 and you know the container control containing the
control you can use '<container control>.Controls("TextBox22")' to obtain a
reference to the control.

What do you call nested If...Then search loops?
SortedList - bug or undocumented behavior ?
Idle time
code collapsing in vb.net 2005
convert idl to c# or tlb
VB.NET Delegates
Newbie: general requirements to write a program for video coding?
Best practice, copy object, using a shadow Object for a undo functionality
The DOS window in a Console Application
RadioButtonList