Microsoft スライダー コントロール、バージョン 6.0 現在の値: 最大値: [Ctrl A すべて選択 注: 外部 Js を導入する必要がある場合は、実行するために更新する必要があります ]泣きレッドパビリオン:これだからコントロールは危険です(私もこの罠にはまりました…)。 。すぐには実行されません。 。マヤは優しくない。 。 。 7.Microsoft TreeView コントロール、バージョン 6.0 Microsoft TreeView コントロール、バージョン 6.0 現在のノード: [Ctrl A すべて選択 注: 外部 Js を導入する必要がある場合は、更新して実行する必要があります ]8 .ScriptControl オブジェクト ScriptControl オブジェクト 定数名 = "アンバート" サブテスト() ディム strTest strTest = Replace("Hello, world!" & vbCrlf & "私は $name.", "$name", Name) MsgBox strTest,64,"テストしてみましょう" エンドサブ [Ctrl A すべて選択 注: 外部 Js を導入する必要がある場合は、更新して実行する必要があります ]9 .システムモニター制御 システム監視制御 [Ctrl A すべて選択 注: 外部 Js を導入する必要がある場合は、更新して実行する必要があります ]10 .Microsoft SysInfo コントロール、バージョン 6.0 Microsoft SysInfo コントロール、バージョン 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 //--> 外部 Js を導入する必要がある場合は、 <!-- 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需刷新才能执行]