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

📄 m3.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中文教程(12) 共享成员(Shared Member)</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="left">  <font color="#000000" class="unnamed1">主题:共享成员(Shared Member)<br>
          <br>
          <br>
          ?????? &nbsp;内容 &nbsp;??????<br>
          v 1. 共享资料成员<br>
          v 2. 共享程序成员<br>
           &nbsp;<br>
           &nbsp;您已经习惯像 New Employee("Tom", 25)这样的指令了,看到这个指令可以想向它是:Employee.New("Tom", 
          25),于是不难想象到,原来类别也是对象!这个类别对象(Class Object)接到New()讯息时,就去诞生一个对象,原来类别对象就是妈妈对象(Meta 
          Object)!妈妈是小孩共有的,妈妈的资料值是小孩共享的,妈妈的程序是小孩共享的。本文就介绍这种共享的资料成员和程序成员。<br>
          <br>
          <br>
          <br>
          1. 共享资料成员<br>
           &nbsp;对象拥有自己的空间﹐也拥有自己的资料﹔对象之间的沟通(交换资料)方法是个重要问题。如果只想传递某项资料时﹐该如何呢﹖<br>
          <br>
             &nbsp;<br>
                   &nbsp;图1、 
          对象间之沟通<br>
          <br>
           &nbsp;有数种可行方法﹐请看个例子﹕<br>
          <br>
          'ex01.bas<br>
          Imports System.ComponentModel<br>
          Imports System.Drawing<br>
          Imports System.WinForms<br>
          '----------------------------------------------------<br>
          Class Employee<br>
           &nbsp;Private emp_name As String<br>
           &nbsp;Public salary As Double<br>
           &nbsp;Public Overloads Sub New(ByVal na As String)<br>
             &nbsp;emp_name = na<br>
           &nbsp;End Sub<br>
           &nbsp;Public Overloads Sub New(ByVal na As String, ByVal s As 
          Double)<br>
             &nbsp;emp_name = na<br>
             &nbsp;salary = s<br>
           &nbsp;End Sub<br>
           &nbsp;Public Sub Display()<br>
             &nbsp;MessageBox.Show("Name: " + emp_name + "  
          &nbsp;Salary: " + str(salary))<br>
           &nbsp;End Sub<br>
          End Class<br>
          '-----------------------------------------------------<br>
          Public Class Form1<br>
           &nbsp;Inherits System.WinForms.Form<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 </font><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 + -