Discussion :

[dispa]

Bonjour,
excusez moi de vous dérangez pour si peu je sais que c'est idiot mais , j'ai un petit problème dans mon code :

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
32
33
 
  Dim i As Short
        Dim result As String
        Dim indNA, indNB As Integer
        Dim NombreA, NombreB As Double
 
        Dim outstrRaison As String
        Dim NombreT1 As String
        Dim Somme As String
        Dim form3 As New Form3
 
        NombreA = CDbl(Nombre1.Text)
        NombreB = CDbl(Nombre2.Text)
        indNA = CInt(indN1.Text)
        indNB = CInt(indN2.Text)
        outRaison(indNA, indNB, NombreA, NombreB, outstrRaison)
        NombrT1(indNA, NombreA, outstrRaison, NombreT1)
 
 
        Nombre = InputBox("Pour combien de nombre?", "Nombre")
        If Nombre > 0 Then
            ReDim Tableau(Nombre - 1)
            For i = 0 To UBound(Tableau)
                Tableau(i) = NombreT1 + (i * outstrRaison)
 
                result = result & " Nombre" & (i + 1) & vbTab & Tableau(i) & vbCrLf
 
            Next
 
            form3.TextBox1.Text = result
            form3.ShowDialog()
 
        End If

Voilà mon problème c que lorsque j'execute ce genre de code, il colle "Nombre1"(par exemple) avec la valeur que j'ai mis dans mon tableau -__-
et je vois pas où est mon erreur
help me :p

merci d'avance et bonsoir

[tomlev]

peut-être que le tab passe pas dans une messagebox ? essaie avec des espaces sinon

[mathrb]

Bonjour,
La textbox par défaut n'est pas multiline, ce qui apparemment cré des problèmes
avec les tab et espaces
Met ta textbox en multiline

Code :

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

TextBox1.Multiline = True

au pire si tu ne veut avoir qu'une ligne à coup sur il doit y avoir moyen de limiter
la taille en ligne et en largeur.
Bonne continuation

[dispa]

oui cela je l'ai déjà fait mais mon problème c'est que ce code fait cela en gros
(par exemple)

Nombre1:2
Nombre2:4
etc

or moi j'aimerais rectifier mon code pour que sa fasse cela:

Nombre1: 2
Nombre2: 4

Pour ne pas que ce soit coller^^

help me :p

[dispa]

oups >.<

avec + d'espace entre le nombre(x) et le nombre

[mathrb]

Ouais bah ça marche

Code :

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

1
2
3
Dim pidou As String = (":" & 1 & vbTab & 2 & vbCrLf)
        TextBox1.Multiline = True
        TextBox1.Text = pidou

Et cela me donne ":1[tabulation]2 "
Je vais pas faire un screen shot pour te le montrer