Auf Objekte in TabPage zugreifen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Auf Objekte in TabPage zugreifen

    Liebes Forum, ich möchte auf Objekte einer TabPage zugreifen z.B. auf den Text einer RichTextBox
    Mein Code:

    VB.NET-Quellcode

    1. Dim Code As New TabPage
    2. Dim json As New RichTextBox
    4. json.Dock = DockStyle.Fill
    5. json.Text = ("[" + vbNewLine +
    6. " //Object 1" + vbNewLine +
    7. " {" + vbNewLine +
    8. " " + mark + "new" + mark + ": 1" + vbNewLine +
    9. " }" + vbNewLine +
    10. "]")
    12. Editor.TabControlEditor.Controls.Add(Code)
    13. json.Parent = Code


    Wenn ich aufrufen möchte:

    VB.NET-Quellcode

    1. NewFile.json.Text = Replace(NewFile.json.Text, mark + "new" + mark + ": 1", mark + "new" + mark + ": 1," + vbNewLine + " " + mark + "new" + mark + ": 123")


    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Rosman Willkommen im Forum. :thumbup:
    Der RichTextBox ist es egal, welches Control ihr Parent ist.

    VB.NET-Quellcode

    1. Me.RichTextBox1.Text = "bla"
    2. MessageBox.Show(Me.RichTextBox1.Text)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Rosman schrieb:

    Ich wollte
    Gewiss.
    Poste mal einen Code, der sich bei uns mit Option Strict On einfügen und compilieren lässt.
    Verwende zum Testen Deines zu postenden Codes ein neues Projekt.
    Und dann formulierst Du zum laufenden Code ein in sich geschlossenes Problem. Alles in einem Post.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Es funktioniert wieder nicht im neuen Projekt

    Form1:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Form2.Show()
    5. End Sub
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Form2.json.Text = Replace(Form2.json.Text, "test2", "test 23")
    9. End Sub
    10. End Class


    Form2:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Public json As New RichTextBox
    4. Public Code As New TabPage
    6. Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    7. If e.KeyCode = Keys.Enter Then
    9. Code.Text = "Json - Code"
    11. json.Dock = DockStyle.Fill
    12. json.Text = ("test1" + vbNewLine +
    13. "test2" + vbNewLine +
    14. "test3" + vbNewLine)
    16. Form1.TabControl1.Controls.Add(Code)
    17. json.Parent = Code
    18. Form1.TabControl1.Controls.Add(New TabPage("Editor - " + TextBox1.Text))
    20. Me.Close()
    21. e.SuppressKeyPress = True
    22. End If
    23. End Sub
    24. End Class

    Rosman schrieb:

    VB.NET-Quellcode

    1. Form2.Show()
    2. ' ...
    3. Form1.TabControl1.Controls.Add(New TabPage("Editor - " + TextBox1.Text))
    Das ist VB6-Ranz, das kann nicht funktionieren, gugst Du hier.
    Und:
    Wie soll es funktionieren?
    Was soll passieren?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!