Microsoft Slider Control 버전 6.0 현재 가치: 최대값: [Ctrl A 모두 선택 참고: 외부 J를 도입해야 하는 경우 실행하려면 새로 고침이 필요합니다 ]울음 레드 파빌리온: 이래서 컨트롤이 위험해요(저도 이 함정에 빠졌어요...). . 즉시 실행되지는 않습니다. . 마야는 친절하지 않아요. . . 7.Microsoft TreeView 컨트롤 버전 6.0 Microsoft TreeView 컨트롤, 버전 6.0 현재 노드: [Ctrl A 모두 선택 참고: 외부 J를 도입해야 하는 경우 실행하려면 새로 고쳐야 합니다 ]8 .ScriptControl 개체 스크립트 컨트롤 개체 Const 이름 = "Anbert" 하위 테스트() 희미한 strTest strTest = 바꾸기("안녕하세요, 세계!" & vbCrlf & "저는 $name입니다.", "$name", Name) MsgBox strTest,64,"그냥 테스트해 보세요" 서브 끝 [Ctrl A 모두 선택 참고: 외부 J를 도입해야 하는 경우 실행하려면 새로 고쳐야 합니다 ]9 .시스템 모니터 제어 시스템 모니터 제어 [Ctrl A 모두 선택 참고: 외부 J를 도입해야 하는 경우 실행하려면 새로 고쳐야 합니다. ]10 .Microsoft SysInfo Control, 버전 6.0 Microsoft SysInfo Control, 버전 6.0 <!-- function init(){ currentValue.value=0; Slider.max=50000000; maxValue.value=Slider.max; } function setValue(){ Slider.value=currentValue.value; } function setMax(){ Slider.max=maxValue.value; } //--> <!-- currentValue.value=Slider.value; //--> <!-- function init(){ TreeView.LineStyle = 1; TreeView.Style = 7; } //--> <!-- if (TreeView.Nodes.Count > 0){ index = TreeView.SelectedItem.index; caption.value = TreeView.SelectedItem.Text; } //--> [Ctrl A 모두 선택 참고: <!-- 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 //--> 외부 J를 도입해야 하는 경우 실행하려면 새로 고쳐야 합니다 <!-- function runCode(){ SC.Language = "VBScript"; SC.AllowUI = true; SC.AddCode (Content.value); SC.Run ("Test"); } //--> ] <!-- 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 = "你的电脑当前使用"; if(ACStatus==1){ strRes += "直流电源,"; }else{ strRes += "电池,"; strRes += "电池续航时间:$mm分钟, ".replace("$mm",BatteryFullTime/60); strRes += "电池剩余使用时间:$mm分钟, ".replace("$mm",BatteryLifeTime/60); } strRes += " "+"操作系统为 " if (OSPlatform==1) { strRes += "windows95/98/ME,"; }else if(OSPlatform==2){ strRes += "windowsNT/2000/xp/2003,"; } strRes += "版本号为 "+OSBuild+"."+OSVersion; document.write(strRes); } //--> 11.ProgView Class ProgView Class waiting........ <!-- tip.innerText=""; //--> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]