Das Load Event einer Einstellungsform kann sehr schnell ziemlich unübersichlich werden, wenn ihr z.B. viele CheckBoxen benutzt. Deswegen hier mal ein kleiner Tipp für eine sowohl Bequemere Alternative zum Laden einer Einstellung in eine CheckBox als auch eine Platzsparendere Alternative für den Source Code eures Events
Public Sub LoadCheckBox(ByVal Value As Int16, ByVal Checkbox As CheckBox)
Try
Select Case Value
Case 0
Checkbox.CheckState = CheckState.Unchecked
Case 1
Checkbox.CheckState = CheckState.Checked
Case 2
Checkbox.CheckState = CheckState.Indeterminate
End Select
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
Kommentare zum Snippet