📄 test3_5_1.htm
字号:
<html>
<head>
<title>ActiveX对象</title>
<script language="vbscript">
sub button1_Onclick()
if document.form1.text1.value="" then
x=msgbox("Please input a value!",48)
else
document.Calendar1.GridCellEffect=document.form1.text1.value
end if
end sub
</script>
</head>
<body>
这里是1900-2100年的日历：<br>
<object
classid="CLSID:8E27C92B-1264-101C-8A2F-040224009C02" name=Calendar1
id=Calendar1 width=288 height=192>
<param name=BackColor value=-2147483633>
<param name=Year value=2001>
<param name=Month value=3>
<param name=Day value=20>
<param name=DayFontColor value=0>
<param name=FirstDay value=1>
<param name=GridCellEffect value=0>
<param name=GridFontColor value=10485760>
<param name=GridLinesColor value=-2147483632>
<param name=ShowDateSelectors value=-1>
<param name=ShowDays value=-1>
<param name=ShowHorizontalGrid value=-1>
<param name=ShowTitle value=-1>
<param name=ShowVerticalGrid value=-1>
<param name=TitleFontColor value=10485760>
<param name=ValueIsNull value=0>
</object>
<br><br>
<form name="form1">
GridCellEffect:(0,1 or 2)<input type="text" name="text1" size=4>
<br><br>
<input type="button" name="button1" value="改变属性">
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -