? vb.net亚博优惠活动之创建一个自己的类和对象 亚博优惠活动,亚博体育网页版,亚博app怎么下载「官网直营」
VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动
SQL Server 2008 视频亚博优惠活动 c#入门经典亚博优惠活动 Visual Basic从门到精通视频亚博优惠活动
  • vb.net亚博优惠活动之创建一个自己的类和对象

  • 2015-01-18 16:26 来源:未知
创建一个自己的类和对象(相关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说明,但效果类似。
相关亚博优惠活动