VB.Net中文教程(7) Me参考值
点击次数：33 次 发布日期：2008-11-06 08:07:31 作者：源代码网
源代码网推荐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. 源代码网推荐 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。 源代码网推荐 源代码网推荐 源代码网推荐由于Me正参考到对象b﹐所以Me与b参考到同一个对象。写程序时﹐宜充分利用Me参考。 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐1.2 程序传回Me参考值 源代码网推荐 源代码网推荐 在应用上﹐程序常传回Me参考值﹐可创造奇妙的效果﹐这种效果也是VB的重要特色。希望您能仔细了解Me指针之使用场合﹐能让您写出完美的OOP程序来﹗现在﹐请看个熟悉的程序── 源代码网推荐 源代码网推荐"ex02.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 Sub add(ByVal saving As Decimal) 源代码网推荐 balance = balance saving 源代码网推荐 End Sub 源代码网推荐 Public Sub Display() 源代码网推荐 MessageBox.Show("Balance is " str(balance)) 源代码网推荐 源代码网供稿. |
