这是控件属性声明部分:Public Property Let server(sServerName As String)
    sServer = sServerName
End PropertyPublic Property Let seatExtensionNo(sNo As String)
    sSeatExtensionNo = sNo
End PropertyPublic Property Let No(n)
    sTelNo = n
    txtTelNo.Text = n
    analyseTelNo sTelNo
End Property这是控件里的一个方法:
Public Sub Connect()
'.......
end sub这里是页面上的部分代码:<OBJECT id=Tel style="LEFT: 0px; TOP: 0px" codeBase=Control.CAB 
classid=CLSID:xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx>
</OBJECT><body leftmargin=0 topmargin=0 onLoad='
Tel.server="<%=altiServer%>";
Tel.seatExtensionNo="<%=trim(seatExtensionNo)%>";
Tel.connect();
'>
这只是其中一种方法,希望对你有所帮助