optionbox+countRésolu

Question

salute ,

Voila dans mon code j'ai une erreur mais j'arrive pas à la rectifier voici le code 


Dim i As Integer
For i = 0 To List1.ListCount - 1
    If List1.Selected(i) = True Then
        Select Case Joueur.Equipement
            Case ""
                Joueur.Equipement = List1.List(i)
            Case Else
                Joueur.Equipement = Joueur.Equipement & ";" & List1.List(i)
        End Select
    End If
Next i
For i = 0 To List2.ListCount - 1
    If List2.Selected(i) = True Then
        Select Case Joueur.Arm
            Case ""
                Joueur.Arm = List2.List(i)
            Case Else
                Joueur.Arm = Joueur.Arm & ";" & List2.List(i)
        End Select
    End If
Next i
For i = 0 To Option1(i).Count - 1    If Option1(i).Value True Then Joueur.Munition Option1(i).Caption
Next i

A chaque fois que jtest ca revient sur le Option1(i).Count - 1
 (qui se trouve à la fin)

Donc voila merci d'avance pour votre aide !

cs_DARKSIDIOUS · Accepted Answer

For i = 0 To Option1.Count - 1If Option1(i).Value True Then Joueur.Munition Option1(i).Caption
Next i
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer

econs · Answer

For i = 0 To Option1~~(i)~~.Count - 1 La propriété Count agit sur l'objet Option1, et pas sur Option1(i) Manu

cs_iclic · Answer

merci pour vos deux reponse ca marche bien a+

Optionbox+count

3 réponses

Discussions similaires