recuperer texte d'une textbox au demarage du programme

**cartmanss** · 08/01/2011, 13h05

Bonjour je suis à la recherche d'un code depuis un certain temps et je ne trouve pas.

Je vous explique:

Alors je voudrai que l'utilisateur puisse rentrer un texte dans textbox9 et que le texte rentrer se transfert dans textbox2 jusque la pas de souci

mais je voudrais que le texte de textbox2 reste à la fermeture du programme de facon à ce que quand l'utilisateur rouvre le programme, textbox2 soit toujours rempli.

voici mon code actuelle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports System.IO
Public Class Form4
    Dim list As String = "dossier"
    Dim ecrire As StreamWriter
    Dim lire As StringReader
    Sub listfavoris()
        If File.Exists(list) = False Then
            ecrire = File.CreateText(list)
            ecrire.Close()
        End If
        lire = New StringReader(list)
        lire.Close()
    End Sub
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists(list) = False Then
            ecrire = File.CreateText(list)
            ecrire.Close()
        End If
        lire = New StringReader(list)
        lire.Close()
        ecrire.Flush()
        ecrire.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = TextBox9.Text
        ecrire = File.CreateText(list)
        ecrire.Close()
        lire = New StringReader(list)
        lire.Close()
    End Sub
End Class

**mddu66** · 08/01/2011, 13h38

bonjour,

je pense le plus simple et d'enregistrer ce message dans un fichier TXT et de le resortir au demarrage de votre porgramme.

**cartmanss** · 08/01/2011, 13h49

bonjour
Oui mais je voudrai que l'utilisateur n'ai pas besoin de faire quelque chose.
Quand il ouvre le programme je voudrai qu'il rècupère la textbox2 comme il la laisser à la fermeture.
merci de m'aider

**mddu66** · 08/01/2011, 14h18

alors ça doit donné un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sw As StreamWriter = New StreamWriter("c:\txt.txt")
        Try
            Dim i As Integer = 0
            While i < TextBox1.Lines.Length
                sw.WriteLine(TextBox1.Lines(i))
                System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
            End While
        Finally
            If Not (sw Is Nothing) Then
                sw.Close()
            End If
        End Try
        End

la vous avez un bouton qui enregistre avant de quitter votre programme

et pour le lire au demarrage vous mettez ceci dans la form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If System.IO.File.Exists("c:\txt.txt") Then
            TextBox1.Text = IO.File.ReadAllText("C:\txt.txt")
        End If

**yonpo** · 08/01/2011, 15h10

Oulala! Vous sortez l'artillerie lourde là

Un petit My.Settings suffirait amplement.
Pour créer un paramètre,
Propriété du projet-> Paramètres-> Nom du paramètre-> Type string

Ensuite pour l'utiliser:

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
textbox2.Text=My.Settings.NomDuParamètre

Bon après si tu veux utiliser un fichier texte, c'est comme tu veux....

**MABROUKI** · 08/01/2011, 15h27

bonjour,
yonpo ,tu as donne la moitie de la solution .quand il quitte son application il peut sauver son parametre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
'ouverture du formulaire principal  dans sub new ou Formload
textbox2.Text=My.Settings.NomDuParamètre
'Fermeture du formulaire principal  dans sub form_closing
'l'utilisateur peut modifier son texte(par exemple nom d'utilsateur)
 
My.Settings.NomDuParamètre=textbox2.Text
my.settings.Save.

bon code.............

**yonpo** · 08/01/2011, 19h05

quand il quitte son application il peut sauver son parametre.

Evidemment ça coule de source (s'il avait cherché un peu), c'est pourquoi je ne l'ai pas précisé.

**cartmanss** · 10/01/2011, 13h35

merci de vos reponses je vais essayer tout ca et je vous tiens au courant.

**gornarf** · 24/10/2011, 12h29

Désolé de déterrer un si vieux sujet mais:

Solution proposée pour les textbox marche nickel

En ce qui me concerne j'aimerai faire la même chose pour les checkbox et radiobutton,

quelqu'un aurai une idée pour faire en sorte que la choix du bouton ou le fait de cocher ou non une checkbox puisse être enregistré et loadé au démarrage de l'appli,

Merci d'avance

**ToshiroSama** · 24/10/2011, 12h39

Type = boolean à la place de String
checkbox1.cheked = variable...

**gornarf** · 24/10/2011, 12h44

j'ai mis:

boolean à la place de string

Load ==> CheckBox1.Checked = My.Settings.Setting29

Setting29 étant le parametre règlé en boolean

Save ==> My.Settings.Setting29 = Ressources.CheckBox1.Checked
My.Settings.save()

et ca ne marche pas...

**ToshiroSama** · 24/10/2011, 13h00

J'utilise pas VB.Net donc excuse la syntaxe. tu adaptera le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
My.Settings.NomDuParamètre=CheckBox1.Cheked.ToString();
my.settings.Save();

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
if(My.Settings.NomDuParamètre == "true")
CheckBox1.Cheked = true;
else
CheckBox1.Cheked = false;

Je pars d'un principe théorique en se basant sur les ancien posts... Faut tester.

**gornarf** · 24/10/2011, 13h04

je test de suite

par contre si tostring je dois laisser le parametre en string et non en boolean

**ToshiroSama** · 24/10/2011, 13h08

Oui c'est l'idée... d'ou le If après tu test la string et tu mets cheked ou pas cheked ... il y'aurait forcement une façon de faire plus propre ... Google is ur friend

**gornarf** · 24/10/2011, 13h09

Ca marche pas

( merci quand même...

**gornarf** · 24/10/2011, 13h10

Envoyé par ToshiroSama

Google is ur friend

not this time unfortunately... sur ce coup la google me mène pas à grand grand chose :s

**ToshiroSama** · 24/10/2011, 13h58

Voilà j'ai essayé et donc oui pour le checkbox ca marchait pas. j'ai pu résoudre ce problème je t'explique ce que j'ai fait.

- tu mets la valeur de type Boolean ... oui ca marche

- il faut mettre en place un bloc ( if Not IsPostBack ) au niveau de la fonction Load. et forcer le CheckBox à AutoPostBack = True ( propriétés du composant ).
- la mise à jour de la valeur ( Setting dans mon exemple ) se fait dans l’évènement checkChange.

Donc une fois tu coche ou décoche, ca mets à jour la variable au niveau Settings. provoque un PostBack qui sera ignoré puisque tu aura pris le soin de mettre If (Not IsPostBack).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not IsPostBack) Then
            CheckBox1.Checked = My.Settings.Setting
        End If
    End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged
        My.Settings.Item("Setting") = CheckBox1.Checked
        My.Settings.Save()
    End Sub