? vb.net亚博优惠活动之类的属性 亚博优惠活动,亚博体育网页版,亚博app怎么下载「官网直营」
VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动 VB.net 2010 视频亚博优惠活动
SQL Server 2008 视频亚博优惠活动 c#入门经典亚博优惠活动 Visual Basic从门到精通视频亚博优惠活动
当前位置:
首页 > 编程开发 > VBnet >
  • vb.net亚博优惠活动之类的属性

  • 2015-01-24 12:58 来源:未知
类的属性(相关vb.net亚博优惠活动)
1、属性的概念
在系统类中提供了很多属性,如textbox中有text属性。类的属性是一个可以设置值(赋值),也能取出值(引用)的成员。
初看起来,属性与类中的变量十分相似,但实际上是不同的。在对类的变量设置值时是没有检测功能的,例如设置月份为13月显然是不正确的。
显然需要一种机制,它可以在为对象的成员变量设置值时作检查,这就是属性。属性实际上是一种访问成员变量的特殊函数。同时,为了保护类的成员变量不被随意更改,一般被设置成为private,这样在类的外面通过对象就不能访问,只能通过一种特殊函数属性去访问它。
2、属性的定义
Public property? 属性名称
Get? ‘引用属性

End get
Set(byval value as 类型)? ‘设置属性

End set
End property
.编写mydate中的year— month—月、 day—日属性,以完成对成员变量m_year m_month m_day的读写并测试。
程序见,类的属性应用,程序为:
Public Class mydate
??? Private m_year, m_month, m_day As Integer
??? Public Sub New()
??????? setsystemdate()
??? End Sub
??? Public Sub New(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer)
??????? m_year = y : m_month = m : m_day = d
??? End Sub
??? Public Sub setsystemdate()
??????? m_year = Microsoft.VisualBasic.Year(Now())
??????? m_month = Microsoft.VisualBasic.Month(Now)
??????? m_day = Microsoft.VisualBasic.Day(Now)
??? End Sub
??? Public Sub show()
??????? MsgBox(Str(m_year) + "-" + Str(m_month) + "-" + Str(m_day), MsgBoxStyle.OkOnly, "日期")
??? End Sub
??? Public Property month() As Integer
??????? Get
??????????? month = m_month
??????? End Get
??????? Set(ByVal m As Integer)
??????????? m_month = m
??????? End Set
??? End Property
??? Public Property year() As Integer
??????? Get
??????????? year = m_year
??????? End Get
??????? Set(ByVal y As Integer)
??????????? m_year = y
??????? End Set
??? End Property
??? Public Property day() As Integer
??????? Get
??????????? day = m_day
??????? End Get
??????? Set(ByVal d As Integer)
??????????? m_day = d
??????? End Set
??? End Property
End Class
测试类为:
Public Class Form1
??? Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
??????? Dim a As New mydate
??????? a.year = 1996
??????? a.month = 10
??????? a.day = 6
??????? a.show()
??? End Sub
End Class
说明:
上面程序对年月日的有效性还不能进行正确性检查,改进的方法是课本P165-P166的程序,从略。
相关亚博优惠活动