如何接受ActiveX控件的事件参数

'把下面这段程序编成控件：(工程名.类名)
Option Explicit
'Event Declarations:
Event OnChange(a As String, b As String)
'Default Property Values:
Const m_def_MyName = "gdeljyh"
Const m_def_MySex = "男"
'Property Variables:
Dim m_MyName As String
Dim m_MySex As String

Public Sub showChange()
RaiseEvent OnChange(MyName, MySex)
End Sub

Public Property Get MyName() As String
MyName = m_MyName
End Property

Public Property Let MyName(ByVal New_MyName As String)
m_MyName = New_MyName
PropertyChanged "MyName"
End Property

Public Property Get MySex() As String
MySex = m_MySex
End Property

Public Property Let MySex(ByVal New_MySex As String)
m_MySex = New_MySex
PropertyChanged "MySex"
End Property

'为用户控件初始化属性
Private Sub UserControl_InitProperties()
m_MyName = m_def_MyName
m_MySex = m_def_MySex
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

m_MyName = PropBag.ReadProperty("MyName", m_def_MyName)
m_MySex = PropBag.ReadProperty("MySex", m_def_MySex)
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("MyName", m_MyName, m_def_MyName)
Call PropBag.WriteProperty("MySex", m_MySex, m_def_MySex)
End Sub

'----------------------
假设你编译好后的控件ID为test1;
然后在网面中这样调用：
'---------------Test.Htm----------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=test1 EVENT=OnChange(a,b)>

</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()">

<P>
<OBJECT classid=clsid:97D00AEB-67B7-4609-8CAD-EA2A01732530 id=test1 VIEWASTEXT><PARAM NAME="_ExtentX" VALUE="1667"><PARAM NAME="_ExtentY" VALUE="1376"><PARAM NAME="MyName" VALUE="gdeljyh"><PARAM NAME="MySex" VALUE="男"></OBJECT>
</P>

</BODY>
</HTML>

要注意的地方：
1.
<SCRIPT LANGUAGE=javascript FOR=test1 EVENT=OnChange(a,b)>

</SCRIPT>
2.

function test1_OnChange(a,b) {
alert(a + "\n" + b);
}

其中的OnChange都有两个参数（a,b）

彦君爱心园博客

欢迎你来爱心园做客

导航

2008-3-21 15:34:34