ttdisplay.htm

来自「Windows Web脚本开发指南/(美) Dan Heflin, Todd N」· HTM 代码 · 共 61 行

HTM

61 行

<html>
<head>
<xml:namespace prefix="LK" />
<style>
   LK\:CALC {behavior:url(teletype.wsc)}
</style>
<script language="VBScript">

Sub TeletypeStop()
	myTeletype.StopTeletype
End Sub

Sub TeletypeStart()
	myTeletype.StartTeletype
End Sub

Sub BeginTeletype()
dim strTemp

	strTemp = "Welcome to the wonderful world of "
	strTemp = strTemp & "Windows Scripting Components (WSC).<BR>This WSC will "
	strTemp = strTemp & "scroll text on the screen in the style of "
	strTemp = strTemp & "an old fashion Teletype machine.<BR>To learn more about Windows Scripting Components "
	strTemp = strTemp & "head over<BR>to the <a href= ""http://msdn.microsoft.com/scripting""> "
	strTemp = strTemp & "Microsoft scripting Web site.</a> "
	strTemp = strTemp & "<BR>We hoped you enjoy this little presentation!"
	myTeletype.text = strTemp
	myTeletype.Rows = 3
	myTeletype.StartTeletype
End Sub

Sub Hide()
	myTeletype.Visible = False
End Sub
Sub Show()
	myTeletype.Visible = True
End Sub

Sub ChangeFont(FontSize)
	myTeletype.FontSize = myTeletype.FontSize + FontSize
	'msgbox "Font size has been changed."
End Sub

Sub ChangeRows(NumberOfRows)
	myTeletype.Rows = myTeletype.Rows + NumberOfRows
End Sub
</script>
</head>

<body onLoad="BeginTeletype()">
<BR>
<HR size="5" color="#0000FF">
<LK:CALC id="myTeletype" EndOfMessage="TeletypeStop()"></LK:CALC>
<HR size="5" color="#0000FF">
<center>
<input type="button" value="Increase Font" onClick="ChangeFont(1)"><input type="button" value="Decrease Font" onClick="ChangeFont(-1)"><input type="button" value="Show Teletype" onClick="Show()"><input type="button" value="Hide Teletype" onClick="Hide()">
<BR><BR>
<input type="button" value="Start Teletype" onClick="TeletypeStart()"><input type="button" value="Stop Teletype" onClick="TeletypeStop()"><input type="button" value="Increase Rows" onClick="ChangeRows(1)"><input type="button" value="Decrease Rows" onClick="ChangeRows(-1)">
</center>
</body>
</html>

ttdisplay.htm - 源码说明

本页面展示了「Windows Web脚本开发指南/(美) Dan Heflin, Todd Ney著的源码」中的 ttdisplay.htm 源码文件，采用 HTM 编程语言编写，共 61 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Windows相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?