将VB6.0组合框的值分配给vb 6.0的Html下拉菜单代码

我有一个Html表单，它具有下拉控件。我想从VB6.0表单中选择组合框文本，并将此组合框文本分配给html下拉菜单，那么我该如何做到这一点？将VB6.0组合框的值分配给vb 6.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我试试这个代码我得到下降的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它给我一个错误 对象不支持此属性或方法。所以，而不是值我需要尝试..以便vb6.0组合值分配给Html下拉

来源

2013-08-26 IMMORTAL

我解决这个问题，我使用Selected，而不是Value

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

来源

2013-08-27 05:58:38 IMMORTAL

你会想要使用nodeValue而不是Value。所以：

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

应该是：

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

来源

2013-08-26 12:57:07

将VB6.0组合框的值分配给vb 6.0的Html下拉菜单代码

回答

相关问题