这是控件属性声明部分: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();
'>
这只是其中一种方法,希望对你有所帮助
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();
'>
这只是其中一种方法,希望对你有所帮助
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货