计算机二级VB辅导:共享成员计算机等级考试

文章作者 100test 发表时间 2010:01:01 10:54:23
来源 100Test.Com百考试题网

　　我开始佩服起大李来了，同时对VB.NET充满了好奇与了解的渴望。
　　“除了全局变量外，还有什么好办法吗？”我迫不急待地想知道结果。
　　“可以使用共享成员。”大李依然是那么淡淡然，“VB.NET现在是支持真正的面向对象编程，可以继承、使用多态、共享成员和静态成员。共享成员就是在所有类和所定义派生类的实例之间共享的方法、属性、字段和事件。所有使用类创建的对象都可以访问相同的数据、共享实现过程，并且收到相同的激发事件。”
　　“这么好呀，那怎么实现呢？”我好象又回到了课堂上，满脑都是无知的符号。
　　“很简单，在Public或Private成员修饰符后加上Shared关键字即可了。Shared关键字指示一个或多个被声明的编程元素将被共享。共享元素不关联于某类或结构的特定实例。可以通过使用类名或结构名称或者类或结构的特定实例的变量名称限定共享元素来访问它们。你来看这段代码
　　Public　Class　ShareClass
　　Public　Shared　SharedValue　As　String
　　Public　Shared　Sub　ShareMethod()　　MsgBox("This　is　a　shared　method.")　　End　Sub
　　End　ClassSub
　　TestShared()
　　Dim　Shared1　As　New　ShareClass()　　’　创建了类的一个实例.
　　Dim　Shared2　As　New　ShareClass()　　’创建了类的第二个实例.
　　Shared1.SharedValue　=　"Share　Value　1"　　’给共享字段赋值.
　　Shared2.SharedValue　=　"Share　Value　2"　　’　重写共享字段的值
　　ShareClass.ShareMethod()　　’不用创建实例就可以调用类的方法.
　　End　Sub
　　“有两个要点，一个是共享成员如果是方法或属性，我们不用创建实例就可以直接用‘类名.共享成员’的方法进行调用；第二个要点，共享字段是唯一的，你来说说运行后Shared1.SharesValue的值是多少？”
　　我头脑里转了两圈，既然说共享字段是唯一的，那么Shared1.SharedValue和Shared2.SharedValue其实对应的是同一个共享字段，所以么，我立刻大声说：“是Share Value 2。因为被Shared2.SharedValue修改了。”
　　“没错！”大李又一次绽放了会心的微笑，真是对我的最高奖赏。“那你还不动手修改一下你的程序？”
　　好！说做就做。既然共享属性在其调用的时候是不用实例化的，那么我最好能借助构造一个共享属性来实现。并且要能够判断其实例是否存在或是否被销毁，如果不存在就构造一个新的窗体实例，如果存在就对其进行调用：
　　Private　Shared　m_vb6FormDefInstance　As　Form1
　　Public　Shared　Property　DefInstance()　As　Form1
　　Get
　　If　m_vb6FormDefInstance　Is　Nothing　OrElse　_
　　m_vb6FormDefInstance.IsDisposed　Then　　　‘判断窗体实例是否存在
　　m_vb6FormDefInstance　=　New　Form1()　　End　If
　　DefInstance　=　m_vb6FormDefInstance
　　End　Get
　　Set(ByVal　Value　As　Form1)
　　　m_vb6FormDefInstance　=　Value
　　End　Set
　　End　Property