Question

我有一个Html表单，它有下拉控件。我想从VB6.0表单中选择组合框文本，并将此组合框文本分配给html下拉列表，那么我该怎么做呢？。

我的vb6.0具有与html表单相同的控件。

例如我的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我试试这个代码我得到一个下拉列表但我想从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时，它会给我一个错误 对象不支持此属性或方法。所以不要重视我需要尝试..以便将vb6.0组合值分配给Html下拉

Answer 1

您需要使用nodeValue代替Value。所以：

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

应该是：

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

Answer 2

我使用Selected代替Value

解决了这个问题

HTMLI.Item(i).Selected = True
OR
HTMLI.Item(i).Selected = Combo1.Text

将VB6.0组合框值分配给vb 6.0代码中的Html下拉列表

2 个答案: