共享或类成员
随着对象的功能越来越强大，我们有时想访问一些变量、函数或者程序而不需要一个实际的对象实例。在以前，我们可以键入这类型的代码到一个代码模块中，而不管程序是否跟一些类有关。

共享方法

在VB.NET中我们有了一个较好的改变。不仅一个类可以拥有所有正常的方法和属性（这些方法和属性可以由创建类的实例来实现）而且它们可以拥有一些不需要创建类的实例的方法，这些方法就是本教程要介绍的共享方法。这些方法在其它的编程语言中也称为静态方法或者类方法。

一个共享方法不能作为一种普通的方法，通过一个对象的实例来访问，而是可以从类直接访问。下面是共享方法的一个简单的例子：

Public Class Math

Shared Function Add(ByVal a As Integer, ByVal b As Integer) As Integer

Return a + b

End Function

End Class



我们可以不用实例化一个Math对象，就可以访问，代码如下：

Dim result As Integer

result = Math.Add(5, 10)

现在请再仔细看看，这里我们不是使用一个变量，而是直接使用类的方法。如果用通常的方法就将导致错误，但是利用了共享方法一切都变得可以接受了。

共享方法不仅可以通过通常的方法来访问而且可以在不需要创建一个对象的条件下提供访问的功能。实际上，当一个共享方法被调用的时候，没有任何对象被创建，它就象再模块中的一个程序可以直接被调用。

共享方法和其它普通的方法一样也可以被重载，所以可以利用相同的共享方法来创建一系列变化的方法，每一种方法有不同的参数列表。

共享方法的缺省的辖域是Public。我们也可以载声明中将共享方法设置为Friend、Protected或者Private。实际上，当重载方法的时候，只要参数列表不同我们就有不同的作用域。

究竟共享方法是如何使用的呢，下面我们看看一个例子。当我们想为输入打开一个文本文件的时候，我们可以在File类中使用一个共享代码，如下：

Dim infile As StreamReader = File.OpenText(words.txt)

Dim strIn As String

str = infile.ReadLine()

这里没有任何的类型的文件被创建。OpenText方法是一个共享方法，它打开一个文件并且返回一个StreamReader对象。另外一个例子来自System.Guid数据类型。这个类描述了一个全局的独特的用户ID（GUID）数值，但是我们可以通过一个共享方法来创建一个新的方法。

Dim guidID As Guid()

guidID = Guid.NewGuid()

这个NewGuid方法是直接从Guid类中调用的。它创建了一个新的Guid对象并且返回一个数值。
共享变量

我们还可以创建另外一种共享成员。有时候类的所有实例需要共享一个数值，有时候每个特定类型的对象要共享相同的变量，这些时候都可以通过使用共享变量来实现目的。

一个共享变量可以使用Shared关键字来声明，这一点很象共享方法的声明：

Public Class MyCounter

Private Shared mintCount As Integer

End Class



跟共享方法一样，我们也可以根据需要来设置共享变量的作用域。在缺省状态下两者就不一样了，共享方法是Public,而共享变量是Private。

总而言之，我们要养成一个好的习惯：定义方法和变量的作用域而不使用缺省值，以避免混乱。

关于共享变量的一件重要的事情是它们在所有类的实例中都是公用。我们可以键入如下的代码来加强我们的类：

Public Class MyCounter

Private Shared mintCount As Integer



Public Sub New()

mintCount += 1

End Sub

Public ReadOnly Property Count() As Integer

Get

Return mintCount

End Get

End Property

End Class

仔细看看上面的代码：当我们为类创建了实例时，计数器就增一。+=操作符是一个在VB.NET新有的。

在任何时候我们可以通过Count属性来取出count数值。这样，如果我们运行下面的客户代码，我们可以得到结果为3。

Protected Sub Button4_Click(ByVal sender As Object, _

ByVal e As System.EventArgs)

Dim obj As MyCounter

obj = New MyCounter()

obj = New MyCounter()

obj = New MyCounter()

MsgBox(obj.Count, MsgBoxStyle.Information,counter)

End Sub

如果我们再次运行这段程序，将可以得到6、9等等。只要我们的应用程序继续运行计数器就保持有效，也就是说一旦我们结束应用程序计数器就不再起作用。

这项计数对于服务器的处理过程是十分有用的，因为它可以轻松地不停地进行计数。这个数值只有在处理过程重新开始地时候才被复位。
全局变量

对于共享变量另外一个通常的应用是提供了全局变量的类型。给定一个Public作用域的共享变量：

Public Class TheClass

Public Shared MyGlobal As Integer

End Class

我们可以在客户代码中使用这个变量。

TheClass.MyGlobal += 5

这个变量将在我们应用程序的任何地方都是有效的，它提供了一个很好的机理来在组件、类、模块等等之间来共享数值。