Wie auf Objekt zugreifen ?

Computer: Software & Programmierung .NET & C#
#1

Hallo Leute …

Ich habe ein Problem das Folgendermaßen aussieht…

Ich möchte gerne wissen ob schon ein Tab in einem Tabcontrol vorhanden ist.

Wenn dieser Tab Vorhanden ist… Dann die in diesem Tab befindliche Textbox mit Text gefüllt werden.

Also wie mache ich das jetzt ?

Wie ich Überprüfe ob der Tab schon da ist weiß ich.

Aber die Sache ist die das ich Folgendermaßen immer einen Neuen Tab erstelle :
Public Shared Sub Taberstellen(ByVal TabName As String)
Dim tTab As New TabPage(TabName)
Dim tb, tb2 As New KryptonTextBox
Dim pb, pb1, pb2, pb3, pb4, pb5 As New PictureBox
Dim panel As New KryptonPanel

panel.Parent = tTab
tb.Parent = tTab
tb2.Parent = tTab

tTab.Controls.Add(panel) : tTab.Controls.Add(tb) : tTab.Controls.Add(tb2)

panel.Dock = DockStyle.Left
panel.Height = 268
panel.Width = 100
Dim panelloc As New System.Drawing.Point
panelloc.X = 3
panelloc.Y = 3
panel.Location = panelloc

'tb.Dock = DockStyle.Bottom
tb.Multiline = True
tb.Height = 92
tb.Width = 273
Dim tbloc As New System.Drawing.Point
tbloc.X = 103
tbloc.Y = 179
tb.Location = tbloc

'tb2.Dock = DockStyle.Bottom
tb2.ReadOnly = True
tb2.Multiline = True
tb2.Height = 176
tb2.Width = 273
Dim tb2loc As New System.Drawing.Point
tb2loc.X = 103
tb2loc.Y = 3
tb2.Location = tb2loc

pb.Parent = panel
pb.BorderStyle = BorderStyle.FixedSingle
pb.SizeMode = PictureBoxSizeMode.StretchImage
pb.BackColor = Color.Transparent
pb.Height = 92
pb.Width = 94
Dim pbloc As New System.Drawing.Point
pbloc.X = 3
pbloc.Y = 3
pb.Location = pbloc

pb1.Parent = panel
pb1.BorderStyle = BorderStyle.FixedSingle
pb1.Image = My.Resources.ResourceManager.GetObject(„benutzer“)
pb1.SizeMode = PictureBoxSizeMode.StretchImage
pb1.BackColor = Color.Transparent
pb1.Height = 16
pb1.Width = 16
Dim pb1loc As New System.Drawing.Point
pb1loc.X = 8
pb1loc.Y = 101
pb1.Location = pb1loc

pb2.Parent = panel
pb2.BorderStyle = BorderStyle.FixedSingle
pb2.Image = My.Resources.ResourceManager.GetObject(„pref-ft“)
pb2.SizeMode = PictureBoxSizeMode.StretchImage
pb2.BackColor = Color.Transparent
pb2.Height = 16
pb2.Width = 16
Dim pb2loc As New System.Drawing.Point
pb2loc.X = 30
pb2loc.Y = 101
pb2.Location = pb2loc

pb3.Parent = panel
pb3.BorderStyle = BorderStyle.FixedSingle
pb3.Image = My.Resources.ResourceManager.GetObject(„E-Mail-32“)
pb3.SizeMode = PictureBoxSizeMode.StretchImage
pb3.BackColor = Color.Transparent
pb3.Height = 16
pb3.Width = 16
Dim pb3loc As New System.Drawing.Point
pb3loc.X = 52
pb3loc.Y = 101
pb3.Location = pb3loc

pb4.Parent = panel
pb4.BorderStyle = BorderStyle.FixedSingle
pb4.Image = My.Resources.ResourceManager.GetObject(„Contact-32“)
pb4.SizeMode = PictureBoxSizeMode.StretchImage
pb4.BackColor = Color.Transparent
pb4.Height = 16
pb4.Width = 16
Dim pb4loc As New System.Drawing.Point
pb4loc.X = 74
pb4loc.Y = 101
pb4.Location = pb4loc

pb5.Parent = panel
pb5.BorderStyle = BorderStyle.FixedSingle
pb5.SizeMode = PictureBoxSizeMode.StretchImage
pb5.BackColor = Color.Transparent
pb5.Height = 92
pb5.Width = 94
Dim pb5loc As New System.Drawing.Point
pb5loc.X = 3
pb5loc.Y = 171
pb5.Location = pb5loc

frm_private.TabControl1.TabPages.Add(tTab)
End Sub

Wie kann ich jetzt auf die Textbox zugreifen die im Jeweiligen Tab liegt ?

#2

Ui VB habe ich schon sehr lange nicht gemacht…

Vielleicht in etwa so:

String text= tTab.TabPages[tTab.SelectedIndex].Controls[0].text
'wobei der Index der der Textbox sein muss.

*?*

#3

Hallo Marlboro,

sorry, ich bin schon lange aus dem Thema draußen. Kann dir leider nicht weiterhelfen. Ich sollte mal mein Profil überarbeiten.

Erklärbär

#4

String text=
tTab.TabPages[tTab.SelectedIndex].Controls[0].text
'wobei der Index der der Textbox sein muss.

Nein … Leider nicht.
Aber trotzdem Danke für deinen Vorschlag :smiley:

Sonst noch jemand ne Idee ?

#5

sorry, ich bin schon lange aus dem Thema draußen. Kann dir
leider nicht weiterhelfen. Ich sollte mal mein Profil
überarbeiten.

Ist ja kein Thema … Will hoffen das mir das aber trotzdem jemand beantworten kann

#6

Sorry da kann ich nicht weiterhelfen.
Gruß Rimitec

#7

Guten Morgen!

Du kannst über TabControl1.TabPages.Contains(TabPage-Objekt) oder TabControl1.TabPages.ContainsKey(Name des Tabpage) herausfinden, ob ein Tabpage existiert. Anschließend kannst du durch die Controls des TabPage schleifen, dir die Textbox heraussuchen (sofern es nur eine darauf gibt … bei mehreren musst du anhand des Namens der Textbox noch eine Unterscheidung machen) und den Text davon setzen.

Hier mal ein kleines Beispiel:

If TabControl1.TabPages.ContainsKey(TabPage1.Name) Then
Dim o As Control

For Each o In TabControl1.TabPages(TabPage1.Name).Controls
If TypeOf o Is TextBox Then
o.Text = „blah“
End If
Next
End If

Das „TabPage1.Name“ im ContainsKey und der anschließenden Schleifenbedingung musst du natürlich durch dein zu suchendes TabPage ersetzen.

Ich hoffe, ich habe dir damit weiterhelfen können.

Viele Grüße,
René

Hallo Leute …

Ich habe ein Problem das Folgendermaßen aussieht…

Ich möchte gerne wissen ob schon ein Tab in einem Tabcontrol
vorhanden ist.

Wenn dieser Tab Vorhanden ist… Dann die in diesem Tab
befindliche Textbox mit Text gefüllt werden.

Also wie mache ich das jetzt ?

Wie ich Überprüfe ob der Tab schon da ist weiß ich.

Wie kann ich jetzt auf die Textbox zugreifen die im Jeweiligen
Tab liegt ?

#8

TabControl1.TabPages(0).Controls(„MeineTextbox“) müsste Dein Problem lösen

#9

TabControl1.TabPages(0).Controls(„MeineTextbox“) müsste Dein
Problem lösen

Okay das hat soweit funktioniert… Doch jetzt habe ich ein neues Problem .

Ich möchte gerne ein Event für die im Tab enthaltene Textbox haben. Das habe ich auch schon gemacht, mit addhandler

Und :

Private WithEvents tTab As TabPage
Private WithEvents tb, tb2 As KryptonTextBox
Private WithEvents pb, pb1, pb2, pb3, pb4, pb5 As PictureBox
Private WithEvents panel As KryptonPanel

So wenn ich jetzt allerdings darauf zugreifen will, sagt er mir :
„Fehler 1 Auf einen Instanzmember einer Klasse kann nicht ohne explizite Instanz einer Klasse von einer/m freigegebenen Methode/Member aus verwiesen werden.“

Okay habe ich mir gedacht Also als Shared deklarieren … Bringt aber auch nichts weil dann das Handle nicht ausgeführt wird.

Das was ich gerne ausführen möchte ist das Keydown Event was folgendes beinhaltet :

If e.KeyCode = Keys.Enter Then
If Not tb.Text = Nothing Then
e.SuppressKeyPress = True
frm_main.Textsenden(„pn|“ & tTab.Text & „|“ & tb.Text)
tb.Clear()
End If
End If

Ich habe keine Ahnung warum er das nicht macht.

#10

Hi!

Du hast ja die erste TextBox als „tb“ und die Zweite als „tb2“ definiert. Du brauchst also am Ende des Codes nur das einfügen:

tb.Text = „Hallo! (TextBox1)“
tb2.Text = „Hallo! (TextBox2)“

Um nun noch den neu erstellten Tab in den Vordergrund zu bringen, musst du das hinzufügen:

Form1.TabControl1.SelectedTab = tTab

Mfg
Seismograf

#11

in welcher Zeile tritt der Fehler auf?
Ich vermute mal bei tb.Text. Wenn ja, dann hast Du die TextBox zu diesem Zeitpunkt nicht in dieser Variable erzeugt (tb = new KryptonTextBox)