W jaki sposob moge przeszukac WSZYSTKIE TextBox3, które znajdują się na kartach TabPage na PageControl1 ?
to ma wyglac tak:
jeżeli słowo z Textbox3.Text znajduje sie w przeszukiwana_linia to.....TabControl1.SelectedTab = box.Parent
gdyby nie UserControl to wystarczyłby taki kod:
Private Sub szukanie_w_liniach()
Dim przeszukiwana_linia As String = ListBox1.SelectedItem.ToString
Dim ctrl, ctrl2 As Control
For Each ctrl In TabControl1.Controls
If TypeOf (ctrl) Is TabPage Then
Dim page As TabPage = ctrl
For Each ctrl2 In page.Controls
If TypeOf (ctrl2) Is TextBox Then
Dim box As TextBox = ctrl2
Dim pos As Boolean = przeszukiwana_linia.Contains(box.Text)
If pos And Not box.Text = "" Then
TextBox2.Text = box.Text
TabControl1.SelectedTab = box.Parent
Exit Sub
End If
End If
Next
End If
Next
Ale niestety on nie przeszukuje TextBoxow znajdujacych sie na UserControl :(