<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> Microsoft Sl Ider control, version 6.0 </TITLE> </HEAD> <body onload= "init ()" > Current value: <input type= "text" id= "C Urrentvalue "\> <input type=" button "value=" Set Value "onclick=" SetValue () "\><br \> max value: <input type=" Text "I D= "MaxValue" \> <input type= "button" value= "Set Value" onclick= "Setmax ()" \><br \> <object id= "Slider" width= "Classid=" "clsid:f08df954-8592-11d1-b16a-00c0f0283628" > </OBJECT> <script language= "JavaScript" > <!--function init () {currentvalue.value=0; slider.max=50000000; Maxvalue.value=slider.max; function SetValue () {slider.value=currentvalue.value; function Setmax () {slider.max=maxvalue.value; }//--> </SCript> <script language= "JavaScript" for= "Slider" event= "Scroll" > <!--currentvalue.value=slider. Value --> </SCRIPT> </BODY> </HTML>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
Weeping Red Pavilion: Because this control is harmful (I also recruit. ）。。 Don't let it run immediately. Maya is not nice ...
7.Microsoft TreeView Control, version 6.0
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> Microsoft Tr Eeview control, version 6.0 </TITLE> </HEAD> <body onload= "init ()" > Current node: <input type= "text" ID = "caption" \> <input type= "button" value= "delete" onclick= "Delitem ()" \> <br \> <input type= "text" id= "Strnode" \><input type= "button" value= "Add Node" onclick= "AddItem ()" \> <pr> <object id= "TreeView" Widt H= "height=" classid= "clsid:c74190b6-8589-11d1-b16a-00c0f0283628" > </OBJECT> <script language= " JavaScript "> <!--function init () {treeview.linestyle = 1; Treeview.style = 7; }//--> </SCRIPT> <script language= "JavaScript" for= "TreeView" event= "click" > <!--if (Tre EView.Nodes.Count > 0) {index = TreeView.SelectedItem.index; Caption.value = TreeView.SelectedItem.Text; }//--> </SCRIPT> <script language= "VBScript" > <!--Dim index Dim Strnodetext Dim Strcapti On Sub AddItem () on Error Resume Next strnodetext = Strnode.value strcaption = Caption.value If len (strnodetext) =0 Then Exit Sub If Len (caption.value) >0 TREEVIEW.NODES.ADD index, 4,, Strnodetext Else TreeView.Nodes.Add, 0, Strnodetext End If End Sub Sub Delitem () on Error Resume Next If Len (strcaption) >0 Then TreeView.Nodes.Remove index End If End Sub//--> </SCRIPT> </BODY> </ Html>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
8.ScriptControl Object
<textarea id="runcode95427"><! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> scriptcontro L Object </TITLE> </HEAD> <BODY> <textarea id= "Content" rows= "cols=" > Const Name = "Anbert" Sub Test () Dim strtest strtest = Replace ("Hello, World!" & VbCrlf & "I am $name." "," $name ", name) MsgBox strtest,64," Just Test It "end Sub</textarea>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
9.System Monitor Control
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> System monit or control </TITLE> </HEAD> <BODY> <object id= "Sys" width= "height=" "classid=" clsid:c4 d2d8e0-d1dd-11ce-940f-008029004347 "> </OBJECT> </BODY> </HTML>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
10.Microsoft SysInfo Control, version 6.0
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> Microsoft Sy Sinfo control, version 6.0 </TITLE> </HEAD> <body onload= "init ()" > <object id= "SysInfo" CLASS Id= "clsid:6fba474b-43ac-11ce-9a0e-00aa0062bb4c" > </OBJECT> <script language= "JavaScript" > <!-- function init () {var acstatus = Sysinfo.acstatus; var batteryfulltime = Sysinfo.batteryfulltime; var batterylifepercent = sysinfo.batterylifepercent; var batterylifetime = Sysinfo.batterylifetime; var batterystatus = Sysinfo.batterystatus; var osbuild = Sysinfo.osbuild; var osplatform = Sysinfo.osplatform; var osversion = sysinfo.osversion; var strres; Strres = "Your computer is currently in use"; if (acstatus==1) {strres = = "dc power supply"; }else{Strres + = "battery,"; Strres = "Battery duration: $mm minutes,". replace ("$mm", BATTERYFULLTIME/60); Strres + + Battery remaining time: $mm minutes, ". Replace (" $mm ", BATTERYLIFETIME/60); } Strres + + "" + "operating system is" if (osplatform==1) {strres = "windows95/98/me,"; }else if (osplatform==2) {strres = "windowsnt/2000/xp/2003,"; Strres = = "version number is" +osbuild+ "." +osversion; document.write (Strres); }//--> </SCRIPT> </BODY> </HTML>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
11.ProgView Class
<! DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//en" > <HTML> <HEAD> <TITLE> progview Cla SS </TITLE> </HEAD> <BODY> <div id= "Tip" >waiting........</div> <object id= "Prog View "width=" height= "classid=" clsid:b9b7d40c-0c41-4eaf-b0b5-6b41378c7f48 > </OBJECT> <script Language= "JavaScript" for= "Progview" event= "Programlistready" > <!--tip.innertext= ""; --> </SCRIPT> </BODY> </HTML>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
