2017-09-01 81 views
0

取一個字符串在這個例子中:如何從子在VBScript

TestSub.vbs

a = "String" 

TestSub a 

Sub TestSub(a) 

    MsgBox "Test " & a 

End Sub 

的子功能工作得很好,並顯示在文本「測試字符串」所述MSGBOX

但是在該示例(嵌入在HTA)

個TestSub2.VBS

Sub getdata 

    NameID = "name123" 

    ' NameID = 123 ' (This works) 

    strHTML0 = strHTML0 & _ 
    "<select>" & _ 
     "<option onclick='UpdateSelect("& NameID &")' language='vbscript'>" & _ 
      NameID & _ 
     "</option>" & _ 
    "</select>" 

    SelectBox.innerHTML = strHTML0 

End sub 

Sub UpdateSelect(NameID) 

    MsgBox "Test " & NameID 

End sub 

NameID顯示在選擇框,但是當你調用子並不在MessageBox但是顯示,如果設置NameID = 123它顯示在MessageBox整數

爲什麼它只能顯示整數,你怎麼能讓它顯示一個字符串?

發佈pastebin

+0

你需要不上指定的'select'的'onclick' '選項' – SearchAndResQ

+0

它沒有工作,我不想每次點擊選擇框時觸發'onclick'事件 –

回答

1

您在連接字符串全名.hta,必須分隔值填充NameID這樣:

"<option onclick='UpdateSelect("""& NameID &""")' language='vbscript'>" & _