[VB6] carriage return dans un TextBox

Version imprimable

26/05/2008, 00h46
flyjodel

[VB6] carriage return dans un TextBox
Bonjour,

l'idée est de faire défiler un fichier "log" dans une zone texte pendant que des opérations se déroulent lors de l'exécution d'un programme.

désolé de cette question vraiment idiote, mais ça fait une heure que je m'arrache les cheveux la-dessus :
J'ai un textbox qui s'appelle Text1.
Code:

1 2 Text1.Text = "ligne1 bla bla bla ..." & Chr(13) & "et ligne 2 bla bla"
cela affiche : http://img174.imageshack.us/img174/3606/t1ot5.png

alors que je veux que cela passe à la ligne entre ligne 1 et ligne 2.
La propriété MultiLine de ce TextBox est TRUE, mais ce n'est pas ce que je recherche !
Quand je mets vbCrLf au lieu de Chr(13), c'est presque pareil.

Comment faire ?
Merci !
26/05/2008, 07h01
ucfoutu

Bonjour,

Le code le plus important à connaître pour pouvoir te répondre valablement est celui qui te sert à lire les lignes de ton fichier.

Peux-tu nous le montrer ?
26/05/2008, 07h17
SfJ5Rpw8

Citation:

Envoyé par flyjodel

..
Quand je mets vbCrLf au lieu de Chr(13), c'est presque pareil.
..

pour moi c'est bon avec vbCrLf ;)

avec vbCrLf ça m'affiche deux caractères "noirs" au lieu d'un seul, mais mon texte ne passe pas à la ligne.

c'est bien là tout mon code. Voilà le fichier Form1.frm :

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1 
      Height          =   2295
      Left            =   1680
      TabIndex        =   2
      Top             =   360
      Width           =   2655
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   1095
      Left            =   120
      TabIndex        =   1
      Top             =   1440
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   855
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Text1.Text = "ligne 1"
End Sub
 
Private Sub Command2_Click()
Text1.Text = Text1.Text & vbCrLf & "ligne 2"
End Sub

26/05/2008, 09h15
SfJ5Rpw8

tu as bien mis la propriété multiline de text1 à true .?
26/05/2008, 09h20
Delbeke

Sinon, j'ai écrit un composant (DiLogEvent6.Ocx) spécialisé pour afficher en temps réel, le log d'une application. Tu le trouveras dans mes contributions.(Suivre le lien dans ma signature)
26/05/2008, 20h14
flyjodel

Citation:

Envoyé par bbil

tu as bien mis la propriété multiline de text1 à true .?

zut, j'avais mis le mutiline à true avec chr(13) et ça ne marchait pas et là, avec vbcrlf, j'avais oublié de le remettre à true. maintenant ça fonctionne, désolé pour le dérangement, et merci pour votre aide.

je ne vois pas la signature de Delbeke, mais j'ai trouvé le fichier. Merci, je vais le regarder en détail ce soir.

merci encore à la communauté pour votre aide, c'est super...
Bonne soirée,
Michel