VB.Net中文教程(7) Me参考值

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 "

.......

#End Region

Protected Sub Form1_Click(ByVal sender As Object,

ByVal e As System.EventArgs)

Dim a As New Fee(100)

Dim b As New Fee(80)

a.disp()

b.disp()

End Sub

End Class

此程序输出如下﹕Amount is 100

Amount is 80

a 和 b是Fee类别之对象。当计算机执行指令──

a.disp()

a 就是目前对象﹐disp()程序里的Me正参考到对象a。

也可看成：

图1、 Me参考值与目前对象

请注意﹕Me参考到对象a﹐也就是Me与a皆参考到同一个对象。

当计算机执行另一指令── b.disp()时，b 即为目前对象﹐而disp()程序之Me参考正指向对象 b。