Inhalt einer Textbox als Wert an eine zweite Klasse übergeben.

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Marvin315.

    Inhalt einer Textbox als Wert an eine zweite Klasse übergeben.

    Hallo Community,

    ich stehe aktuell vor einem Problem und zwar versuche ich Werte aus einer Textbox in ein XML-Dokument zu speichern.
    Da ich ein absoluter VB.Net- und Programmier- Neuling bin klappt dies nicht bei mir.
    Die Funktion um die Daten in einem XML-Dokument zu speichern ist in einer zweiten Klasse.
    Deshalb kann ich auch leider nicht ganz einfach sagen "xml_Attribut1 = tbServername.Text".
    Wie bekomme ich es hin der zweiten Klasse meine Werte aus der TextBox zu übergeben?
    Aktuell versuche ich die Werte in einem Array zu speichern, was aber nur mäßig klappt.
    Und zwar werden aktuell nur die Werte übertragen die standardmäßig in den Textboxen stehen.
    Sollten ich mich unklar ausgedrückt haben, versuch ich gerne Frage zu beantworten.
    Solltet Ihr überflüssigen Code finden könnt Ihr mich auch gerne darüber informieren.
    Über Hilfe würde ich mich sehr freuen.
    Ich bedanke mich schon mal im voraus.

    Klasse 1 MainWindow

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.Text
    3. Imports System.IO
    5. Public Class MainWindow
    6. Public Instanz As String
    7. Public Servername As String
    8. Public Benutzer As String
    9. Public Kennwort As String
    10. Public arrTb As String() = {Servername, Instanz, Benutzer, Kennwort}
    12. Private Sub btnstore1_Click(sender As Object, e As RoutedEventArgs) Handles btnstore1.Click
    14. End Sub
    15. Public Sub btnstore2_Click(sender As Object, e As RoutedEventArgs) Handles btnstore2.Click
    16. Instanz = tbinstanz.Text
    17. Servername = tbservername.Text
    18. Benutzer = tbuser.Text
    19. Kennwort = tbpw.Text
    20. Dim xmlC As New XMLConverter
    21. xmlC.xmldoc()
    22. End Sub
    23. End Class


    Klasse 2 XMLConverter

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.Text
    3. Imports System.IO
    4. Public Class XMLConverter
    6. Public Sub xmldoc()
    7. Dim xmlwerte As New MainWindow
    8. Dim xmldoc As XmlDocument
    9. xmldoc = New XmlDocument
    10. Dim DateiPfad = "C:\Users\%Username%\Desktop\Config.xml"
    11. Dim enc As New System.Text.UnicodeEncoding
    12. Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter(DateiPfad, enc)
    13. With XMLobj
    14. .Formatting = Xml.Formatting.Indented
    15. .Indentation = 4
    16. .WriteStartDocument()
    17. .WriteStartElement("DatabaseServer")
    18. .WriteEndElement()
    19. .Close()
    20. End With
    21. xmldoc.Load(DateiPfad)
    22. Dim xml_Termin As XmlNode
    23. xml_Termin = xmldoc.CreateElement("Database")
    24. Dim xml_Attribut1 As XmlAttribute
    25. xml_Attribut1 = xmldoc.CreateAttribute("Instanz")
    26. xml_Attribut1.InnerText = xmlwerte.arrTb(1) & ";"
    27. Dim xml_Attribut2 As XmlAttribute
    28. xml_Attribut2 = xmldoc.CreateAttribute("Benutzer")
    29. xml_Attribut2.InnerText = xmlwerte.arrTb(2) & ";"
    30. Dim xml_Attribut3 As XmlAttribute
    31. xml_Attribut3 = xmldoc.CreateAttribute("Kennwort")
    32. xml_Attribut3.InnerText = xmlwerte.arrTb(3) & ";"
    33. Dim xml_Attribut4 As XmlAttribute
    34. xml_Attribut4 = xmldoc.CreateAttribute("Servername")
    35. xml_Attribut4.InnerText = xmlwerte.arrTb(0) & ";"
    36. xml_Termin.Attributes.Append(xml_Attribut4)
    37. xml_Termin.Attributes.Append(xml_Attribut1)
    38. xml_Termin.Attributes.Append(xml_Attribut2)
    39. xml_Termin.Attributes.Append(xml_Attribut3)
    40. xmldoc.DocumentElement.AppendChild(xml_Termin)
    41. xmldoc.Save(DateiPfad)




    MFG Marvin

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marvin315“ ()

    Der Klasse XMLConverter fehlen Properties und/oder ein Konstruktor der deine Variablen verarbeitet und als Parameter erwartet.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Danke für deine schnelle Rückmeldung.
    Ein Problem was mir beim Debugging auffällt ist, das bei der Übergabe des Arrays von Klasse MainWindow an Klasse XMLConverter, die Werte des Arrays leer sind.
    Tut mir leid aber als blutiger Anfänger fallen mir die leichtesten Dinge noch relativ schwer. Ich habe vorher nie mit mehreren Klassen gearbeitet.

    VB.NET-Quellcode

    1. ​Imports System.Xml
    2. Imports System.Text
    3. Imports System.IO
    4. Public Class XMLConverter
    5. Dim xmlwerte As New MainWindow
    6. Private Instanz As String = xmlwerte.arrTb(1) 'Diese Werte sind leer, liegt das am fehlendem Konstruktor oder an fehlenden Properties?
    7. Private Servername As String = xmlwerte.arrTb(0)
    8. Private Benutzer As String = xmlwerte.arrTb(2)
    9. Private Kennwort As String = xmlwerte.arrTb(3)
    11. 'Public Property PInstanz() As String
    13. 'Get
    14. 'Return Instanz
    15. 'End Get
    16. 'Private Set(value As String)
    18. 'End Set
    19. 'End Property
    21. Public Sub xmldoc()
    22. Dim xmldoc As XmlDocument
    23. xmldoc = New XmlDocument
    24. Dim DateiPfad = "C:\Users\%Username%\Desktop\Config.xml"
    25. Dim enc As New System.Text.UnicodeEncoding
    26. Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter(DateiPfad, enc)
    27. With XMLobj
    28. .Formatting = Xml.Formatting.Indented
    29. .Indentation = 4
    30. .WriteStartDocument()
    31. .WriteStartElement("DatabaseServer")
    32. .WriteEndElement()
    33. .Close()
    34. End With
    35. xmldoc.Load(DateiPfad)
    36. Dim xml_Termin As XmlNode
    37. xml_Termin = xmldoc.CreateElement("Database")
    38. Dim xml_Attribut1 As XmlAttribute
    39. xml_Attribut1 = xmldoc.CreateAttribute("Instanz")
    40. xml_Attribut1.InnerText = Instanz & ";"
    41. Dim xml_Attribut2 As XmlAttribute
    42. xml_Attribut2 = xmldoc.CreateAttribute("Benutzer")
    43. xml_Attribut2.InnerText = Benutzer & ";"
    44. Dim xml_Attribut3 As XmlAttribute
    45. xml_Attribut3 = xmldoc.CreateAttribute("Kennwort")
    46. xml_Attribut3.InnerText = Kennwort & ";"
    47. Dim xml_Attribut4 As XmlAttribute
    48. xml_Attribut4 = xmldoc.CreateAttribute("Servername")
    49. xml_Attribut4.InnerText = Servername & ";"
    50. xml_Termin.Attributes.Append(xml_Attribut4)
    51. xml_Termin.Attributes.Append(xml_Attribut1)
    52. xml_Termin.Attributes.Append(xml_Attribut2)
    53. xml_Termin.Attributes.Append(xml_Attribut3)
    54. xmldoc.DocumentElement.AppendChild(xml_Termin)
    55. xmldoc.Save(DateiPfad)
    57. End Class

    Um das ganze hier abzukürzen,
    ich versuche ein Programm zu schreiben, welches eine Datenbankverbindung aufbaut.
    Man hat eine Oberfläche in der man Servername, Instanz, Benutzer und Kennwort eingeben kann.
    Die Werte sollen in einer XML-Datei gespeichert werden und beim erneuten Starten des Programms sollen die Werte ausgelesen werden und in die entsprechenden Textboxen gefüllt werden.
    Macht es hier überhaupt Sinn für das XML-Lesen und schreiben eine andere Klasse zu erstellen oder habe ich hier den Sinn von Klassen verfehlt?

    Bau Properties in deine Klasse ein. In der Form instanziierst du die Klasse und weist den Properties die Daten zu:

    Dim xmlC As New XMLConverter
    xmlC.Servername = "foo"
    xmlC.Imstanz = "foo2"
    Usw.
    xmlC.xmldoc()
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Marvin315 schrieb:

    VB.NET-Quellcode

    1. Dim xmlwerte As New MainWindow
    What :?:
    In diesem Kontext wird kein Fenster instanziiert, schon gar nicht das Hauptfenster :!:
    Das solltest Du mit nem Event machen.
    Um Werte von einer aufrufenden in eine aufgerufene Klasse zu übergeben nimmt man Properties.
    Für Formen gugst Du hier.
    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!

Facebook
Telefonspende