📄 m8.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关系(5)</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000">dr = d<br>
End Sub<br>
Public Sub Show()<br>
MessageBox.Show("Engine: " + e.model)<br>
dr.Show()<br>
End Sub<br>
End Class<br>
'----------------------------------------------------<br>
Public Class Form1<br>
Inherits System.WinForms.Form<br>
Public Sub New()<br>
MyBase.New()<br>
Form1 = Me<br>
'This call is required by the Win Form Designer.<br>
InitializeComponent()<br>
'TODO: Add any initialization after the InitializeComponent()
call<br>
End Sub<br>
'Form overrides dispose to clean up the component list.<br>
Public Overrides Sub Dispose()<br>
MyBase.Dispose()<br>
components.Dispose()<br>
End Sub<br>
#Region " Windows Form Designer generated code "<br>
.......<br>
#End Region<br>
Protected Sub Form1_Click(ByVal sender As Object, ByVal
e As System.EventArgs)<br>
Dim civic As New Car()<br>
Dim d1 As New Driver("Wang")<br>
Dim d2 As New Driver("Kao")<br>
civic.assignTo(d1)<br>
civic.Show()<br>
civic.assignTo(d2)<br>
civic.Show()<br>
End Sub<br>
End Class<br>
<br>
此程序输出﹕<br>
Model: Honda<br>
Driver: Wang<br>
Model: Honda<br>
Model" Kao<br>
<br>
Car之对象诞生后﹐也诞生Engine之对象e ﹔同时立即指定司机﹐如下指令﹕<br>
<br>
Dim civic As New Car()<br>
Dim d1 As New Driver("Wang")<br>
..... <br>
civic.assignTo(d1)<br>
.....<br>
<br>
日常生活中的常见情况﹕汽车对象诞生时﹐不须立即指定司机对象。例如﹐汽车出厂时或闲置时并无司机﹐且汽车经常更换司机。此情形下﹐应先诞生civic对象和d1对象，如下：<br>
<br>
<br>
<br>
此时，未立即指定司机﹔而必要时才以assignTo()程序指定司机。例如，将d1指定给civic对象﹐就令civic内之参考变量dr指向d1
对象，如下： <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 + -