1

ドロップダウン コントロールを持つ Html フォームがあります。VB6.0フォームからコンボボックステキストを選択したいのですが、このコンボボックステキストはhtmlドロップダウンに割り当てられているので、どうすればいいですか?.

HTMLフォームにあるのと同じコントロールを持つ私のvb6.0。

たとえば、私のhtmlコード

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <title>Test Application</title>    
</head>
<body>

  Title : <select name="ddlTitle" id="ddlTitle" style="width: 70px;">
    <option value="Mr.">Mr.</option>
    <option value="Mrs.">Mrs.</option>
    <option value="Baba">Baba</option>
    <option value="Baby">Baby</option>
</select><br />
</body>
</html>

vb6.0の場合、このコードを試してドロップダウンのIDを取得していますが、値をvb6.0コンボボックスからhtmlドロップダウンボックスに割り当てたい

    Dim HTMLI As HTMLInputElement

For Each HTMLI In TargetIE.Document.getElementsByTagName("select")
        Select Case HTMLI.id
            Case "ddlTitle"
            Dim i  As Integer
            For i = 0 To Combo1.ListCount
            If Combo1.ListIndex = HTMLI.Item(i).index Then
                HTMLI.Item(i).Value = Combo1.Text
                Exit For
            End If
            Next
        End Select
    Next HTMLI

この HTMLI.Value を使用すると、 Object does not support this property or methodというエラーが表示されます。だから私が試す必要がある値の代わりに.. vb6.0コンボ値がHtmlドロップダウンに割り当てられるように

4

2 に答える 2

0

Selected 代わりに使用するこの問題を解決しますValue

HTMLI.Item(i).Selected = True
OR
HTMLI.Item(i).Selected = Combo1.Text
于 2013-08-27T05:58:38.037 に答える
0

nodeValueの代わりに使用する必要がありValueます。そう：

HTMLI.Item(i).Value = Combo1.Text

次のようにする必要があります。

HTMLI.Item(i).nodeValue = Combo1.Text
于 2013-08-26T12:57:07.610 に答える