📄 6_6.htm
字号:
<HTML>
<HEAD><TITLE>使用复选框</TITLE></HEAD>
<BODY><H3>使用复选框</H3><HR>
<INPUT name=Text1 type=Text value =文本内容 Style={font:44} Size=20><P>
斜体<INPUT type = checkbox name=chk>
粗体<INPUT type = checkbox name=chk>
下划线<INPUT type = checkbox name=chk>
删除线<INPUT type = checkbox name=chk>
<SCRIPT FOR=chk EVENT=onClick LANGUAGE=VBScript>
If chk(0).checked Then
Text1.Style.Fontstyle = "italic"
Else
Text1.Style.Fontstyle = "normal"
End If
If chk(1).checked Then
Text1.Style.Fontweight = "bold"
Else
Text1.Style.Fontweight = "normal"
End If
Text1.Style.TextdecorationUnderline = chk(2).checked
Text1.Style.TextdecorationlineThrough = chk(3).checked
</SCRIPT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -