Me关键字在.NET中的使用(转)

End Sub

End Class

此程序输出如下﹕Balance is 480

Money 类别的 balance资料﹐记录存款余额。main()内之对象orange接受两讯息──add(300)及add(80) ﹐欲存入两项金额。

指令── orange.add(300)

orange.add(80)

表示﹕先存入 300元再存入80元﹐有先后次序。若上述图形改为──

则更具次序感。于是﹐上述指令相当于──

这种效果﹐不太陌生吧﹗回忆小学时，班长喊着：「起立、敬礼、坐下」，您不是连续接受到三个讯息吗？渐渐地﹐您已能设计出像日常生活这般亲切之对象了。不过﹐俗语说﹕「万丈高楼平地起」﹐还是必须先对Me参考有充分了解才行﹗请看个程序──

@#ex03.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

@#-----------------------------------------------------------------------------------

Public Class Money

Private balance As Decimal

Public Sub New(ByVal amount As Decimal)

balance = amount

End Sub

Public Function add(ByVal saving As Decimal) As Money

balance = balance + saving

add = Me

End Function

Public Sub Display()