VB ActiveX与JS交互

一、js访问activex

VB:

--------------------------------

Public Property Let TxtVisible(ByVal New_TxtVisible As Boolean)

Text1.Visible = New_TxtVisible

PropertyChanged 'BlnSystemUser'

End Property

Public Sub SetValue1()

Text1.Text = "test zhanpeng"

End Sub

Public Sub SetValue2(str)

Text1.Text = str

End Sub

----------------------------------

JS：

---------------------------------

document.getElementById("obj").TxtVisible = false;

document.getElementById("obj").SetValue1();

document.getElementById("obj").SetValue2(44);

---------------------------------

二、activex访问js.txt

VB:

------------------------

Private Sub Command2_Click()

UserControl.Parent.Script.test (3)

End Sub

--------------------------

js:

------------------------

function test(str){

alert(str);

}

------------------------