item("selected")Résolu

Question

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]

cs_JMO · Accepted Answer

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

Item("selected")

1 réponse

Votre réponse

Discussions similaires