国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本
<rp id="ccigu"></rp>
<td id="ccigu"></td>
首頁
|
新聞
|
娛樂
|
游戲
|
科普
|
文學
|
編程
|
系統(tǒng)
|
數(shù)據(jù)庫
|
建站
|
學院
|
產(chǎn)品
|
網(wǎng)管
|
維修
|
辦公
|
熱點
首頁
>
編程
>
JavaScript
> 正文
7. Microsoft Online-Crash Control, version 6.0(微軟在線崩潰控件)
2019-11-21 01:58:04
字體：
大
中
小
來源：
轉(zhuǎn)載
供稿：網(wǎng)友
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE> Microsoft Slider Control, version 6.0 </TITLE> </HEAD> <BODY onload="init()"> 當前值：<input type="text" id="currentValue" /> <input type="button" value="設值" onclick="setValue()" /><BR /> 最大值：<input type="text" id="maxValue" /> <input type="button" value="設值" onclick="setMax()" /><BR /> <OBJECT ID="Slider" WIDTH="300" 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 全選 注:
如需引入外部Js需刷新才能執(zhí)行
]
泣紅亭：因這控件有危害性（我也中招了。。）。。就不讓它能立即運行了。。maya不厚道啊。。。
7.Microsoft TreeView Control, version 6.0
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML> <HEAD> <TITLE> Microsoft TreeView Control, version 6.0 </TITLE> </HEAD> <BODY onload="init()"> 當前節(jié)點:<INPUT TYPE="text" id="caption" /> <INPUT TYPE="button" value="刪除" onclick="delItem()" /> <BR /> <INPUT TYPE="text" id="strNode" /><INPUT TYPE="button" value="添加節(jié)點" onclick="addItem()" /> <hr> <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 Sub delItem() On Error Resume Next If Len(strCaption)>0 Then TreeView.Nodes.Remove index End if End Sub //--> </SCRIPT> </BODY> </HTML>
[Ctrl+A 全選 注:
如需引入外部Js需刷新才能執(zhí)行
]
8.ScriptControl Object
<!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 strTest = Replace("你好,世界!" & vbCrlf & "我是$name。", "$name", Name) MsgBox strTest,64,"Just Test it" End Sub
