|
Public Class UserSettings
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.MirrorWarning = True
My.Settings.Save()
Label1.Text = "MirrorWarning=" & My.Settings.MirrorWarning.ToString
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
My.Settings.MirrorWarning = False
My.Settings.Save()
Label1.Text = "MirrorWarning=" & My.Settings.MirrorWarning.ToString
End Sub
Private Sub UserSettings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set form style defaults
Application.EnableVisualStyles()
' Load user settings
Label1.Text = "MirrorWarning=" & My.Settings.MirrorWarning.ToString
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
This member has not yet provided a Biography. Assume it's interesting and varied, and probably something to do with programming.