[VB6] Recuperer un index d'une listbox1 et l'utilisé dans une listbox2
J’utilise le programme suivant, en faite je saisi un nombre dans un textbox puis je validé avec command1_click, j'aimerai que la valeur num se place dans une listebox2 en face du texte que j'ai selectionné sur une listbox1 (avant la saisi), c'est un peut un tableau avec 2 colonnes (listbox1 et listbox2)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
'Saisi du nombre de rebus par défaut
Private Sub Command1_Click()
Dim a() As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
List2.Clear
b = Int(Text1.text)
c = List1.ListIndex
ReDim Preserve a(c)
a(c) = b
d = 0
Do While (d < c)
List2.a (a(d))
d = d + 1
Loop
List2.AddItem Text1
End Sub |
Le problème, c’est que si je sélectionne la 4e ligne dans la list1 par exemple, j’affiche bien le nom saisi dans la ligne correspondante de la list2, mais toute les lignes pressentes avant sont rempli par des 0
Si je refais une saisi en sélectionnant la ligne 7 de la list1 par exemple, j’affiche bien le nombre saisi dans la 7e ligne de la list2, mais toute les valeurs précédentes sont remplacer par 0 aussi
En faite, je pense que c’est l’instruction « «List2.AddItem (a(d)) » qui pose problème, car j’ai l’impression qu’avec cette ligne, je remplace toute les valeurs a chaque nouvelle saisi, car j'utilise additem
Il existe peut etre une fonction qui permet de sauté une ligne dans une listbox (sans y insérer des valeurs, si oui, comment l’utiliser ?
Je ne possède pas l’aide dans le logiciel, il est écris : « la collection MSDN n’existe pas, Veuillez réinstaller MSDN », le problème, c’est que MSDN n’est pas présent sur le cd que je possède
Merci beaucoup pour votre aide,
