ok wszystko działa :)
to żeby nie zakładać nowego tematu...
chciałbym teraz stworzyć kolejną funkcję - odwrotną do tej.....
zrobić by każdy plik zapisany przez poprzednią funkcję - ładował się do odpowiedniego textboxa
(czyli odwrotność tej funkcji)
by z pliku "tresc1.text" zapisywał zawartosc do Textbox1.Text na zakładce TabPage('tresc1'-'tresc'=1) czyli po prostu TabPage1
tresc2 odpowiednio do TabPage2 , TextBox1
tresc3 odpowiednio do TabPage3 , TextBox1
tresc4 odpowiednio do TabPage4 , TextBox1
@kAzek
dobrze kombinuje?
Private Sub LoadTextBox(ParentCtrl As Control, Text As String)
Const FILE_PATH As String = "c:\testujemy\tresc\"
Dim tekst As String
tekst = ""
For PageIndex As Integer = 0 To TabControl1.TabCount - 1
Dim wq As New IO.StreamReader(FILE_PATH + "tresc" + CStr(PageIndex + 1) + ".txt", True)
tekst = wq.ReadToEnd()
wq.Close()
If ParentCtrl.HasChildren Then
For Each Ctrl As Control In ParentCtrl.Controls
If TypeOf Ctrl Is TextBox And Text.Equals(Ctrl.Text) Then
CType(Ctrl, TextBox).Text = tekst
Exit Sub
End If
LoadTextBox(Ctrl, Text)
Next
End If
Next
End Sub