enregistrer le texte de mes textbox

Question

Bonjour, 


avec un bouton je voudrais sauvegarder les texte de toutes mes textbox

donc je fais:


My.settings.01 = textbox1.text
My.settings.save


et a l ouverture du logiciel je recharge le texte que j ai sauvegardé avec:


textbox1.text = my.settings.01


sauf que j ai un peu plus de 300 textbox dans le logiciel

quelqu un aurais la solution pour les enregistrer toutes en une seule fois

merci

EDIT: Ajout de la coloration syntaxique.

Whismeril · Answer

Bonjour, tu peux essayer le binding (je ne l'ai jamais tenté avec settings) au pire, tu serialiseras sur un xml.

Après 300 textbox, tu ne pouvais pas utiliser de liste ou datagridview avec des collections?

fryze · Answer

merci

cs_Le Pivert · Answer

Bonjour, 

Tout à fait d'accord avec Whismeril que je salue:

 Après 300 textbox, tu ne pouvais pas utiliser de liste ou datagridview avec des collections? 


par curiosité, j'ai quand même chercher une solution avec une listBox:

aller dans My Project- Paramètres

Mettre liste et sélectionner:

Sytem.Collections.Specialized.StringCollection

Ajouter une listBox avec ce code:

Option Strict On
Public Class Form1
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        ' Sauver la liste
        ListBox1.Items.Clear()
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                'si c'est une TextBox
                ListBox1.Items.Add(ctrl.Text)
            End If
        Next
        My.Settings.liste = New Specialized.StringCollection()
        For Each item In ListBox1.Items
            My.Settings.liste.Add(item.ToString())
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ListBox1.Visible = False
        'restaurer la liste
        If Not My.Settings.liste Is Nothing Then
            For Each item In My.Settings.liste
                ListBox1.Items.Add(item)
            Next
        End If
        For i As Int32 = 0 To ListBox1.Items.Count - 1
            For Each ctrl As Control In Me.Controls
                If TypeOf ctrl Is TextBox Then
                    ctrl.TabIndex = i
                    ctrl.Text = ListBox1.Items(i).ToString
                    i = i + 1
                End If
            Next
        Next
    End Sub
End Class

voilà, c'est tout simple!

Enregistrer le texte de mes textbox

3 réponses

Votre réponse

Discussions similaires