<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><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-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><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> Microsoft Date and Time Picker Control, version 6.0 </TITLE></HEAD><BODY onload="init()"><OBJECT ID="DatePicker" WIDTH="120" HEIGHT="25" codebase="http://activex.microsoft.com/controls/vb6/MSComCt2.cab" CLASSID="CLSID:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1"></OBJECT><div id="result"></div><SCRIPT LANGUAGE="JavaScript"><!-- function init(){ DatePicker.CalendarBackColor = 8421631; DatePicker.CalendarForeColor = 65280; DatePicker.CalendarTitleBackColor = 16744576; DatePicker.CalendarTitleForeColor = 65535; DatePicker.CalendarTrailingForeColor = 255; DatePicker.CheckBox=true; }//--></SCRIPT><SCRIPT LANGUAGE="JavaScript" for="DatePicker" event="Change"><!-- result.innerHTML = "GMT：" + DatePicker.Value + "<BR>Custom:" + DatePicker.Year + "年" + DatePicker.Month + "月" + DatePicker.Day + "日";//--></SCRIPT></BODY></HTML>3.滚动条控件
<!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=100; 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>4.windows对话框控件
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> Microsoft Common Dialog Control, version 6.0 </TITLE></HEAD><BODY><input type="button" value="打开" onclick="showOpen()" \><input type="button" value="颜色" onclick="showColor()" \><input type="button" value="保存" onclick="showSave()" \><input type="button" value="帮助" onclick="showHelp()" \><input type="button" value="打印" onclick="showPrinter()" \><input type="button" value="字体" onclick="showFont()" \><BR \><BR \>[结果]:<BR \><div id="result" width="100%"></div><OBJECT ID="CDC" CLASSID="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB"></OBJECT><SCRIPT LANGUAGE="JavaScript"><!-- function showHelp(){ CDC.ShowHelp(); } function showPrinter(){ CDC.ShowPrinter(); } function showOpen(){ CDC.InitDir = "%windir%"; CDC.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"; CDC.DialogTitle = "打开文件"; CDC.ShowOpen(); result.innerText = "文件名：" + CDC.FileName; } function showSave(){ CDC.DialogTitle = "保存结果"; CDC.Filter = "文本文件(*.txt)|*.txt|全部文件(*.*)|*.*"; CDC.ShowSave(); result.innerText = "文件名：" + CDC.FileName; } function showFont(){ CDC.ShowFont(); result.innerText = "字体：" + CDC.FontName + ",大小：" + CDC.FontSize + CDC.FontBold?",粗体":"" + CDC.FontItalic?",斜体":"" ; } function showColor(){ CDC.ShowColor(); result.innerHTML = "<font color='#" + CDC.color.toString(16) + "'>颜色值(RGB):#" + CDC.color.toString(16) + ",颜色值(Long):" + CDC.color + "</font>"; }//--></SCRIPT></BODY></HTML>5.tab 控件
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> Microsoft TabStrip Control, version 6.0 </TITLE></HEAD><BODY onload="init()"><input type="text" value="" id="result" \><BR \><OBJECT ID="TabStrip" WIDTH="400" HEIGHT="300" CLASSID="CLSID:1EFB6596-857C-11D1-B16A-00C0F0283628"></OBJECT><SCRIPT LANGUAGE="JavaScript"><!-- function init(){ TabStrip.Tabs.Clear(); TabStrip.MultiRow=true;// TabStrip.Tabs.Add ([pvIndex],[pvKey],[pvCaption],[pvImage]); TabStrip.Tabs.Add (1, "tab1", "笔"); TabStrip.Tabs.Add (2, "tab2", "墨"); TabStrip.Tabs.Add (3, "tab3", "纸"); TabStrip.Tabs.Add (4, "tab4", "砚"); }//--></SCRIPT><SCRIPT LANGUAGE="JavaScript" for="TabStrip" event="Click"><!-- result.value = TabStrip.SelectedItem.Caption;//--></SCRIPT></BODY></HTML>6进度条控件
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE> Microsoft ProgressBar Control, version 6.0 </TITLE></HEAD><BODY onload="init()"><input type="text" id="result" \><BR \><OBJECT ID="ProgressBar" WIDTH="300" HEIGHT="10" CLASSID="CLSID:35053A22-8589-11D1-B16A-00C0F0283628"></OBJECT><SCRIPT LANGUAGE="JavaScript"><!-- function init(){ ProgressBar.Max = 100; setInterval ("Progressing()",100); } function Progressing(){ if (ProgressBar.Value<ProgressBar.Max)
{
ProgressBar.Value++; result.value = ProgressBar.Value * 100 / ProgressBar.Max + "%" ;
} }//--></SCRIPT></BODY></HTML>