[原创]小例子说明类、属性、方法和事件、构造函数

     Private   Sub Page_Load() Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim f As New cls '定义cls类的实例
        AddHandler f.namechange, AddressOf abc '将事件绑定至事件处理程序
        Response.Write(f.getname)
    End Sub

     Public   Sub abc() Sub abc()
        Response.Write("改变")
    End Sub
End Class

Public   Class cls Class cls
    Private _name As String = "xzl" '_name为私有变量 只允许在该类内访问
    Public Event namechange() '创建事件
    Public Property name()Property name() As String '此为一个属性
        Get
            Return _name '当直接使用时返回_name变量的值
        End Get
        Set(ByVal Value As String)
            _name = Value '当为cls的name属性赋值时将值赋予_name变量
            RaiseEvent namechange() '激活事件
        End Set
    End Property
    Public Function getname()Function getname() As String '此为一个方法 具体作用为返回_name变量的值
        Return _name
    End Function
End Class

        在这里例子中，我们定义了一个类，这个类包含自己的方法、属性和事件。当为私有变量赋值时激活namechange事件，页面显示 "改变"。

        构造函数是一个特殊的方法，当第一次创建类时，这种方法总是自动运行，在VB.NET中构造函数总是New,在C#中构造函数与类名相同。

        现在我们定义一个构造函数new 要求创建类时必须给指定的参数

     Public   Sub New() Sub New(ByVal name As String)
        _name = name
    End Sub

        那么由此，我们在定义类的实例的时候就必须

Dim  f  As   New  cls( " ASP " )  ' 定义cls类的实例

        给类中的私有变量_name赋值为"ASP"。

转载于:https://www.cnblogs.com/xzlang/archive/2005/02/18/105838.html