Sauvegardé une checkbox

Question

Sauvegardé une checkbox

Signaler

theopom

Messages postés: 52
Date d'inscription: mardi 8 mars 2011
Statut: Membre
Dernière intervention: 20 janvier 2019

- 20 mai 2018 à 18:58
Whismeril

Messages postés: 15918
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 10 mai 2021

- 23 mai 2018 à 06:59

Bonjour,
J'aimerais sauvegarder l'état Checked ou non d'une chekbox, pour que quand l'utilisateur re ouvre le logiciel il a toujours la chekbox checker ou non. J'ai donc essayer avec un parametre de "My.Settings.Checked" mais cela ne marche pas et me met comme erreur ( System.InvalidCastException : 'La conversion de la chaîne "" en type 'Boolean' n'est pas valide.' ) Donc je pense pas que cela dois ce faire ainsi.

Qui serais comment m'aider ?

Merci

A voir également:

Checkbox vb.net
Checkbox visual basic - Meilleures réponses
Checkbox vb - Meilleures réponses
Cocher/décocher une checkbox ✓ - Forum - Visual Basic 6
Datagridview checkbox vb.net ✓ - Forum - VB.NET
Listview checkbox vb.net ✓ - Forum - VB.NET
Infos sur DatagridView et checkbox ✓ - Forum - VB.NET
DataGridView checkbox entre deux colonne ✓ - Forum - VB.NET

1 réponse

Répondre Posez votre question

NHenry · Answer 1 · 2018-05-20T19:05:26+0200

Réponse 1 / 1

NHenry

Messages postés: 14788
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 1 mai 2021

155
20 mai 2018 à 19:05

Il faut bien définir le type du paramètre de configuration sur Boolean.

Afficher les 15 commentaires

Signaler

Whismeril

Messages postés: 15918
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 10 mai 2021

540
22 mai 2018 à 08:02

Merci de faire un effort avec la coloration syntaxique => force la couleur basic, voir ici
http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Je n'ai pas le temps de tester ce matin, est ce que ce code fonctionne?
Si oui, veux tu le simplifier?
Si non, que se passe t il?

Signaler

theopom

Messages postés: 52
Date d'inscription: mardi 8 mars 2011
Statut: Membre
Dernière intervention: 20 janvier 2019

1
22 mai 2018 à 18:47

Hum, j'ai crée un petit programme à part et cela à l'air de fonctionné.

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Settings.SaveApp = "" Then
            MsgBox("Vous ne pouvez pas lancer car le chemin d'accès n'est pas indiqué", MsgBoxStyle.Critical, ("Impossible de lancer"))
        Else
            Dim startInfo As ProcessStartInfo = New ProcessStartInfo(My.Settings.SaveApp)
            Process.Start(startInfo)
            If My.Settings.SaveCheck = False Then
            Else
                Dim startInfo1 As ProcessStartInfo = New ProcessStartInfo(My.Settings.SaveApp2)
                Process.Start(startInfo1)
            End If
        End If
    End Sub
End Class

Public Class Form2


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Settings.SaveCheck = True Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If
        TextBox1.Text = My.Settings.SaveApp
        TextBox2.Text = My.Settings.SaveApp2
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Title = "Choisissez "
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then TextBox1.Text = a
        If a <> "" Then My.Computer.Clipboard.SetText(a)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Title = "Choisissez "
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then TextBox2.Text = a
        If a <> "" Then My.Computer.Clipboard.SetText(a)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If CheckBox1.Checked = True Then
            My.Settings.SaveCheck = True
        Else
            My.Settings.SaveCheck = False
        End If
        My.Settings.SaveApp = TextBox1.Text
        My.Settings.SaveApp2 = TextBox2.Text
        My.Settings.Save()
        Close()
    End Sub

End Class

Comment ca on peut le simplifier ?

Signaler

Whismeril

Messages postés: 15918
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 10 mai 2021

540
22 mai 2018 à 20:36

Déjà ça

        If My.Settings.SaveCheck = True Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If

Se résume à

 CheckBox1.Checked = My.Settings.SaveCheck

.

Ensuite

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.Title = "Choisissez "
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then TextBox1.Text = a
        If a <> "" Then My.Computer.Clipboard.SetText(a)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.Title = "Choisissez "
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then TextBox2.Text = a
        If a <> "" Then My.Computer.Clipboard.SetText(a)
    End Sub

C'est 2 fois la même chose, donc c'est 2 fois à corriger en cas d'erreur ou de changement. Donc c'est pas bien.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
        OpenFileDialog1.Title = "Choisissez "
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then
            If CType(sender, TextBox).Name = "Button1" Then
                  TextBox1.Text = a
            Else
                  TextBox1.Text = a
            End if 
            My.Computer.Clipboard.SetText(a)
        End if
    End Sub

devrait fonctionner, j'ai tapé de tête donc pas sûr qu'il n'y ait pas une boulette

Enfin pour

        If CheckBox1.Checked = True Then
            My.Settings.SaveCheck = True
        Else
            My.Settings.SaveCheck = False
        End If

même principe qu'au début

My.Settings.SaveCheck = CheckBox1.Checked

Signaler

theopom

Messages postés: 52
Date d'inscription: mardi 8 mars 2011
Statut: Membre
Dernière intervention: 20 janvier 2019

1
22 mai 2018 à 23:44

En effets, je vous remercie beaucoup, cela étant dis pour les openfiledialog je préfère garder cela comme c'est car j'ai changer la valeur "Title" que j'ai pas montre ici.
Mais je vous remercie beaucoup, je vais commencer le cours que vous m'avez indiquer

Signaler

Whismeril

Messages postés: 15918
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 10 mai 2021

540
Modifié le 23 mai 2018 à 07:02

Même si tu as changé le titre, il est plus que préférable de n’avoir qu’un code.

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click

        Dim tbx as TextBox = TextBox1
        Dim titre as String = "Titre 1 "
        If CType(sender, Button).Name = "Button2" Then
                  tbx = TextBox2
                  titre = "Titre 2 "
        End If
          
        OpenFileDialog1.Title = titre
        OpenFileDialog1.Filter = "exe|*.exe"
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.ShowDialog()
        Dim a As String
        a = OpenFileDialog1.FileName
        If a <> "" Then
            Tbx.Text = a
            My.Computer.Clipboard.SetText(a)
        End if
    End Sub

Votre réponse