共享方法
PublicClassMath
SharedFunctionAdd(ByValaAsInteger,ByValbAsInteger)AsInteger
Returna+b
EndFunction
EndClass
我们可以不用实例化一个Math对象，就可以访问，代码如下：
DimresultAsInteger
result=Math.Add(5,10)
- 分析：上例中直接使用类的方法。如果用通常的方法就将导致错误，但是利用了共享方法一切都变得可以接受了。共享方法不仅可以通过通常的方法来访问而且可以在不需要创建一个对象的条件下提供访问的功能。实际上，当一个共享方法被调用的时候，没有任何对象被创建，它就象再模块中的一个程序可以直接被调用。
DiminfileAsStreamReader=File.OpenText(words.txt)
DimstrInAsString
str=infile.ReadLine()
共享变量：
- 含义：我们可以创建另外一种共享成员。有时候类的所有实例需要共享一个数值，有时候每个特定类型的对象要共享相同的变量，这些时候都可以通过使用共享变量来实现目的。一个VB.NET共享变量可以使用Shared关键字来声明，这一点很象共享方法的声明：
PublicClassMyCounter PrivateSharedmintCountAsInteger EndClass
- 作用域：在缺省状态下，共享方法是Public,而共享变量是Private。总而言之，我们要养成一个好的习惯：定义方法和变量的作用域而不使用缺省值，以避免混乱。关于共享变量的一件重要的事情是它们在所有类的实例中都是公用。我们可以键入如下的代码来加强我们的类
PublicClassMyCounter PrivateSharedmintCountAsInteger PublicSubNew() mintCount+=1 EndSub PublicReadOnlyPropertyCount()AsInteger Get ReturnmintCount EndGet EndProperty EndClass
ProtectedSubButton4_Click(ByValsenderAsObject,_
ByValeAsSystem.EventArgs)
DimobjAsMyCounter
obj=NewMyCounter()
obj=NewMyCounter()
obj=NewMyCounter()
MsgBox(obj.Count,MsgBoxStyle.Information,counter)
EndSub
如果我们再次运行这段程序，将可以得到6、9等等。只要我们的应用程序继续运行计数器就保持有效，也就是说一旦我们结束应用程序计数器就不再起作用。
这项计数对于服务器的处理过程是十分有用的，因为它可以轻松地不停地进行计数。这个数值只有在处理过程重新开始地时候才被复位。
- 对于VB.NET共享变量另外一个通常的应用是提供了全局变量的类型。给定一个Public作用域的共享变量：
PublicClassTheClass
PublicSharedMyGlobalAsInteger
EndClass
我们可以在客户代码中使用这个变量。
TheClass.MyGlobal+=5
这个变量将在我们应用程序的任何地方都是有效的，它提供了一个很好的机理来在组件、类、模块等等之间来共享数值。
这是我根据自己的需求从网上查询了一些资料，并进行了整理，望读者批评指正