incrementer une textbox

Version imprimable

23/11/2007, 16h10
jeanlucsl

incrementer une textbox

Bjr a toutes et a tous

Petite précision pour commencer, je suis en vb6 (je sais que je suis un peu arriéré, mais vu mon age..., bref)

Mon probleme est simple:

j'ai un bouton de commande (cmdbutton1) et une text box qui a pour valeur 00000

je voudrai qu'à chaque clic sur le bouton la valeur de textbox augmente de 1

est-ce possible et si oui comment ?

merci de vos reponses
23/11/2007, 16h18
Cravis
Bonjours, voilà la solution à ton problème :
Code:

1 2 3 4 Private Sub cmdbutton1_Click() Text1.Text = CStr(Val(Text1.Text) + 1) End Sub
La fonction CStr() converti une valeur numérique en chaîne de caractères.
La fonction Val() converti une chaîne de caractères en valeur numérique.
23/11/2007, 16h21
jeanlucsl

incrementer une textbox

merci de la reponse aussi rapide

je vais essayer de ce pas
23/11/2007, 16h26
SfJ5Rpw8
Citation:

Envoyé par jeanlucsl

text box qui a pour valeur 00000

..

si tu veux tant de 0 .. voir l'instruction Format ...:
Code:

1 2 3 Private Sub cmdbutton1_Click() Text1.Text = Format(Val(Text1.Text) + 1,"00000") End Sub
23/11/2007, 17h10
jeanlucsl

incrementer une textbox

merci a tous les deux

Le code de BBIL me convient mieux, mais les deux marche niquel

juste un petit détail:

Lorsque je ferme visual basic la valeur de textbox revient a 00000.

Est-ce qu'il est possible que la derniere incrementation soit sauvegardée ?

Merci
23/11/2007, 17h24
Cravis

Tu peux par exemple sauvegarder la valeur dans un fichier texte, pour savoir comment faire je te conseil de jeter un coup d'œil aux tutoriaux VB6 de ce site qui sont très bien fait ! ;)
23/11/2007, 20h24
jeanlucsl

désolé mais j'ai beau fouiller je trouve pas

si qqun peut m'aider merci
24/11/2007, 07h38
Cravis

Voici le tutoriel pour les fichiers : http://www.developpez.com/vbasic/tut...tutoriel24.php

Et la page avec tous les tutoriels VB6 :
http://vb.developpez.com/cours/

Voilà je suis certain que t'y apprendra plein de choses utiles !
;)
24/11/2007, 08h34
jeanlucsl

OK merci cravis

Ma methode de recherche n'etait pas la bonne.
Je viens de survoler le tuto que tu m'a indiqué et je vais l'approfondir.
Je pense que je devrai m'en sortir
Merci beaucoup pour ton interet
24/11/2007, 15h44
jeanlucsl

Rebonjour a tous

alors voila ou j'en suis apres 12 aspirines

A l'ouverture de mon projet je fais une verification de la presence ou non d'un fichier txt et je le cree s'il n'existe pas. Ca c'est ok

Je clique sur mon bouton et ma textbox s'incremente de 1. C'est ok aussi
Le contenu de textbox s'inscrit bien dans le fichier texte. Là no problèmo !

Par contre si je ferme le projet je retrouve ma textbox de nouveau a zero
Impossible de restituer a la réouverture la valeur ecrite dans le fichier texte

Qqun aurait-il une idée avant que je devienne accros à l'aspegic
24/11/2007, 15h50
SfJ5Rpw8

montre nous le code que tu utilise pour "relire" ton fichier à l'ouverture du projet... (où de ta form..) en précisant où il se trouve (le code) et où tu déclare les variables utilisées...
24/11/2007, 15h50
ucfoutu

Citation:

A l'ouverture de mon projet je fais une verification de la presence ou non d'un fichier txt et je le cree s'il n'existe pas. Ca c'est ok

Bien...

tu as fait le chemin essentiel.

Reste juste à compléter par ce qu'il convient de faire s'il existe et contient une valeur.

Peut-être (juste une idée...) la lire et l'inscrire dans ta textbox....
"C'est pas une idée qu'elle est pas des plus pires" ???:lol:

voici le code de la form

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Form_Load()
   ' charge l'image du logo d'entreprise
       imglogo = LoadPicture("c:\documents and settings\JEAN-LUC\bureau\jeanpierre\projet\metier_031.gif")
   ' declare la variable message pour la boite de dialogue du frame recherche
       Dim msgclient As String
   ' on declare les variables pour le fichier qui incremente le numero de facture
       Dim contenufact As String
       Dim nomfichier As String
   ' on recherche si le fichier existe
       numfich = FreeFile
 
       nomfichier = "c:\documents and settings\jean-luc\bureau\jeanpierre\projet\nfact.txt"
       If Dir(nomfichier, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) = "" Then
       'le fichier n'existe pas on le créé
       Open "c:\documents and settings\jean-luc\bureau\jeanpierre\projet\nfact.txt" For Output As #numfich
       ' on ferme le fichier
       Close
       Else
       'le fichier existe alors on sort
       End If
 
End Sub

Et le code du bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub cmdfact_Click()
' degrise le numero de facture et grise le numero de devis
Textnumfact.Enabled = True
Textnumdev.Enabled = False
'on ouvre le fichier d'incrementation
numfich = FreeFile
Open "c:\documents and settings\jean-luc\bureau\jeanpierre\projet\nfact.txt" For Output As #numfich
' on incremente le champs du numero de facture
contenufact = Format(Val(Textnumfact.Text) + 1, "00000")
Textnumfact = contenufact
'on ecrit dans le fichier la valeur d'incrementation
Print #numfich, contenufact
'on ferme le fichier d'incrementation
Close
' debloque les parties 2,3, et 4
Frame1.Enabled = True
Frame2.Enabled = True
Frame5.Enabled = True

24/11/2007, 16h04
ucfoutu

Citation:

Else
'le fichier existe alors on sort
End If

Ah....

et si on lisait (juste pour en faire profiter la textbox) ce qu'il contient ?:lol:

Au fait : pas vraiment d'accord avec l'utilisation de l'évènement load, là ...

Je choisirais plus volontiers de traiter avec Activate.

code de textbox:

Code:

1
2
3
Private Sub Textnumfact_Change()
 
End Sub

Je crois que j'ai trouvé !!!!!

que pensez-vous de ça :

Code:

1
2
3
4
5
numfich = FreeFile
       chemin = "c:\documents and settings\jean-luc\bureau\jeanpierre\projet\nfact.txt"
       Open chemin For Input As #numfich
       Textnumfact.Text = Input(LOF(numfich), numfich)
       Close numfich