Discussion :

[avyrex]

Bonjour à tous,

Je suis face avec un preblème de loop until en vb6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command4_Click()
 
Do Until Combo4.List < 0
   Combo4.ListIndex = Combo4.ListIndex + 1
 
 
'Série de fonction non marqué ...........
 
 
Loop
MsgBox "fin"
End Sub

La loop se fait avec le Combo4. Il dois passer 1 par 1, à travers la liste du combo4. Une fois la fin de la liste atteint, la loop se termine et il me dit que la liste est complété ex:

Code :

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

msgbox " Complété "

Merci encore pour votre aide.

[ucfoutu]

Bonsoir,

la lecture de ton aide en ligne t'apprend que la propriété List attend un argument (un index).

Code :

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

Do Until Combo4.List < 0

a nécessairement provoqué d'emblée un message d'erreur que tu nous passes sous silence !

Regarde ceci (et relis ton aide en ligne) :

Code :

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

1
2
3
4
For i = Combo4.ListIndex To Combo4.ListCount - 2
  Combo4.ListIndex = Combo4.ListIndex + 1
  MsgBox Combo4.List(Combo4.ListIndex)
Next

Démarrera à l'index sélectionné et ira jusqu'à la fin

EDIT : as-tu installé MSDN ?
Si non et que tu ne l'as pas : Progelect t'a (dans une autre discussion) donné un lien pour te permettre de l'installer (en français) :

[avyrex]

C'est vrai, j'ai l'error Compile error 380
argument not optimal.

Étant débutant, quand je fais F1, j'ai lus les information sans vraiment comprendre quelque chose.

Dans les example, il n'y a rien qui ressemble a quelque chose qui pourait s'adapter.

[ucfoutu]

Apprendre à connaître un contrôle, c'est :
- ouvrir ton aide en ligne sur ce contrôle pour en connaître les évènement, propriétés et méthodes
- puis apprendre chacun de ses évènements, chacune de ses propriétés et chacune de ses méthodes (aide en ligne à nouveau), généralement assortis d'exemples....

Mais je pense t'avoir donné une solution, non ?

en voilà une autre, avec une boucle while until :

Code :

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

1
2
3
4
Do Until Combo4.ListIndex = Combo4.ListCount - 1
   Combo4.ListIndex = Combo4.ListIndex + 1
   MsgBox Combo4.List(Combo4.ListIndex)
Loop

EDIT :
Il est également important de bien lire et nous rapporter, lorsque tu nous exposes un problème, le(s) message(s) d'erreur reçu(s) (en nous précisant la ligne qui le(s) génère).
Bien lire, signifie par exemple qu'on examine le message avec soin et qu'on l'analyse.
Par exemple, ici :

C'est vrai, j'ai l'error Compile error 380
argument not optimal.

"optimal" n'est pas le mot qui se trouvait dans ton message d'erreur
(et il a une autre signification, très différente, que celle de l'adjectif qui s'y trouvait et qui, lui, dénonçait clairement une absence ...)
Le debugger dénonçait alors sur le mot List, n'est-ce-pas ? Un simple coup de F1 sur ce mot t'aurait conduit alors à la propriété List (ton aide en ligne) et t'aurait permis de découvrir sa syntaxe (qui attend un index).

[avyrex]

Avec ton aide, je crois que j'y suis presque.

Maintenant, il fait la loop, parcontre il n'arrete pas quand le Combo4 est vide.

Voici le code entier:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Command4_Click()
Do Until Combo4.ListIndex = Combo4.ListCount - 1
 
   'insert code
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.AddItem "H" & vbTab & Combo1.Text & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & "HOST" & vbTab & Combo3 & vbTab & Combo4 & vbTab & vbTab & vbTab & Text10 & vbTab & Text11 & vbTab & Text12 & vbTab & Text13 & vbTab & Combo5 & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "COL" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "M" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "P" & vbTab & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & Text16 & vbTab & Text14 & vbTab & Text9 & vbTab & vbTab & vbTab & vbTab & Combo6
 
'augmanter le nombre de commande
Text5 = Text5 + 1
 
FlexGrid_AutoSizeColumns MSFlexGrid1, Me
 
Text2 = Text2 + 1
 
'next orders
Combo4.ListIndex = Combo4.ListIndex + 1
 
Frame2.Visible = True
MSFlexGrid1.Visible = True
 
 
'Insert pieces and cubes for the store
 Dim i As Integer
  For i = 0 To Order_LakeShore.MSFlexGrid1.Rows - 1
     If New_order.Combo4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) Then
        'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text9.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 20)
        Text16.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 22)
        Label18 = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 0)
     End If
  Next
 
 'Insert windows for the store
 Dim j As Integer
  For j = 0 To LakeShore.MSFlexGrid1.Rows - 1
     If New_order.Combo4.Text = LakeShore.MSFlexGrid1.TextMatrix(j, 0) Then
        'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(j, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text10.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
        Text11.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)
        Text12.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
        Text13.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)      
 
     End If
  Next
Loop
End Sub

[avyrex]

Super, ce fut long mais j'ai trouvé.

Verdicte final:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub Command4_Click()
   Dim w   As Integer
   For w = 0 To Combo4.ListCount - 1   ' Parcourt la
                                    ' liste dans
                                    ' la boucle.
      If Combo4 > "" Then
            'insert code
MSFlexGrid1.ColWidth(0) = 1500
MSFlexGrid1.AddItem "H" & vbTab & Combo1.Text & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & "HOST" & vbTab & Combo3 & vbTab & Combo4 & vbTab & vbTab & vbTab & Text10 & vbTab & Text11 & vbTab & Text12 & vbTab & Text13 & vbTab & Combo5 & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "COL" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "M" & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "P" & vbTab & vbTab & "M" & Combo7 & "00" & Text2 & vbTab & Combo2 & vbTab & Text16 & vbTab & Text14 & vbTab & Text9 & vbTab & vbTab & vbTab & vbTab & Combo6
 
'augmanter le nombre de commande
Text5 = Text5 + 1
 
FlexGrid_AutoSizeColumns MSFlexGrid1, Me
 
Text2 = Text2 + 1
 
'next orders
Combo4.ListIndex = Combo4.ListIndex + 1
 
Frame2.Visible = True
MSFlexGrid1.Visible = True
 
 
'Insert pieces and cubes for the store
 Dim i As Integer
  For i = 0 To Order_LakeShore.MSFlexGrid1.Rows - 1
     If New_order.Combo4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) Then
        'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text9.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 20)
        Text16.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text4.Text = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 22)
        Label18 = Order_LakeShore.MSFlexGrid1.TextMatrix(i, 0)
     End If
  Next
 
 'Insert windows for the store
 Dim j As Integer
  For j = 0 To LakeShore.MSFlexGrid1.Rows - 1
     If New_order.Combo4.Text = LakeShore.MSFlexGrid1.TextMatrix(j, 0) Then
        'MsgBox "Found: " & Order_LakeShore.MSFlexGrid1.TextMatrix(j, 1) & ": " & Order_LakeShore.MSFlexGrid1.TextMatrix(i, 21)
        Text10.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
        Text11.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)
        Text12.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 2)
        Text13.Text = Text3 & Text6 & Text14 & LakeShore.MSFlexGrid1.TextMatrix(j, 3)
 
 
     End If
  Next
 
 
      Else
 
      End If
   Next w
End Sub