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

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

用Me参考值

1.1 认识Me参考值

类别之程序成员(Procedure Member) 各含一个Me参考变量﹐它永远参考到「目前对象」(Current Object)。目前对象就是正接受并处理讯息之对象。例如﹐

@#ex01.bas

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

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

Public Class Fee

Private amount As Decimal

Public Sub New(ByVal amt As Decimal)

Me.amount = amt

End Sub

Public Sub disp()

MessageBox.Show("Amount is " + str( Me.amount ))

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.