Discussion :

[vid2006]

Je suis un débutant en VB6
Je veux composer un tableau à nombre de colonnes fixes mais à nombre de ligne variable avec des textboxes.
De sortes que l'utilisateur puisse entrer le nombre de ligne et cela s'affiche.
Et aussi s'il change d'avis qu'il puisse ajouter une ligne.

exple tableau

N Designation Puissance tps utilisation EnergieConsommée Besoins
1 Lampe_____ 100 _________5 __________=100*5
2 frigo _______200 _________20

[Le Pharaon]

Regarde le contrôle DataRepeater.

[vid2006]

je n'ai pas compris votre message

[Delbeke]

c'est pourtant assez clair, bujuman te donne la réponse
Vb est fourni avec un DataRepeater , il suffit de lire l'aide fournie avec ce composant.

[vid2006]

comment on utlise le datarepeater, aider moi

[Delbeke]

Toi pas savoir lire ?
Toi y en a charger composant dans boite a outil
Toi y en a mettre composant sur feuille
Toi y en a selectionner composant
Toi y en a taper touche F1
Toi y en a lire

[vid2006]

Si je sais lire.
je ne dispose pas de MSDN sur mon poste.
Cette action m'envoie un message d'erreur "installer MSDN"

[vid2006]

Si je sais lire.
je ne dispose pas de MSDN sur mon poste.
Cette action m'envoie un message d'erreur "installer MSDN"

A chaque fois qu'on découvre son incompétence alors on devient plus compétent

[AlainTech]

Cette action m'envoie un message d'erreur "installer MSDN"

Et tu en tires quelle conclusion?

Accessoirement, il me parraît impensable de chercher à programmer sans avoir l'aide en ligne installée.

[vid2006]

Votre remarque est pertinente à mon sujet : "impensable de programmer sans l'aide en ligne". Mais c'est une réalité.
Même pour avoir VB6 j'ai péné avant de l'avoir
vous en dire davantage serait de parler de la situation de mon pays et de nos réalité, ce que je n'aimerais pas.
Merci si vous pouvez m'aider
Merci

[vid2006]

Je suis parvenu à le faire ça marche.
Sur le chat Bidou m'a renvoyé au contrôle dynamique

Voici le 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
Private Sub Command1_Click()
n = Text6.Text
For i = 1 To n
    Load Text1(i)
    Text1(i).Top = Text1(i - 1).Top + Text1(0).Height + 60
    Text1(i).Visible = True
Next
For i = 1 To n
    Load Text2(i)
    Text2(i).Top = Text2(i - 1).Top + Text2(0).Height + 60
    Text2(i).Visible = True
Next
For i = 1 To n
    Load Text3(i)
    Text3(i).Top = Text3(i - 1).Top + Text3(0).Height + 60
    Text3(i).Visible = True
Next
For i = 1 To n
    Load Text4(i)
    Text4(i).Top = Text4(i - 1).Top + Text4(0).Height + 60
    Text4(i).Visible = True
Next
For i = 1 To n
    Load Text5(i)
    Text5(i).Top = Text5(i - 1).Top + Text5(0).Height + 60
    Text5(i).Visible = True
Next
End Sub