Sauvegardé une checkbox

Question

Posez votre question Signaler

Sauvegardé une checkbox

theopom

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

- 20 mai 2018 à 18:58 - Dernière réponse : Whismeril

Messages postés: 12778
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 22 février 2019

- 23 mai 2018 à 06:59

VB.NET Posez votre question Signaler

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

Afficher la suite

A voir également:

Visual basic checkbox
Checkbox visual basic - Meilleures réponses
Checkbox vb.net - Meilleures réponses
Visual Basic / VB.NET : Background transparent pour checkbox, optionbox (optionbutton), picturebox : - Guide
Visual Basic / VB.NET : Listbox checkbox multiselection - CodeS SourceS - Guide
Visual Basic / VB.NET : Listbox avec checkbox + image stylé - CodeS SourceS - Guide
Visual Basic / VB.NET : Contrôle checkbox avec une propriété readonly - valable - Guide
Visual Basic / VB.NET : Ouvrir/fermer les ports avec visuel et checkbox - CodeS SourceS - Guide

Votre réponse

Répondre au sujet

1 réponse

Votre réponse

Répondre au sujet

Posez votre question

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

Signaler Commenter la réponse de NHenry

NHenry

Messages postés: 14386
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 20 février 2019

153 20 mai 2018 à 19:05

0

Merci

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

Afficher les 15 commentaires

Signaler Commenter la réponse de Whismeril

Whismeril

Messages postés: 12778
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 22 février 2019

334 - 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 Commenter la réponse de theopom

theopom

Messages postés: 52
Date d'inscription: mardi 8 mars 2011
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 Commenter la réponse de Whismeril

Whismeril

Messages postés: 12778
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 22 février 2019

334 - 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 Commenter la réponse de theopom

theopom

Messages postés: 52
Date d'inscription: mardi 8 mars 2011
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 Commenter la réponse de Whismeril

Whismeril

Messages postés: 12778
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 22 février 2019

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

Sauvegardé une checkbox

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !