personsail.vb

聊天工具,一个可以在任何系统下运作的聊天工具

Public Class personsail
    Inherits Person
    Private _Height As Single       '身高(Cm)
    Private _Weight As Single       '体重(Kg)
    Private _Nationality As String  '国籍
    Private _Province As String     '省份/洲
    Private _City As String         '市/县/地区
    Private _Address As String      '通讯地址
    Private _Zip As Integer         '邮编
    Private _Mobile As Integer      '手机
    Private _Phone As String        '电话
    Private _FinishSchool As String '毕业学校
    Private _FinishClass As String  '毕业班级
    Private _FinishTime As Date     '毕业时间
    Private _Vocation As String     '当前职业
    Private _Job As String          '当前职位
    Private _WorkTime As Date       '工作时间
    Private _Laborage As Long       '薪水/月(RMB)
    Private _Oicq As Integer        'OICQ
    Private _Msn As String          'MSN
    Public Sub New()
        _Height = 175
        _Weight = 55
        _Nationality = "china"
        _Province = "jl"
        _City = "th"

    End Sub

    Public Property Height() As Single
        Get
            Return _Height
        End Get
        Set(ByVal value As Single)
            If value < 300 And value > 50 Then
                _Height = value
            Else
                Console.WriteLine("wrong")

            End If
        End Set
    End Property

    Public Property Weight() As Single

        Get
            Return _Weight
        End Get
        Set(ByVal value As Single)
            If value > 20 And value < 500 Then
                _Weight = value
            Else
                Console.WriteLine("wrong")
            End If
        End Set


    End Property
    Public ReadOnly Property Nationality() As String


        Get
            Return _Nationality
        End Get


    End Property
    Public ReadOnly Property Province() As String


        Get
            Return _Province
        End Get


    End Property
    Public ReadOnly Property City() As String


        Get
            Return _City
        End Get


    End Property
    Public ReadOnly Property Address() As String


        Get
            Return _Address
        End Get


    End Property
    Public ReadOnly Property Zip() As Integer


        Get
            Return _Zip
        End Get


    End Property
    Public ReadOnly Property Mobile() As Integer


        Get
            Return _Mobile
        End Get


    End Property
    Public ReadOnly Property Phone() As String


        Get
            Return _Phone
        End Get


    End Property
    Public ReadOnly Property FinishSchool() As String


        Get
            Return _FinishSchool
        End Get


    End Property
    Public ReadOnly Property FinishClass() As String


        Get
            Return _FinishClass
        End Get


    End Property
    Public ReadOnly Property FinishTime() As Date


        Get
            Return _FinishTime
        End Get


    End Property
    Public ReadOnly Property Vocation() As String


        Get
            Return _Vocation
        End Get


    End Property
    Public ReadOnly Property Job() As String


        Get
            Return _Job
        End Get


    End Property
    Public ReadOnly Property WorkTime() As Date


        Get
            Return _WorkTime
        End Get


    End Property
    Public ReadOnly Property Laborage() As Long


        Get
            Return _Laborage
        End Get


    End Property
    Public ReadOnly Property Oicq() As Integer


        Get
            Return _Oicq
        End Get


    End Property
    Public ReadOnly Property Msn() As String


        Get
            Return _Msn
        End Get


    End Property


End Class