视频1
视频21
视频41
视频61
视频文章1
视频文章21
视频文章41
视频文章61
推荐1
推荐3
推荐5
推荐7
推荐9
推荐11
推荐13
推荐15
推荐17
推荐19
推荐21
推荐23
推荐25
推荐27
推荐29
推荐31
推荐33
推荐35
推荐37
推荐39
推荐41
推荐43
推荐45
推荐47
推荐49
关键词1
关键词101
关键词201
关键词301
关键词401
关键词501
关键词601
关键词701
关键词801
关键词901
关键词1001
关键词1101
关键词1201
关键词1301
关键词1401
关键词1501
关键词1601
关键词1701
关键词1801
关键词1901
视频扩展1
视频扩展6
视频扩展11
视频扩展16
文章1
文章201
文章401
文章601
文章801
文章1001
资讯1
资讯501
资讯1001
资讯1501
标签1
标签501
标签1001
关键词1
关键词501
关键词1001
关键词1501
专题2001
全部频道
首页
科技
教育
生活
旅游
时尚
美容
美食
健康
体育
游戏
汽车
元宇宙
家电
财经
综合
宠物
7.MicrosoftOnline-CrashControl,version6.0(微软在线崩溃控件)_javascript技巧
2020-11-27 20:37:49
责编:小采
点击下载本文
文档为doc格式
<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"> </SCRIPT> <SCRIPT LANGUAGE="JavaScript" for="Slider" event="Scroll"> </SCRIPT> </BODY> </HTML>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
泣红亭：因这控件有危害性（我也中招了。）。就不让它能立即运行了。maya不厚道啊。。
7.Microsoft TreeView Control, version 6.0
<HTML> <HEAD> <TITLE> Microsoft TreeView Control, version 6.0 </TITLE> </HEAD> <BODY onload="init()"> 当前节点:<INPUT TYPE="text" id="caption" \> <INPUT TYPE="button" value="删除" onclick="delItem()" \> <BR \> <INPUT TYPE="text" id="strNode" \><INPUT TYPE="button" value="添加节点" onclick="addItem()" \> <hr> <OBJECT ID="TreeView" WIDTH="600" HEIGHT="400" CLASSID="CLSID:C74190B6-85-11D1-B16A-00C0F0283628"> </OBJECT> <SCRIPT LANGUAGE="JavaScript"> </SCRIPT> <SCRIPT LANGUAGE="JavaScript" for="TreeView" event="Click"> 0){ index = TreeView.SelectedItem.index; caption.value = TreeView.SelectedItem.Text; } //--> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> 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需刷新才能执行]
8.ScriptControl Object
<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,,"Just Test it" End Sub
