<! Doctype html public "-// W3C // dtd html 4.0 Transitional // EN"> <HTML> <HEAD> <TITLE> Microsoft Slider Control, version 6.0 </TITLE> </HEAD> <BODY onload = "init ()"> Current value: <input type = "text" id = "currentValue" \> <input type = "button" value = "Set value" onclick = "setValue () "\> <BR \> maximum value: <input type = "text" id = "maxValue" \> <input type = "button" value = "Set value" onclick = "setMax () "\> <BR \> <object id =" Slider "WIDTH =" 300 "CL ASSID = "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 Select All Note: If you need to introduce external Js, you need to refresh it to execute]
<! Doctype html public "-// W3C // dtd html 4.0 Transitional // EN"> <HTML> <HEAD> <TITLE> Microsoft TreeView 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 () "\> <object id =" TreeView "WIDTH =" 600 "HEIGHT =" 400 "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 (TreeView. nodes. count> 0) {index = TreeView. selectedItem. index; caption. value = TreeView. selectedItem. text;} // --> SCRIPT <script language = "VBScript"> <! -- Dim index Dim strNodeText Dim strCaption Sub addItem () On Error Resume Next strNodeText = strNode. value strCaption = caption. value If Len (strNodeText) = 0 Then Exit Sub If Len (caption. value)> 0 Then TreeView. nodes. add index, 4, strNodeText Else TreeView. nodes. add, 0, strNodeText End If End Sub delItem () On Error Resume Next If Len (strCaption)> 0 Then TreeView. nodes. remove index End if End Sub // --> SCRIPT </BODY> </HTML>
[Ctrl + A Select All Note: If you need to introduce external Js, you need to refresh it to execute]
<! Doctype html public "-// W3C // dtd html 4.0 Transitional // EN"> <HTML> <HEAD> <TITLE> ScriptControl Object </TITLE> </HEAD> <BODY> <textarea id = "Content" ROWS = "20" COLS = "50"> Const Name = "Anbert" Sub Test () dim strTest = Replace ("Hello, world! "& VbCrlf &" I am $ name. "," $ Name ", Name) MsgBox strTest, 64," Just Test it "End Sub
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
