在网页调用WINDOWS控件两例

2008-02-23 05:58:57来源：互联网阅读 ()

　　一、这个是netmting的例子

　　

　　<html>

　　<head>

　　<title>OCX</title>

　　<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

　　<script language="JavaScript">

　　var flag=true

　　function showall(){

　　alist = new Array();

　　newocx();

　　list1.value = "";

　　list2.value = "";

　　list1.value = ocxtype.outerHTML;

　　j = 0;

　　for (i in ocxtype)

　　{

　　alist[j] = i;

　　j ;

　　}

　　for (i = 0; i < alist.length; i )

　　for (j = (alist.length-1); j > 0; j--)

　　{

　　if (alist[j] < alist[j-1])

　　{

　　temps = alist[j];

　　alist[j] = alist[j-1];

　　alist[j-1] = temps;

　　}

　　}

　　for (i = 0; i < alist.length; i )

　　list2.value = alist[i] "\n";

　　alert("共有 " alist.length " 个属性方法")

　　}

　　function newocx()

　　{

　　ocxfield.innerHTML = "<OBJECT ID='ocxtype' WIDTH='0px' HEIGHT='0px'"

　　 "CLASSID='CLSID:" ocxid.value "'></OBJECT>";

　　}

　　</script>

　　</head>

　　<body bgcolor="#FFFFFF" text="#000000">

　　<div align="center">

　　 <p>classid

　　 <input type="text" id="ocxid" style="width:400" value="F3A614DC-ABE0-11d2-A441-00C04F795683" onchange="jscript:flag=true">

　　 <input type="button" id="look" value="查看" onclick="showall()">

　　 </p>

　　 <table width="75%" border="1">

　　 <tr>

　　 <td height="24">

　　 <div align="center">html中的写法</div>

　　 </td>

　　 <td height="24">

　　 <div align="center">OCX中的属性事件</div>

　　 </td>

　　 </tr>

　　 <tr>

　　 <td>

　　 <textarea id="list1" style="width: 500px; height: 400px;" readonly></textarea>

　　 </td>

　　 <td>

　　 <textarea id="list2" style="width:250px; height:400px;" readonly></textarea>

　　 </td>

　　 </tr>

　　 </table>

　　</div>

　　<div id="ocxfield">

　　</div>

　　</body>

　　</html>

二、

　　

<script language="Javascript">

　　function ShowMessenger() {

　　if (messengerUI.object != null) {

　　var MsgrWindow

　　if (messengerUI.myStatus == 2) {

　　MsgrWindow = messengerUI.window;

　　MsgrWindow.show();

　　}

　　else

　　messengerUI.Signin(0,"","");

　　}

　　}

　　function ShowElement(element) {

　　element.style.display="";

　　document.msn.offline.value="ON";

　　}

　　function HideElement(element) {

　　//rowShow.style.visibility="hidden";

　　element.style.display="none";

　　document.msn.offline.value="OFF";

　　}

　　function ShowHide(element) {

　　if (document.msn.offline.value=="ON") {

　　HideElement(element);

　　}

　　else {

　　ShowElement(element);

　　}

　　}

　　</script>

　　<style type="text/css">

　　

　　</style>

　　</head>

　　<body bgcolor="#FFFFFF" text="#000000" vlink="##3D55C4" onclick="(mUser.innerHTML)">

　　<table cellpadding="1" cellspacing="1" bgcolor="#3D55C4" width="150" id="abc">

　　<script language="VBScript" id="mcvbs">

　　' this script is loosely based on the original script from Microsoft.

　　' Various flags and such for god-knows what...

　　Dim A_

　　A_=False

　　Dim B_,C_,D_

　　B_=False

　　C_=False

　　D_=False

　　Dim E_,F_,G_

　　E_=False

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有