Item("selected") [Résolu]

Signaler
Messages postés
55
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
27 février 2009
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Bonjour ,

J'ai un problème avec la propriété item("selected").
J'utilise comme logiciel testpartner qui est un logiciel me permettant de faire des tests de non régression automatisé.
Le problème est le suivant, après la vérification de mes données, je récupère les valeurs de ma combo et verifie l'état sélectionner = True mais je récupère que l'item 1 alors que je devrais récupérer l'item 26

Public Sub Provincia(Pais, Verificar, Province)


'Créer le contrôle content.
     Dim itm As TItems
     Dim ob As Object
     Dim s As String
     Dim cntchk1 As TContentCheck
     Set cntchk1 = ContentCheck("content")
    
    
            cntchk1.AttachName = "TypeName=HTMLComboBox Name=COMTE.MARQUE.AC_OFFRE.1. Index=2"
                                            
                         
                 If Verificar = True Then
                     cntchk1.CaptureData
                     Set itm = cntchk1.Items
                    
                     For Each ob In itm
                        s = ob.Item(1) & ", " & ob.Item("Selected")
                        MsgBox s
                        If s = Province & ", " & True Then
                            cntchk1.Execute
                            'Exit For
                        Else
                            TestLog.Comment "Province : " & s
                        End If
                    Next
                 End If

merci d'avance

[?] Estelle[8D]

1 réponse

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour,

Attention: erreur de thème
Ici, vous êtes dans [infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBSCRIPT_245.aspx VBScript]
Merci, d'avance, à l'Admin qui déplacera ce topic dans le thème approprié.

N'ayant pas VB, je me "harsarde" ... et que donne:

                 If Verificar = True Then
                     cntchk1.CaptureData
                     Set itm = cntchk1.Items
                    
                     msgbox UBound(itm)
                     For s=LBound(itm) To UBound(itm)
                         msgbox itm(s)
                    Next       
               End If

jean-marc