Recuperer l'index d'une listbox en VB 6.0

Recuperer l'index d'une listbox en VB 6.0 - VB/VBA/VBS - Programmation

Marsh Posté le 17-05-2006 à 11:02:45    

Bonjour,
 
J'utilise VB 6.0
 
J’ai listbox1 et listbox2, j’aimerai récupérer l’index de la listbox1 (le n° de la ligne, la listbox1 indique les défauts) pour l’intégrer dans la listbox2, j’aimerai saisir le nbre pour un seul défaut pas forcement le 1er de la listbox1, il faut donc que je récupère l’index de la listbox1
 
J’ai essayer le programme suivant, mais il ne fonctionne pas,  
Quand je sélectionne un défaut (par exemple le 5e de la listbox1 et que j’effectue la saisi du nbre (dans un textbox) puis l’action command_click, le programme me met 0 dans toute les lignes jusqu'à celle sélectionné, quand je refait une saisi, les chiffres s’affiche a la suite,  
 
Private Sub Command1_Click()
Dim a() As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
b = Int(Text1.text)
c = List1.ListIndex
ReDim Preserve a(c)
a(c) = b
d = 0
Do While (d <= c)
List2.AddItem (a(d))
d = d + 1
Loop
 
End Sub
 
J’aimerai que quand je sélectionne un défaut dans la listbox1 (un n° de ligne) seul le n° de ligne de la listbox2 soit modifier,
 
Comment faire ?
 
Merci beaucoup pour votre aide  

Reply

Marsh Posté le 17-05-2006 à 11:02:45   

Reply

Marsh Posté le 17-05-2006 à 11:48:39    

Reply

Marsh Posté le 17-05-2006 à 13:08:29    

Merci pour ton lien
 
Mais le site est completement en anglais et apparament il ne contient que des informations concernant VB .NET,  
 
J'utilise VB6.0. je ne connais pas assez VB pour trouver une reponse a ma question a partir de code VB.NET, car pas mal de choses sont diffé"rentes entre les 2 versions,  
 
Cependant je vais continuer a parcourir le site a la recherche d'infomartion,  
 
Je te remerci

Reply

Marsh Posté le 17-05-2006 à 13:15:07    

Tu as mal regardé, quant à l'Anglais c'est indispensable car même si les choses se sont améliorées les meilleurs sites et livres en informatique sont en Anglais
http://www.vb-helper.com/index_all.html


Message édité par kiki29 le 17-05-2006 à 13:20:53
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed