將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下拉菜單代碼

回答

相關問題