VB.Net中文教程(1) 类别与封装性(5)

varity = v

       age = a

       height = hei

   End Sub

   Public Sub Show()

       MessageBox.Show(varity + ", " + str(age) + ", " + str(height))

   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, b As New Tree()

       a.input("peach", 8, 2.1)

       b.input("pinapple", 2, 0.5)

       a.Show()

       b.Show()

   End Sub

End Class

   这个VB程序﹐Tree内之资料成员──variety, age及height皆为Private成员，而input()及Show()程序是Public成员。Form1_Click()程序中﹐首先诞生对象── a及 b。接下来﹐指令──

把 3项资料分别存入对象 a之资料成员中﹐a 之内容为﹕

同样地﹐指令──

              b.input( "pineapple", 2, 0.5 )

也把 3项资料存入对象 b之中﹐则 b之内容为﹕

最后﹐呼叫Show()程序把对象 a和对象 b之内容显示出来﹕

                peach,  8,  2.1

                pineapple,  2,  .5