Hallo Algernoon,
zum ersten Punkt. Man könnte eine eigene Kundennummer Klasse erstellen. Diese kann dann auch gleich den Validierungscode enthalten. Das frühere Default Property von VB6 hätte sich dazu geeignet. Das verlangte noch keine Parameter. Ohne Default
Property z.B.
Public Class Kundennummer
' Value ist die Kundennumer.
Private mintValue As Integer
Public Property Value() As Integer
Get
Return mintValue
End Get
Set(ByVal value As Integer)
Kundennummer_Validate(value)
' Value erst nach Validierung setzen.
mintValue = value
End Set
End Property
Private Sub Kundennummer_Validate(ByVal value As Integer)
' Code zum Prüfen ob Kundennummer gültige Form hat.
If value < 100000 Or value > 999999 Then
Throw New ArgumentException("Die Kundennummer muss 6 stellig sein.")
End If
End Sub
Public Sub New(ByVal pintValue As Integer)
mintValue = pintValue
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Dim Kundennummer As New Kundennummer(222222)
' Bei Zugriff auf die Kundennummer selbst muss dann halt Value angegeben werden.
MsgBox(Kundennummer.Value)
Kundennummer.Value = 444444
ZeigeKundennummer(Kundennummer)
' Ungültige Kundennummer.
Kundennummer.Value = 1
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ZeigeKundennummer(ByVal Kundennummer As Kundennummer)
MsgBox(Kundennummer.Value)
End Sub
End Class
