Viewing source for recipe1408vb.aspx
<%@ Page Language="vb" %>
<script runat="server">
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim Instance1 As Recipe1408Class
Dim Instance2 As Recipe1408Class
Dim Instance3 As Recipe1408Class
Response.Write("Instance count: " & Recipe1408Class.InstanceCount.ToString() & "<br/>")
Instance1 = New Recipe1408Class()
Response.Write("Instance count: " & Recipe1408Class.InstanceCount.ToString() & "<br/>")
Instance2 = New Recipe1408Class()
Response.Write("Instance count: " & Recipe1408Class.InstanceCount.ToString() & "<br/>")
Instance3 = New Recipe1408Class()
Response.Write("Instance count: " & Recipe1408Class.InstanceCount.ToString() & "<br/>")
Recipe1408Class.ResetCounter()
Response.Write("Instance count: " & Recipe1408Class.InstanceCount.ToString())
End Sub
Public Class Recipe1408Class
Private Shared _InstanceCount As Integer = 0
Public Sub New()
Recipe1408Class._InstanceCount += 1
End Sub
Public Shared ReadOnly Property InstanceCount() As Integer
Get
Return Recipe1408Class._InstanceCount
End Get
End Property
Public Shared Sub ResetCounter()
Recipe1408Class._InstanceCount = 0
End Sub
End Class
</script>
<html>
<head>
<title>Using Shared Class Members</title>
</head>
<body>
<form runat="server">
</form>
</body>
</html>