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

 

 

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 Tree()

       a.input(2.1)

       MessageBox.Show("OK")

   End Sub

End Class

 

   将input()摆在Tree类别中﹐为Tree之程序成员﹐它能存取资料成员height之值。把input()程序宣告为Public表示类别外之程序可藉来呼叫它﹐其呼叫格式为──

                

  简单规则是﹕

      Public 表示授权给外界之程序藉由此格式呼叫程序成员。

 

如果此程序改写为﹕

 

 

 

ex09.bas

Some Error Here!

Imports System.ComponentModel

Imports System.Drawing

Imports System.WinForms

----------------------------------------------

Class Tree

   Private varity As String

   Private age As Integer

   Private height As Single

   Private Sub input(ByVal hei As Single)

       height = hei

   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 "

   .......

补充：软件开发 , Vb ,
上一个：VB.Net中文教程(1) 类别与封装性(5)
下一个：VB.Net中文教程(1) 类别与封装性(3)
更多图片编程知识:

VB编程问题

最近百度360腾讯网盘大战, 俺光捡便宜不说话, 分享收藏的电影给大家............

【分享】一个可以方便快捷操作外部程序窗口的类clsWindow

怎样封装ocx？

想学vb

(分享)Anycell Report 中国式报表控件 2.7
  
更多VB疑问解答：
vb把图片转换成 base64代码
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果
cloudStack 如何实现 vSphere的DRS功能
和难缠客户的那些事儿
批处理转移文 之errorlevel
vb 6.0 调用vb.net dll混合程序集错误
VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
求助在Dir1控件当前目录下新建一个文件夹的代码
CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
有两个磁盘阵列,如何使用能达到最好的效果