Hey
Ich muss nochmal etwas über die OOP und Public Propertys wissen.
Wann macht es Sinn oder kein Sinn ( zu viel code oder ähnliches ) in Property zu stecken oder einfach nur auf Public zu setzen.
Beispiel mein Project ( eine Art von Haushaltsbuch Einnahmen / Ausgaben ), wo Datensätze aus einer Datenbank gelesen und geschrieben werden.
Ich habe mal etwas code geschrieben um es hoffe ich verständlich zu machen.
Spoiler anzeigen
Das frm_main Form
Ich muss nochmal etwas über die OOP und Public Propertys wissen.
Wann macht es Sinn oder kein Sinn ( zu viel code oder ähnliches ) in Property zu stecken oder einfach nur auf Public zu setzen.
Beispiel mein Project ( eine Art von Haushaltsbuch Einnahmen / Ausgaben ), wo Datensätze aus einer Datenbank gelesen und geschrieben werden.
Ich habe mal etwas code geschrieben um es hoffe ich verständlich zu machen.
VB.NET-Quellcode
- Public Class AppClass
- 'Private Objecte
- Private firstload As Integer 'legt fest ob das Programm zum ersten mal gestartet wird
- Private saldo As Integer = 0 'legt fest ob Einnahme (1) oder Ausgabe (2)
- 'Globale Objecte
- Public Kat_ID As Integer 'aus der DB Kategorie, auswahl über Combobox
- Public Zahlart_ID As Integer 'aus der DB Zahlungsart, auswahl über Combobox
- Public MwSt As Integer 'legt den MwSt Satz fest
- Public Property int_Saldo As Integer
- Get
- getsettings()
- Return saldo
- End Get
- Set(value As Integer)
- saldo = value
- End Set
- End Property
- Public Property int_First As Integer
- Get
- getsettings()
- Return firstload
- End Get
- Set(value As Integer)
- firstload = value
- savesettings()
- End Set
- End Property
- 'Objecte speichern
- Private Sub savesettings()
- My.Settings.firstload = firstload
- My.Settings.Save()
- End Sub
- 'Objecte laden
- Private Sub getsettings()
- My.Settings.Reload()
- firstload = My.Settings.firstload
- End Sub
- End Class
Das frm_main Form
VB.NET-Quellcode
- 'Einstellungen laden und prüfen ob erster Start
- Private Sub settings()
- If AppClass.int_First = 0 Then
- Using frm As New frm_first()
- frm.ShowDialog(Me)
- End Using
- End If
- End Sub
- 'Einstellungen speichern (Button ist nur zum testen!
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- AppClass.int_First = 1
- End Sub
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.