📄 m12.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关系(9)</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <font color="#000000">End Sub<br>
End Class<br>
<br>
<br>
此程序输出﹕<br>
Club: sogo has member:<br>
Alvin, 32<br>
Judy, 28<br>
<br>
c_name 指向Strclass之对象﹐这对象内含俱乐部之名称。pa指向ArrayList之对象﹐这对象可包含许多会员(Person)对象。join()程序将Person之对象存入pa所指的ArrayList对象中。<br>
Club之对象含ArrayList之对象﹐此集合对象(Collections)含有Person之对象﹐表达了「集合／成员」关系。例如﹐x
对象内含a 和b 对象。<br>
<br>
<br>
<br>
此图表示﹕"sogo"俱乐部共有"Alvin" 和"Judy"两个会员﹐亦即x 是「集合」﹐而a 和b 是「成员」(Member)。<br>
值得注意﹕这软件是利用已有类别──Strclass及Integer组合成应用类别──Person。再利用Person类别及ArrayList
类别组合成更复杂之应用类别──Club。未来﹐可利用Club及其它类别构筑更大的应用类别﹐依此类推﹐便能创造庞大又可靠的软件了。例如：<br>
<br>
'ex06.bas<br>
Imports System.ComponentModel<br>
Imports System.Drawing<br>
Imports System.WinForms<br>
Imports System.Collections<br>
'----------------------------------------------------<br>
Class Person<br>
Private p_name As String<br>
Private p_age As Integer<br>
Public Sub New(ByVal na As String, ByVal a As Integer)<br>
p_name = na<br>
p_age = a<br>
End Sub<br>
Public Sub display()<br>
Messagebox.Show(Me.p_name + ", " + str(Me.p_age))<br>
End Sub<br>
End Class<br>
<br>
Class Club<br>
Private c_name As String<br>
Private pa As ArrayList<br>
<br>
Public Sub New(ByVal na As String)<br>
c_name = na<br>
pa = New ArrayList()<br>
End Sub<br>
Public Sub join(ByVal p As Person)<br>
pa.Add(p)<br>
End Sub<br>
Public Sub display()<br>
Messagebox.Show("Club: " + Me.c_name + "
has member:")<br>
Dim p As Person<br>
For Each p In pa<br>
p.display()<br>
Next<br>
End Sub<br>
End Class<br>
'----------------------------------------------------<br>
Public Class Form1 <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 + -