⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 m6.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
     
    <tr> 
      <td bgcolor=#000000 height=14> 
        <div align=center class=H1>    <font color="#FFFFFF">VB.Net中文教程(13) Whole-Part关系(3)</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="left">   <font color="#000000">size = s<br>
             &nbsp;End Sub<br>
           &nbsp;End Class<br>
           &nbsp;<br>
           &nbsp;Private dr As Door<br>
           &nbsp;Private win As Window<br>
           &nbsp;Public Sub New()<br>
             &nbsp;dr = New Door(50)<br>
             &nbsp;win = New Window(100)<br>
           &nbsp;End Sub<br>
           &nbsp;Public Sub Show()<br>
             &nbsp;Messagebox.Show("Door: " + str(dr.size) + 
          " &nbsp; Win: " + str(win.size))<br>
           &nbsp;End Sub<br>
          End Class<br>
          '---------------------------------------------------------------------------------------------------<br>
          Public Class Form1<br>
           &nbsp;Inherits System.WinForms.Form<br>
           &nbsp;<br>
           &nbsp;Public Sub New()<br>
             &nbsp;MyBase.New()<br>
             &nbsp;Form1 = Me<br>
             &nbsp;'This call is required by the Win Form Designer.<br>
             &nbsp;InitializeComponent()<br>
             &nbsp;'TODO: Add any initialization after the InitializeComponent() 
          call<br>
           &nbsp;End Sub<br>
           &nbsp;'Form overrides dispose to clean up the component list.<br>
           &nbsp;Public Overrides Sub Dispose()<br>
             &nbsp;MyBase.Dispose()<br>
             &nbsp;components.Dispose()<br>
           &nbsp;End Sub<br>
          #Region " Windows Form Designer generated code "<br>
            ......<br>
          #End Region<br>
           &nbsp;Protected Sub Form1_Click(ByVal sender As Object, ByVal<br>
                    
                  &nbsp;e As System.EventArgs)<br>
             &nbsp;Dim h As New House()<br>
             &nbsp;h.Show()<br>
           &nbsp;End Sub<br>
          End Class<br>
          <br>
          以此程序输出如下﹕<br>
                   &nbsp;Door: 
          50 &nbsp;Win: 100<br>
          <br>
          <br>
          House 之对象诞生后﹐立即诞生内含之Door对象和Window对象。例如﹐宣告指令──<br>
               &nbsp;Dim h As New House()<br>
          <br>
          此时﹐h 对象诞生了﹐其内含之dr 和win对象亦诞生了。<br>
          <br>
               &nbsp;<br>
          <br>
          此h 通称为「组合对象」(Composite object)﹐而dr 和win 则称为「部分对象」(Component object)。这种关系具有一项特色﹕组合对象与部分对象的寿命应该是一致的。<br>
           &nbsp;在逻辑(Logical)意义上,这House 结构中﹐门和窗随着房子而具有「生死与共」之亲蜜关系,也就是寿命一致。在计算机实体(Physical)表达时,House 
          之对象并不「真正」包含Door及Window之对象﹐只是利用两个参考指向它们。所以上图也可想象如下: <br>
          </font></span> <br>
           </p>
      </td>
    </tr>
  
  </table>
</div>


<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -