Globale Var

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von SchokoMilch.

    Globale Var

    Hey Com.

    Ich bekomm das mit der globalen var nicht hin.
    So deklariere ich sie in Form4:

    VB.NET-Quellcode

    1. Public Class Form4
    2. Public Server As String
    3. Public Port As String


    Das weise ich Server und Port einen wert zu.

    In Form5 versuche ich sie zu erhalten:

    VB.NET-Quellcode

    1. Dim Server As String = Form4.Server
    2. Dim Port As String = Form4.Port



    Die Variable wird einfach nicht übertragen.
    Was mache ich denn falsch?

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

    weist du die Variablen in Form5 zu, bevor sie ihren Wert in Form4 bekommen haben? Da du sie direkt bei der Deklaration mit Werten befüllst, muss die Deklaration entsprechend spät sein.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Bist du dir sicher, dass das eine auch nach dem anderen ausgeführt wird? Evtl mal mit Einzelschritten durchgehen. Weil wenn du immer nur Form5.Show() aufrufst, ist es glaube ich so, dass nur beim ersten mal auch wirklich der Konstruktor der Form aufgerufen wird.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Wenn der User Die Settings ändern will, wird Form5 Geschlossen (mit Form5.Close), Form4 Geladen - und anschließend nach dem ändern wieder Form5 aufgerufen.

    Komischer weise:

    Beim ersten aufruf von Form5 werden die variablen nicht übertragen, bei den danach schon.

    vb-checker schrieb:

    Weil wenn du immer nur Form5.Show() aufrufst, ist es glaube ich so, dass nur beim ersten mal auch wirklich der Konstruktor der Form aufgerufen wird.

    Der Konstruktor dürfte schon bei Erstellen des Übergeordneten Objektes aufgerufen werden. Genauer gesagt da, wo das Stichwort New() steht.


    Ansonsten sollte der TE mal ordentlich Debuggen. Zu dem Zeitpunkt, an dem du das erste Mal eine Inhalt in Server/Port erwartest musst du anhalten und die Werte checken. Wenn sie hier nicht stimmen musst du die Ursache finden. Wir können hier allerdings nur noch weiterraten, außer du postest mal ein bisschen mehr code.

    Falls dein Objekt Form5 heißt:
    Es ist höchst unüblich Objektname = Klassenname zu verwenden (es gibt ja auch shared Methoden).

    Ich poste einfach mal den ganzen code.

    Form4:

    VB.NET-Quellcode

    1. Public Class Form4
    2. Public Server As String
    3. Public Port As String
    4. Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    5. TextBox3.Text = "8000"
    6. End Sub
    8. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    9. Server = TextBox2.Text
    10. Port = TextBox3.Text
    11. Dim Form1 As Form1 = New Form1
    12. Form1.Show()
    13. Me.Hide()
    14. End Sub
    15. End Class


    Form5:

    VB.NET-Quellcode

    1. Imports MySqlLib3
    2. Imports System
    3. Imports System.IO
    4. Imports System.Text
    5. Imports System.Net.Sockets
    7. Public Class Form1
    8. Private stream As NetworkStream
    9. Private streamw As StreamWriter
    10. Private streamr As StreamReader
    11. Private client As New TcpClient
    12. Private t As New Threading.Thread(AddressOf Listen)
    13. Private Delegate Sub DAddItem(ByVal s As String)
    14. Private nick As String
    15. Dim Server As String = Form4.Server
    16. Dim Port As String = Form4.Port
    17. Dim Check As Integer = 0
    19. Private Sub AddItem(ByVal s As String)
    20. ListBox1.Items.Add(s)
    21. End Sub
    23. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    24. MsgBox(Server)
    25. Try
    26. client.Connect(Server, Port)
    27. If client.Connected Then
    28. stream = client.GetStream
    29. streamw = New StreamWriter(stream)
    30. streamr = New StreamReader(stream)
    31. streamw.WriteLine(nick)
    32. streamw.Flush()
    33. t.Start()
    34. Else
    35. MsgBox("Es kann keine Verbindung zum Server " & Server & " hergestellt werden!")
    36. Me.Close()
    37. Form4.Show()
    38. Me.Hide()
    39. End If
    40. Catch ex As Exception
    41. MsgBox("Es kann keine Verbindung zum Server " & Server & " hergestellt werden!")
    42. Me.Close()
    43. Form4.Show()
    44. Me.Hide()
    45. End Try
    46. End Sub
    48. Private Sub Listen()
    49. While client.Connected
    50. Try
    51. Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine)
    52. Catch
    53. MsgBox("Es kann keine Verbindung zum Server " & Server & " hergestellt werden!")
    54. Me.Close()
    55. Form4.Show()
    56. Me.Hide()
    57. End Try
    58. End While
    59. End Sub
    61. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    62. streamw.WriteLine(TextBox1.Text)
    63. streamw.Flush()
    64. TextBox1.Clear()
    65. End Sub


    "Form1" ist Form5, habe es gerade geändert.
    Info: Das ist zum teil der TCP Source, der hier mal releast wurde.

    Du hast meinen Post nicht richtig gelesen. Offenbar fehlen dir die Grundlagen von OOP bzw. die Begriffe Klasse/Objekt.

    Du machst 2 Sachen falsch:
    1. Du nennst deine Objekte genauso wie deine Klassen
    2. Du verwendest keine Propertys (z.B. Public Property Server As String)

    Korrigiere bitte mal diese 2 Sachen und du wirst sehen, das dein Code nicht mehr kompiliert.
    Mir ist selber nicht ganz klar wie du dir das Übergeben der Daten gedacht hast. Aber so gehts nicht:

    VB.NET-Quellcode

    1. Dim Server As String = Form4.Server
    2. Dim Port As String = Form4.Port

    Form4 ist in diesem Kontext eine Klasse!!!!!!!!!!!!!!!!!

    Über shared Member in Form4 wäre es möglich aber unnötig. Besser: Einfach beim Konstruktor übergeben.

    Du rufst von Form1 die Form4 auf und dann wieder umgekehrt?
    Wenn du Variablen übergeben willst kann nur die aufrufende Klasse der aufgerufenen Klasse diese direkt übergeben. Dies geschieht üblicherweise mit Properties oder Public-Membern.
    Du versuchst in Form1 die Variablen außerhalb der Subs zu übernehmen. Das muß fehlschlagen!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Server As String = Form4.Server
    3. Dim Port As String = Form4.Port 'Das ist Crap

    Versuch mal das:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public Server As String
    3. '
    4. '
    6. Public Form4
    7. Sub Test
    8. Dim f as new Form1 'Instanz von Form1 erzeugen
    9. f.Server="Huhu" 'Variablen übergeben
    10. f.Show 'Form anzeigen
    11. End Sub


    Alternativ kannst du auch enen Konstruktor der Form1 mit entsprechenden Parametern geben oder (da du ja mit Try-Catch zurück willst) gleich einen Dialog nehmen.

    Fiel Fergnügen

    Vatter
    :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

    Befasse Dich mit modalen und nicht modalen Dialogen sowie mit dem Schlüsselwort Shared.
    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