📄 3-15.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 + -