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

页面导航:首页 > 软件编程 > vb.net > VB.Net中文教程(1) 类别与封装性(5)

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

来源: 作者: 时间:2016-02-05 12:32 【

varity = v age = a height = hei End Sub Public Sub Show()

 

 

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

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<