Anfänger - Benötige Hilfe zu Klassen und Objekten

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

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

    Anfänger - Benötige Hilfe zu Klassen und Objekten

    Hallo VB-Paradise,
    ich beschäftige mich seit ein paar Tagen mit Visual Basic und benötige ein wenig Hilfe.
    Meine Frage zu folgendem Code: Wie kann ich auf die Attribute eines Objektes zugreifen?
    neueperson.nachname funktioniert ja nicht, da es auf private geseetzt ist, darum habe ich gedacht ich erstelle die function nachname ausgabe(). Jedoch wird in der Ausgabetextbox der Name nicht angezeigt. Es kann sein, dass auch sonst noch Fehler im Code vorliegen. Vielleicht kann mir jemand ein paar Tipps dazu geben.

    Viele Grüße

    Quellcode

    1. Public Class Form1
    3. Private Sub bt_personerstellen_Click(sender As Object, e As EventArgs) Handles bt_personerstellen.Click
    5. Dim neueperson As New person
    7. neueperson.getnachname = tb_nachname.Text
    8. neueperson.getname = tb_name.Text
    9. neueperson.getalter = Convert.ToInt64(tb_alter.Text)
    10. neueperson.getpasswort = tb_passwort.Text
    12. tb_nachname.Clear()
    13. tb_name.Clear()
    14. tb_alter.Clear()
    15. tb_passwort.Clear()
    17. lb_personerstellt.Visible = True
    18. tb_a_nachname.Text = neueperson.nachnameausgabe()
    20. End Sub
    22. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listbox_personwaehlen.SelectedIndexChanged
    24. End Sub
    26. End Class
    28. Class person
    30. Private nachname As String
    31. Private vorname As String
    32. Private alter As Integer
    33. Private passwort As String
    35. Public Sub New()
    37. End Sub
    39. Public Property getnachname() As String
    40. Get
    41. Return nachname
    42. End Get
    43. Set(value As String)
    44. nachname = getnachname
    45. End Set
    46. End Property
    48. Public Property getname() As String
    49. Get
    50. Return vorname
    51. End Get
    52. Set(value As String)
    53. vorname = getname
    54. End Set
    55. End Property
    57. Public Property getalter() As Integer
    59. Get
    60. Return alter
    61. End Get
    62. Set(value As Integer)
    63. alter = getalter
    64. End Set
    65. End Property
    67. Public Property getpasswort() As String
    68. Get
    69. Return passwort
    70. End Get
    71. Set(value As String)
    72. passwort = getpasswort
    73. End Set
    74. End Property
    76. Public Function nachnameausgabe() As String
    77. Return nachname
    78. End Function
    80. End Class

    @QwertzDev Willkommen im Forum. :thumbup:
    Entweder Du weist den Parameter value zu oder Du machst es so:

    VB.NET-Quellcode

    1. Class person
    3. Public Property nachname As String
    4. Public Property vorname As String
    5. Public Property alter As Integer
    6. Public Property passwort As String
    8. End Class
    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!

    Wenn du das hast:

    Visual Basic-Quellcode

    1. ​Public Property getnachname() As String
    2. Get
    3. Return nachname
    4. End Get
    5. Set(value As String)
    6. nachname = getnachname
    7. End Set
    8. End Property
    brauchst du das nicht:

    Visual Basic-Quellcode

    1. Public Function nachnameausgabe() As String
    2. Return nachname
    3. End Function
    4. ​



    Dh. so setzt du den Wert und liest ihn aus:

    Visual Basic-Quellcode

    1. ​neueperson.getnachname = "Mustermann"
    2. tb_a_nachname.Text = neueperson.getnachname ()

    @Don_Batisto Du hast es auch nicht gemerkt:
    @QwertzDev

    VB.NET-Quellcode

    1. Public Property getnachname() As String
    2. Get
    3. Return nachname
    4. End Get
    5. Set(value As String)
    6. nachname = value ' Hier muss value stehen !!!!!
    7. End Set
    8. End Property
    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!

    Don_Batisto schrieb:

    Wenn du das hast:

    Visual Basic-Quellcode

    1. ​Public Property getnachname() As String
    2. Get
    3. Return nachname
    4. End Get
    5. Set(value As String)
    6. nachname = getnachname
    7. End Set
    8. End Property
    brauchst du das nicht:

    Visual Basic-Quellcode

    1. Public Function nachnameausgabe() As String
    2. Return nachname
    3. End Function
    4. ​



    Dh. so setzt du den Wert und liest ihn aus:

    Visual Basic-Quellcode

    1. ​neueperson.getnachname = "Mustermann"
    2. tb_a_nachname.Text = neueperson.getnachname ()


    So hatte ich es auch am Anfang versucht, jedoch wird in der tb_a_nachname Textbox nichts angezeigt. Eigentlich sollte dort doch der Nachname drin stehen?

    @RodFromGermany Wie genau weise ich Parametern value zu?

    /Edit: Vielen Dank, ich teste es gleich.
    // Hat alles funktioniert, ich danke euch. :)

    QwertzDev schrieb:

    Wie genau weise ich Parametern value zu?
    value ist der Name des Input-Parameters eines Property-Setters, siehe post #4.
    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!

    bitte eine Standard-Property keinesfalls "getnachname" nennen! Was soll denn das sein, ein "getnachname"?

    Die Property muss "Nachname" heissen, denn das ist, was es ist, und deshalb soll es auch so heißen.

    Und Public Klassenmember bitte groß schreiben - so ist eine sinnvolle und ganz allgemeingültige Konvention.

    @QwertzDev
    Das Problem ist der falsch implementierte Setter:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. getnachname = "Müller"
    3. MessageBox.Show(getnachname)
    4. End Sub
    6. Private nachname As String
    7. Public Property getnachname() As String
    8. Get
    9. Return nachname
    10. End Get
    11. Set(value As String)
    12. nachname = getnachname
    13. End Set
    14. End Property
    Bilder

    • Property.png

      16,27 kB, 694×237, 60 mal angesehen
    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