📄 m7.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关系(4)</font> </font> </font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="left"> <br>
<span class="unnamed1">上述两种实体结构皆表达了「组合／部分」关系。请再看个例子：<br>
<br>
'ex02.bas<br>
Imports System.ComponentModel<br>
Imports System.Drawing<br>
Imports System.WinForms<br>
'----------------------------------------------------<br>
Class Person<br>
Private p_name As String<br>
Private p_age As Integer<br>
<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 Function isEqual(ByVal obj As Person) As Integer<br>
Dim k As Integer = 0<br>
If Me.p_name = obj.p_name Then<br>
k = 1<br>
End If<br>
isEqual = k<br>
End Function<br>
Public Sub Show()<br>
Messagebox.Show(Me.p_name + ", " + str(Me.p_age))<br>
End Sub<br>
End Class<br>
'---------------------------------------------------------------------------------<br>
Public Class Form1<br>
Inherits System.WinForms.Form<br>
<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, <br>
ByVal e As System.EventArgs)<br>
Dim a As New Person("Alvin", 35)<br>
Dim b As New Person("David", 25) </span></font><br>
</p>
</td>
</tr>
</tbody>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=640 align="center">
<tbody>
<tr valign=center>
<td height=20>
<div align="center"><font
color=#009900>------------------- <a href="../../cuiyunfeng.htm" target="_blank">关于稻田</a>
| <a href="../../../wbgnet.com/cgi-bin/book/book.pl@work=look&user=cui1023&page=1" target="_blank">稻田论坛</a>
| <a href="mailto:cui1023@21cn.com">联系稻田</a> |<a href="../../2b.htm" target="_blank">返回首页</a>
-------------------</font></div>
</td>
</tr>
<tr valign=bottom>
<td>
<div align=center>
</td>
</tr>
<tr align=middle valign=bottom>
<td height=20>
<div align=center>建议您使用IE4.0或以上版本800×600模式浏览以获最佳效果 </div>
</td>
</tr>
</tbody>
</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 + -