📄 3-15.aspx

📁 程序源代码分成两个部分： &#61557 一部分是用记事本或EditPlus编写的

💻 ASPX

字号:

<%@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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -