3-15.aspx

来自「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus」· ASPX 代码 · 共 41 行

ASPX
41 行
字号 
<%@page LANGUAGE = "vb"%>
<script language="vb" runat ="server">
Class Window	
	Private pWidth As Double = 30
	Private pHeight As Double = 20
	Public Property width() As Double
		Get
			Return pWidth
		End Get
		Set(ByVal value As Double)
			pWidth = value
		End Set
	End Property
	Public ReadOnly Property height As Double
		Get
			Return pHeight
		End Get
	End Property	
End Class
</script>
<HTML>
<HEAD>
	<title>Test Property</title>
</HEAD>
<BODY>
<TABLE width="100%" bordercolor="blue" border="1">
<TR height=25 bgcolor="blue" >
<TD align="center"><font color="white">程序输出结果</font></TD></TR>
<TR bgcolor="white"><TD>
<%      
    	Dim y As new Window()
	y.width=200	
    	Response.write("The width of window is " & y.width & "<BR>")
	Response.write("The height of window is " & y.height )
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

3-15.aspx - 源码说明

本页面展示了「程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的」中的 3-15.aspx 源码文件，采用 ASPX 编程语言编写，共 41 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?