Ik he het volgend stukje code dat prima werkt alleen het laatste niet:
Het stukje dat rood gekleurd is werkt niet
Code:
Protected Overrides Sub OnShown(e As EventArgs)
MyBase.OnShown(e)
If My.Settings.Contact Is Nothing Then
My.Settings.Contact = New Specialized.StringCollection()
My.Settings.Save()
End If
If My.Settings.Gebeurtenis Is Nothing Then
My.Settings.Gebeurtenis = New Specialized.StringCollection()
My.Settings.Save()
End If
If My.Settings.Paswoord Is Nothing Then
My.Settings.Paswoord = New Specialized.StringCollection()
My.Settings.Save()
End If
If My.Settings.Eenmalig Is Nothing Then
My.Settings.Eenmalig = New Specialized.StringCollection()
My.Settings.Save()
End If
If My.Settings.Maand Is Nothing Then
My.Settings.Maand = New Specialized.StringCollection()
My.Settings.Save()
End If
If My.Settings.Jaar Is Nothing Then
My.Settings.Jaar = New Specialized.StringCollection()
My.Settings.Save()
End If
[COLOR="#FF0000"] If My.Settings.userfront Is Nothing Then
My.Settings.userfront.Font 'Ook font tostring werkt niet)
My.Settings.Save()[/COLOR]
End If
End Sub
Het stukje dat rood gekleurd is werkt niet