VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > 批处理教程 >
  • vb.net教程之创建一个自己的类和对象

创建一个自己的类和对象(相关vb.net教程)
一、创建类的步骤:
开始→新建项目→windows应用程序→项目→添加类→输入类名(mydate)→添加。
然后在classend class 之间输入内容:
Public Class mydate
    Public m_year, m_month, m_day As Integer
    Public Sub show()
        Dim s As String
        s = Str(m_year) + "_" + Str(m_month) + "_" + Str(m_day)
        MsgBox(s, MsgBoxStyle.OkOnly, "日期")
    End Sub
End Class
二、建立一个测试类
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a, b As New mydate
        a.m_day = 24 : a.m_month = 3 : a.m_year = 2005
        a.show()
        b.m_day = 6 : b.m_month = 10 : b.m_year = 2006
        b.show()
    End Sub
End Class
程序见,我的日期类
对象定义的方式:
Dim 对象名 as new 类名;
或:
dim 对象名 as 类名
对象名 =new 类名()
成员变量(方法)的引用形式:
对象.成员变量(对象.成员方法)
三、对象的销毁:a=nothing
命名空间:相当于一个存放类的文件夹
System.console.writeln()
System.console.readln()
上面的两语句,用引用命名空间的方法可以写成:
Imports system
在下面的程序中直接写:
Console.writeln()
Console.readln()
系统默认的命名空间是:system
说明:引用命名空间的语句Imports要放在所有程序的最前面。
访问(类成员)类型:
public—都能访问; private protected friend 只能被同类内部访问。
四、数据成员中的共享静态成员(课本5.3
数据成员是用以保存数据的,有两种类型:
静态成员(或共享成员):用shared声明,静态成员使用时不用实例化。
实例成员:默认是实例成员,此类变量或方法在使用前必须()实例化,然后用实例对象访问它。如:
Public Class salarylevel
    Public Shared level1 = 5000
    Public Shared level2 = 8000
End Class
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.WriteLine(salarylevel.level1)
        Console.WriteLine(salarylevel.level2)
    End Sub
End Class
上面的程序中对成员变量level1,level2的引用就没有定义实例对象,原因在于它是shared类型的。程序见,我的日期类
同时shared类型的变量的值还可以一个对象中赋值带到另一个对象中,程序见shared成员值通用实例(或类中静态成员shared)。程序为:
Public Class yuangong
    Public Shared dname As String
    Public name As String
    Public Sub display()
        Console.WriteLine("员工的名字:" & name)
        Console.WriteLine("员工所在单位:" & dname)
        Console.ReadLine()
    End Sub
End Class
测试类:
Public Class Form1
    Dim a, b As New yuangong
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a.dname = "中国工商银行"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a.name = "张三"
        a.display()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        b.display()
    End Sub
End Class
运行结果为:
员工的名字:张三
员工所在单位:中国工商银行
员工的名字:
员工所在单位:中国工商银行
结果说明:
dname为静态成员,它的值一处发生变化,无论是对a对象还是b对象其中的dname属性值都随之而变,而name属性则是对不同的对象互不影响,原因是它不是共享成员。
小结:
shared静态成员有两个特点:
1、不用实例化而直接使用。
2、其值一处(即一个对象中)变化可带到其它地方(其它对象)。
3、在一般的事件过程中静态变量是用static说明的,而不是用shared说明,但效果类似。

相关教程