My.Settings("Nom_de_Ma_nouvelle_variable") = "Valeur attribuée"
CreateProperty("Nom_de_Ma_nouvelle_variable") SetPropertyValue("Nom_de_Ma_nouvelle_variable", "Valeur attribuée") MsgBox(My.Settings("Nom_de_Ma_nouvelle_variable"))
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Class Form1 Dim Mavaleur As String Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing My.Settings.Mavaleur = Mavaleur My.Settings.Save() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Mavaleur = My.Settings.Mavaleur TextBox2.Text = Mavaleur End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Mavaleur = TextBox1.Text End Sub End Class
Public Class Form1 ' chemin registre: HKEY_CURRENT_USER\Software\VB And VBA Program Settings\Mesvaleurs\Mavariable Private Const APP_Text As String = "Mesvaleurs" Private Const SECTION_Text As String = "Mavariable" Dim Mavaleur As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Mavaleur = TextBox1.Text End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing SaveSetting(APP_Text, SECTION_Text, "Mavariable" & ToString(), Mavaleur.ToString()) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Mavaleur = GetSetting(APP_Text, SECTION_Text, "Mavariable" & ToString()) TextBox2.Text = Mavaleur End Sub End Class