实例023公有和私有

Module Module1
    Public Class a
        Private thisX As Single '这是私有的
    End Class

    Public Class b
        Inherits a
        Public Sub Ok()
            Dim x As Integer
            'thisX=10 这是错误的
            x = 10
            MsgBox(x)
        End Sub
    End Class

    Public Class 人员
        Private pName As String
        '私有的方法，只能在人员类使用
        Private Sub Work()
            MsgBox("Working", MsgBoxStyle.OkOnly, pName)
        End Sub

        Public WriteOnly Property Name As String
            Set(ByVal value As String)
                pName = value
            End Set
        End Property
        '公有方法
        Public Sub SpeakOutName()
            MsgBox("My Name is " & pName, MsgBoxStyle.Information, "人员")
        End Sub
        '公有方法
        Public Sub GoToWork()
            MsgBox("On the way ", MsgBoxStyle.OkOnly, pName)
            '调用私有方法
            Work()
        End Sub
    End Class

    Public Class 售货员
        Inherits 人员
        Public Sub SetName(ByVal MyName As String)
            Name = MyName
        End Sub
    End Class

    Sub Main()
        Dim MrLee As New 售货员
        MrLee.SetName("李远")
        MrLee.SpeakOutName()
        MrLee.GoToWork()
    End Sub

End Module