定义和使用属性
来源:互联网 发布:撩妹老司机知乎 编辑:程序博客网 时间:2024/06/05 06:07
Public Class Employee
Private Name As String
Private Salary As Decimal
Private HireDate As DateTime
Public Sub New(ByVal Name As String, _
ByVal Salary As Decimal, _
ByVal HireDate As DateTime)
Me.Name = Name
Me.Salary = Salary
Me.HireDate = HireDate
End Sub
Public Sub payRise(ByVal Amount As Decimal)
Me.Salary += Amount
End Sub
Public Property FullName() As String
Get
Return Me.Name
End Get
Set(ByVal Value As String)
Me.Name = Value
End Set
End Property
Public ReadOnly Property Remuneration() As Decimal
Get
Return Me.Salary
End Get
End Property
Public ReadOnly Property DaysSinceJoined() As Integer
Get
Dim timespan As TimeSpan = DateTime.Now.Subtract(Me.HireDate)
Return timespan.Days
End Get
End Property
End Class
------------------------------------------------------------------------------------
Dim worker As New Employee("me", 1600, New DateTime(2004, 11, 22))
worker.FullName = "zhang lei"
Label1.Text = worker.FullName & vbCrLf
Label1.Text &= worker.Remuneration & vbCrLf
Label1.Text &= worker.DaysSinceJoined
- 定义和使用属性
- 定义属性和使用属性
- OCX 结构体数组属性的定义和使用
- 自定义View如何定义和使用自己的属性
- javascript数组的定义及其属性和方法的使用
- maven属性定义与使用
- 定义和使用全局变量
- Struct定义和使用
- Struts编程 Tiles的使用1——基于JSP的定义和属性
- Struts编程 Tiles的使用2——基于XML配置文件的定义和属性
- 在Python中定义和使用 抽象类及抽象方法 抽象属性
- android之Android Studio下自定义属性的定义和使用
- Android自定义属性的定义及使用
- JavaScript数组的定义属性及使用
- Javascript中定义类和静态属性
- PHP中属性和方法的定义
- 节点的定义、属性和方法
- oc定义私有变量和私有属性
- Installing freeradius package occurs error message
- 等长度数位编号生成函数,不足位用零补足
- Web 应用程序的基本安全做法 (Visual Studio)
- x86寻址方式说明
- HTML语言剖析
- 定义和使用属性
- Linux下程序设计常用函数
- 表格排版 20070809
- 如何在ABAP中调用OFFICE .XLS与.TXT格式
- 搞笑而富有哲理,看完后一个字——————“爽”
- 经典ASP-随机密码生成—数字和字母
- __attribute__详解
- 圆角表格的实现
- ASP.NET正则表达式集合 - -