il écrit sur la form, comment le transférer sur un label

Question

Salut !
& Bonsoir !

J'ai un petit problème voilà mon code tester vous même et je vous pose ma question juste après :


'il faut comme objet une form, un label "label1" ,un textbox "text1" et un boutton "command1"
Dim i As Integer
Private Sub Command1_Click()
i = i + 1
Print "Commande"; i; Text1.Text; " le "; Date
Label1.Caption = "Commande : " & i & " le : " & Date & ""
If i = 20 Then
Command1.Enabled = False
End If
End Sub

Cliquer 20 fois sur le bouton
Comment faire, pour que le label affiche chaque commande les une sous les autres sans effacer les précédente comme le fais la form ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

cboulas · Answer

En fait ta form ajoute toujours ce que tu lui dit d'écrire dessus avec la commande 'Print', mais si tu veux que cela n'affiche que le 'i' en cours il faut ajouter la méthode 'cls' pour effacer le contenu de ta form.

Bref là n'est pas la question, change :

Label1.Caption = "Commande : " & i & " le : " & Date & ""

pour :

Label1.Caption = Label1.caption & chr(13) & "Commande : " & i & " le : " & Date & ""

Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

econs · Answer

Label1.Caption = Label1.Caption & "ma_nouvelle_ligne" & vbCrLf

Manu

econs · Answer

Arf .. déjà répondu.
Bon ben t'as de la chance : 2 réponses !!! 

 :) 

Manu

cs_Acolyte · Answer

Salut !
& Bonsoir !

c'est vrai, mais désolé pour vous econs je n'arrive pas à faire fonctionner votre solution.
Es-ce normal ?

++

et bonne prog.

____________________________________
Acolyte vous remercie...

                                                    
_______________________by Acolyte __

econs · Answer

C'est pourtant la même que cboulas .... 

vbCrLf = retour chariot

Manu

econs · Answer

A défaut, si vraiment ma ligne ne fonctionne pas (et j'en suis très surpris puisque j'en abuse dans mes codes), la solution de cboulas conviendra quand même.

Manu

Il écrit sur la form, comment le transférer sur un label

6 réponses

Discussions similaires