VB.Net中文教程(2) 继承与封装性(2)

 

 

.......

#End Region

   Protected Sub Form1_Click( ByVal sender As Object,

                           ByVal e As System.EventArgs)

       Dim crag As New Teacher("Crag", 38, 45000)

       crag.modifyName("Crag Clinton")

       MessageBox.Show( "AGE: " + str(crag.age) + ",     SALARY: "

                        + str(crag.salary))

   End Sub

End Class

 

因为name是Person类别的私有资料，在子类别Teacher的modifyName()里不能使用此资料名称，所以错了。如果将Person类别定义为﹕

 

ex03.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

---------------------------------------------------------

Class Person

   Protected name As String

   Public age As Integer

 

   Public Sub New(ByVal na As String, ByVal a As Integer)

       name = na

       age = a

   End Sub

   Public Function GetName() As String

       GetName = name

   End Function

End Class

 

Class Teacher

   Inherits Person

   

   Public salary As Single

   Public Sub New(ByVal na As String, ByVal a As Integer, ByVal sa As Single)

       MyBase.New(na, a)

       salary = sa

   End Sub

   Public Sub modifyName(ByVal na As String)

       name = na

   End Sub

End Class

--------------------------------------------------------

Public Class Form1

   Inherits System.WinForms.Form

   

   Public Sub New()

       MyBase.New()

       Form1 = Me

       This call is required by the Win Form Designer.

       InitializeComponent()

       TODO: Add any initialization after the InitializeComponent() call

   End Sub

   Form overrides dispose to clean up the component list.

   Public Overrides Sub Dispose()

       MyBase.Dispose()

       components.Dispose()

   End Sub

#Region " Windows Form Designer generated code "

    
补充：软件开发 , Vb ,
上一个：VB.Net中文教程(2) 继承与封装性(3)
下一个：VB.Net中文教程(2) 继承与封装性(1)
更多图片编程知识:

VB控件的制作

很多人都说数据库插入图片不好，趁着下岗的机会我在家里做了个试验插入了1500张图片，没觉得慢

菜鸟求助——如何向同一个textbox多次赋值，在线等

【冰天雪地撒玻璃碎赤身裸体跪求】【几个OUTLOOK的VBA代码, 希望有大神知道答案,非常感谢!! 】 : )

vb6.0中怎样做自由编辑列头，显示出来

有没有方法将VB窗体生成的图像直接存储到Access数据库中
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果