Strings übergeordnet

  • VB.NET

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

    Strings übergeordnet

    Hallo,

    leider komme ich nicht drauf wie ich das anstelle, daß String übergeordnet sind.
    sprich nicht nur innerhalb eines Privat Sub... bereit stehen...

    Bin ja noch ein neuling, aber Gallileo hat mir da jetzt auch nicht helfen können - oder ich habs nicht vertstanden...

    lris08

    Wenn ich dich richtig verstanden habe, dann musst du einfach den String vor dem Privat Sub deklarieren.

    VB.NET-Quellcode

    1. Dim Test as String = ""
    3. Privat Sub ....
    5. End Sub


    So kannst du die Variable im ganzen Form benutzen, wenn du die Variable mit Public definierst, kannst du auch von anderen Formen darauf zu greifen.

    VB.NET-Quellcode

    1. dim test2 as string = Form1.test


    Ich hoffe ich habe dich richtig verstanden.

    Hi,

    ja genau someinte ich das, nur dass ich das problem habe das ich die strings aus einer xml Tabelle füllen will...
    und da akzeptiert er das vor einem Privat Sub nicht

    Fehlermeldungen:
    Deklaration erwartet.
    Die Anweisung kann nicht außerhalb einer Methode/eines mehrzeiligen lambda-Ausdrucks stehen.

    VB.NET-Quellcode

    1. ' Hier werden die Pfade geladen!
    2. Dim XMLDoc As New XmlDocument
    3. Dim Knoten As XmlNode
    4. Dim Serverpfad As String
    5. Dim Userpfad As String
    6. Dim dmsPfad As String
    8. XMLDoc.Load("C:\Users\" & Username & "\DMS_Pfade.xml")
    10. Dim Knotenliste As XmlNodeList = XMLDoc.SelectNodes("/Programmeinstellungen/Pfade")
    11. For Each Knoten In Knotenliste
    12. Serverpfad = Knoten.Attributes("Serverpfad").Value
    13. Userpfad = Knoten.Attributes("Userpfad").Value
    14. dmsPfad = Knoten.Attributes("dmsPfad").Value
    15. Next

    VB.NET-Quellcode

    1. Public Class DeineTolleKlasse
    2. 'Hier die Variablen (Public/Private)
    3. Private Test As String = String.Empty
    5. Private Sub Eingabe()
    6. Test = InputBox("Bla", "Bla")
    7. End Sub
    9. Private Sub Check()
    10. If Test = "Irgendwas" Then MessageBox.Show("Irgendwas")
    11. '...
    12. End Sub
    13. End Class

Facebook
Telefonspende