|
Imports System
Public Class MainClass
' instance variable can be used anywhere in class
Shared Dim value As Integer = 1
Shared Sub Main(ByVal args As String())
' variable local to FrmScoping_Load hides instance variable
Dim value As Integer = 5
Console.WriteLine( "local variable value in" & _
" FrmScoping_Load is " & value )
MethodA() ' MethodA has automatic local value
MethodB() ' MethodB uses instance variable value
MethodA() ' MethodA creates new automatic local value
MethodB() ' instance variable value retains its value
Console.WriteLine( vbCrLf & vbCrLf & "local variable " & _
"value in FrmScoping_Load is " & value )
End Sub
' automatic local variable value hides instance variable
Shared Sub MethodA()
Dim value As Integer = 25 ' initialized after each call
Console.WriteLine( vbCrLf & vbCrLf & "local variable " & _
"value in MethodA is " & value & " after entering MethodA" )
value += 1
Console.WriteLine( vbCrLf & "local variable " & _
"value in MethodA is " & value & " before exiting MethodA" )
End Sub ' MethodA
' uses instance variable value
Shared Sub MethodB()
Console.WriteLine( vbCrLf & vbCrLf & "instance variable" & _
" value is " & value & " after entering MethodB" )
value *= 10
Console.WriteLine( vbCrLf & "instance variable " & _
"value is " & value & " before exiting MethodB" )
End Sub ' MethodB
End Class
|
