Sauvegardé une checkbox

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: 17326
Date d'inscription: mardi 11 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

- 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:

Vb.net checkbox
Checkbox vb.net - Meilleures réponses
Checkbox visual basic - Meilleures réponses
Vb.net checkbox readonly - Guide
[VB.NET] Checkbox dans DataGridView ✓ - Forum - Visual Basic 6
Récupérer l'état d'une CheckBox contenue dans un DataGridView ✓ - Forum - VB.NET
Vb.net checkbox checked value ✓ - Forum - Visual Basic 6
Vb.net listview checkbox ✓ - Forum - C# / .NET

1 réponse

Réponse 1 / 1

NHenry

Messages postés: 14925
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

162
20 mai 2018 à 19:05

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

theopom

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

1
20 mai 2018 à 19:22

Pourtant ces ce que j'ai essayer mais cela me met l'erreur indiquer au dessus

NHenry

Messages postés: 14925
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

162
20 mai 2018 à 20:10

As-tu le screenshot de la configuration de ton paramètre ?

theopom

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

1
Modifié le 20 mai 2018 à 20:21

Je les remis en String sur la capture
C'est le SaveCheckZe

NHenry

Messages postés: 14925
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

162
20 mai 2018 à 20:26

Il faut que se soit en Boolean.
Par contre, si tu as déjà lancé ton application, il est possible que le fichier de configuration ait enregistré une chaîne vide d'où l'erreur.

theopom

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

1 > NHenry

Messages postés: 14925
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

20 mai 2018 à 21:25

J'ai re-essayer avec Boolean et regardez

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 ?

Whismeril

Messages postés: 17326
Date d'inscription: mardi 11 mars 2003
Statut: Modérateur
Dernière intervention: 15 mai 2022

596
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

Votre réponse