Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Public Class melding
Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
'Slaat de gegevens op
My.Settings.melding = txtBericht.Text()
My.Settings.Save()
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Laad de instellingen in
txtBericht.Text = My.Settings.melding()
ckbAlleenLezen.Checked = My.Settings.alleenLezen()
End Sub
Private Sub ckbAlleenLezen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckbAlleenLezen.CheckedChanged
'Kijkt of de checkbox is "checked" en past daarop de waarde ReadOnly van de textbox aan.
If ckbAlleenLezen.Checked = True Then
txtBericht.ReadOnly = True
My.Settings.alleenLezen = True
Else
txtBericht.ReadOnly = False
My.Settings.alleenLezen = False
End If
End Sub
End Class
melding - String - User - ...
alleenLezen - Boolean - User - ...
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.