VB.NET模块的总结(二)

 

' Module1.vb文件中的代码:

Module  MainClas
   Sub  Main()

     Dim  theFirstInstanceOfTestscope  As   New  TestScope
    theFirstInstanceOfTestscope.TestScopeSubMethodOne()
     Dim  aStr  As   String   =  theFirstInstanceOfTestscope.TestScopeFunctiongMethodOne()
    Console.WriteLine(aStr)

     Dim  theFirstInstanceofOutTestScope  As   New  OutTestScope()
     ' 同上作用一样，实例化OutTestScope类
     ' Dim theFirstInstanceOfOutTestScope As OutTestScope
     ' theFirstInstanceOfOutTestScope = New OutTestScope()
     ' 同上作用一样，实例化OutTestScope类
     ' Dim thefirstinstanceofouttestscope = New OutTestScope()
    theFirstInstanceofOutTestScope.OutTestScopeSubMethodOne()
     Dim  aaStr  As   String   =  theFirstInstanceofOutTestScope.OutTestScopeFunctiongMethodOne()
    Console.WriteLine(aaStr)
    Console.WriteLine(theFirstInstanceofOutTestScope.cc)

    theFirstInstanceOfTestscope.DiaoYongMMethod()  ' 通过类的实例调用其他模块的方法
     Dim  mTwoClassFiled  As   New  mTwoClass
    mTwoClassFiled.mTwoClassMethod()  ' 模块直接调用其他模块的类中的方法
    Console.WriteLine(mThreeMethod())  ' 模块直接调用其他模块的方法
    Console.ReadLine()

   End Sub
End Module


Class  TestScope
   Dim  a  As   String
   Private  b  As   String
   Public  c  As   String
   Sub   New ()  ' 无参数构造函数
     Me .a  =   " Dim_a "
     Me .b  =   " Private_b "
     Me .c  =   " Public_c "
   End Sub
   ' Public Static Sub TestScopeMethodOne()  '不能用Static去声明Sub方法（或者Sub过程），提示错误：方法不能声明为“Static”
   Public   Sub  TestScopeSubMethodOne()
    Console.WriteLine( String .Format( " TestScopeSubMethodOne():{0} {1} {2} " , a, b, c))
   End Sub
   ' Public Static Function TestScopeFunctiongMethodOne() As String  ''不能用Static去声明Function方法（或者Function函数），提示错误：方法不能声明为“Static”
   Public   Function  TestScopeFunctiongMethodOne()  As   String
     Return   String .Format( " TestScopeFunctiongMethodOne():{0} {1} {2} " , a, b, c)
   End Function
   Public   Sub  DiaoYongMMethod()
     ' mTwoMethod()
    Console.WriteLine(mThreeMethod())
   End Sub
End Class

Module  mTwo
   ' Public Sub mTwoMethod()
   Private  mTwoFiled  As   String   =   " mTwoFiled "
   Private   Sub  mTwoMethod()   ' 模块中的方法可以用Private修饰,但只能在当前模块中使用，不能在其他模块中使用
    Console.WriteLine(mTwoFiled)
   End Sub
   Class  mTwoClass
     Sub  mTwoClassMethod()
      mTwoMethod()
     End Sub
   End Class
End Module

Module  mThree
   Private   Sub  mPrivateThreeMethod()
    Console.WriteLine( " mPrivateThreeMethod() " )
   End Sub
   ' Public Function mThreeMethod() As String
   Function  mThreeMethod()  As   String   ' 模块中的方法隐士共享，可以在模块外部访问，加不加Public都一样
    mPrivateThreeMethod()
     Return   " mThreeMethod() "
   End Function
End Module

' 在vb.net中不能用static来声明方法(Sub和Function)，并且不能用来声明成员变量，只能用来声明方法(Sub和Function)中的静态变量。   
' shared既可以用来声明变量也可以用来声明方法，还可以用来声明成员变量，这一点刚好跟static相反。
' vb.ne中的shared更像C#中static的作用。在vb.net中用shared声明的成员变量(字段)和方法(Sub和Function)，只能用类名来访问，而不能用类的实例来访问

' 一个文件中可以定义多个模块
' 可以像Ｃ＃一样在另一个文件中定义一类，该类的用法和在一个文件中定义的类的用法相同（包裹字段，方法，属性等等都一样）

' 模块中的方法隐士共享，可以在模块外部（其他模块，类，结构等）被直接访问，加不加Public都一样
' 模块中的方法不能声明为Protected,Shared和Static,只能声明为Public(默认就是Public)和Private。
' 但模块中类(或者结构)的方法可以声明为Public，Private，Protected和Shared。



' OutTestScope.vb文件中的代码:

Public   Class  OutTestScope
   Dim  aa  As   String
   Private  bb  As   String
   Public  cc  As   String
   Sub   New ()  ' 无参数构造函数
     Me .aa  =   " Dim_aa "
     Me .bb  =   " Private_bb "
     Me .cc  =   " Public_cc "
   End Sub
   ' Public Static Sub TestScopeMethodOne()  '不能用Static去声明Sub方法（或者Sub过程），提示错误：方法不能声明为“Static”
   Public   Sub  OutTestScopeSubMethodOne()
    Console.WriteLine( String .Format( " OutTestScopeSubMethodOne():{0} {1} {2} " , aa, bb, cc))
   End Sub
   ' Public Static Function TestScopeFunctiongMethodOne() As String  ''不能用Static去声明Function方法（或者Function函数），提示错误：方法不能声明为“Static”
   Public   Function  OutTestScopeFunctiongMethodOne()  As   String
     Return   String .Format( " OutTestScopeFunctiongMethodOne():{0} {1} {2} " , aa, bb, cc)
   End Function
End Class