First commit

847.html

@@ -0,0 +1,22 @@
+Part One  Strategies <br />
+Chapter 1: Where Should You Begin? <br />
+Chapter 2: Facing VB .NET without Fear or Panic <br />
+Chapter 3: Adoption Strategies <br />
+Part  Two Concepts<br />
+Chapter 4: .NET in Context<br />
+Chapter 5: Inheritance <br />
+Chapter 6: Memory Management in VB .NET<br />
+Chapter 7: VB .NET Multithreading<br />
+Part Three  Code<br />
+Chapter 8: Data Types and Operators<br />
+Chapter 9: Language Syntax<br />
+Chapter 10: Objects In-Depth <br />
+Chapter 11 Reflection and Attributes<br />
+Interlude<br />
+Part Four  The Wonderful World of .NET<br />
+Chapter 12: .NET Namespaces—The Grand Tour <br />
+Chapter 13: Windows Applications<br />
+Chapter 14: Internet Applications and Services <br />
+Chapter 15: COM Interop and Accessing the Win32 API <br />
+Chapter 16 Living with .NET<br />
+Conclusion

LICENSE.txt

@@ -0,0 +1,27 @@
+Freeware License, some rights reserved
+
+Copyright (c) 2003 Dan Appleman
+
+Permission is hereby granted, free of charge, to anyone obtaining a copy 
+of this software and associated documentation files (the "Software"), 
+to work with the Software within the limits of freeware distribution and fair use. 
+This includes the rights to use, copy, and modify the Software for personal use. 
+Users are also allowed and encouraged to submit corrections and modifications 
+to the Software for the benefit of other users.
+
+It is not allowed to reuse,  modify, or redistribute the Software for 
+commercial use in any way, or for a user�s educational materials such as books 
+or blog articles without prior permission from the copyright holder. 
+
+The above copyright notice and this permission notice need to be included 
+in all copies or substantial portions of the software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS OR APRESS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+

MovingToVBNet2E/SourceVS02/CH10/AssemblyScoping/Assembly1/Assembly1.vbproj

@@ -0,0 +1,101 @@
+<VisualStudioProject>
+    <VisualBasic
+        ProjectType = "Local"
+        ProductVersion = "7.0.9213"
+        SchemaVersion = "1.0"
+    >
+        <Build>
+            <Settings
+                ApplicationIcon = ""
+                AssemblyKeyContainerName = ""
+                AssemblyName = "Assembly1"
+                AssemblyOriginatorKeyFile = ""
+                AssemblyOriginatorKeyMode = "None"
+                DefaultClientScript = "JScript"
+                DefaultHTMLPageLayout = "Grid"
+                DefaultTargetSchema = "IE50"
+                DelaySign = "false"
+                OutputType = "Library"
+                OptionCompare = "Binary"
+                OptionExplicit = "On"
+                OptionStrict = "On"
+                RootNamespace = "MovingToVB.Ch10.Scoping"
+                StartupObject = "MovingToVB.Ch10.Scoping.(None)"
+            >
+                <Config
+                    Name = "Debug"
+                    BaseAddress = "0"
+                    ConfigurationOverrideFile = ""
+                    DefineConstants = ""
+                    DefineDebug = "true"
+                    DefineTrace = "true"
+                    DebugSymbols = "true"
+                    IncrementalBuild = "true"
+                    Optimize = "false"
+                    OutputPath = "bin\"
+                    RegisterForComInterop = "false"
+                    RemoveIntegerChecks = "false"
+                    TreatWarningsAsErrors = "false"
+                    WarningLevel = "1"
+                />
+                <Config
+                    Name = "Release"
+                    BaseAddress = "0"
+                    ConfigurationOverrideFile = ""
+                    DefineConstants = ""
+                    DefineDebug = "false"
+                    DefineTrace = "true"
+                    DebugSymbols = "false"
+                    IncrementalBuild = "true"
+                    Optimize = "false"
+                    OutputPath = "bin\"
+                    RegisterForComInterop = "false"
+                    RemoveIntegerChecks = "false"
+                    TreatWarningsAsErrors = "false"
+                    WarningLevel = "1"
+                />
+            </Settings>
+            <References>
+                <Reference
+                    Name = "System"
+                    AssemblyName = "System"
+                />
+                <Reference
+                    Name = "System.Data"
+                    AssemblyName = "System.Data"
+                />
+                <Reference
+                    Name = "System.XML"
+                    AssemblyName = "System.Xml"
+                />
+            </References>
+            <Imports>
+                <Import Namespace = "Microsoft.VisualBasic" />
+                <Import Namespace = "System" />
+                <Import Namespace = "System.Collections" />
+                <Import Namespace = "System.Data" />
+                <Import Namespace = "System.Diagnostics" />
+            </Imports>
+        </Build>
+        <Files>
+            <Include>
+                <File
+                    RelPath = "AssemblyInfo.vb"
+                    SubType = "Code"
+                    BuildAction = "Compile"
+                />
+                <File
+                    RelPath = "Class1.vb"
+                    SubType = "Code"
+                    BuildAction = "Compile"
+                />
+                <File
+                    RelPath = "Class1B.vb"
+                    SubType = "Code"
+                    BuildAction = "Compile"
+                />
+            </Include>
+        </Files>
+    </VisualBasic>
+</VisualStudioProject>
+

MovingToVBNet2E/SourceVS02/CH10/AssemblyScoping/Assembly1/Assembly1.vbproj.user

@@ -0,0 +1,47 @@
+<VisualStudioProject>
+    <VisualBasic>
+        <Build>
+            <Settings ReferencePath = "" >
+                <Config
+                    Name = "Debug"
+                    EnableASPDebugging = "false"
+                    EnableASPXDebugging = "false"
+                    EnableUnmanagedDebugging = "false"
+                    EnableSQLServerDebugging = "false"
+                    RemoteDebugEnabled = "false"
+                    RemoteDebugMachine = ""
+                    StartAction = "Project"
+                    StartArguments = ""
+                    StartPage = ""
+                    StartProgram = ""
+                    StartURL = ""
+                    StartWorkingDirectory = ""
+                    StartWithIE = "true"
+                />
+                <Config
+                    Name = "Release"
+                    EnableASPDebugging = "false"
+                    EnableASPXDebugging = "false"
+                    EnableUnmanagedDebugging = "false"
+                    EnableSQLServerDebugging = "false"
+                    RemoteDebugEnabled = "false"
+                    RemoteDebugMachine = ""
+                    StartAction = "Project"
+                    StartArguments = ""
+                    StartPage = ""
+                    StartProgram = ""
+                    StartURL = ""
+                    StartWorkingDirectory = ""
+                    StartWithIE = "true"
+                />
+            </Settings>
+        </Build>
+        <OtherProjectSettings
+            CopyProjectDestinationFolder = ""
+            CopyProjectUncPath = ""
+            CopyProjectOption = "0"
+            ProjectView = "ProjectFiles"
+        />
+    </VisualBasic>
+</VisualStudioProject>
+

MovingToVBNet2E/SourceVS02/CH10/AssemblyScoping/Assembly1/AssemblyInfo.vb

@@ -0,0 +1,34 @@
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+
+' General Information about an assembly is controlled through the following 
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+' Review the values of the assembly attributes
+
+<Assembly: AssemblyTitle("Assembly1")> 
+<Assembly: AssemblyDescription("Assembly Scoping example")> 
+<Assembly: AssemblyCompany("Desaware Inc.")> 
+<Assembly: AssemblyProduct("Moving to VB.NET")> 
+<Assembly: AssemblyCopyright("Copyright ©2001 by Desaware Inc.")> 
+<Assembly: AssemblyTrademark("")> 
+<Assembly: CLSCompliant(True)> 
+
+'The following GUID is for the ID of the typelib if this project is exposed to COM
+
+<Assembly: Guid("b1c4a781-7342-4a7a-9faf-f359c01cfbb8")>
+
+' Version information for an assembly consists of the following four values:
+'
+'      Major Version
+'      Minor Version 
+'      Revision
+'      Build Number
+'
+' You can specify all the values or you can default the Build and Revision Numbers 
+' by using the '*' as shown below:
+
+<Assembly: AssemblyVersion("1.0.*")>
+

MovingToVBNet2E/SourceVS02/CH10/AssemblyScoping/Assembly1/Class1.vb

@@ -0,0 +1,66 @@
+' AssemblyScoping solution - Assembly1
+' Copyright ©2001 by Desaware Inc. All Rights Reserved
+
+Public Module PublicModule
+    Public Const PublicModuleConstant As Integer = 5
+    Public Sub PublicSubInPublicModule()
+
+    End Sub
+    Friend Sub FriendSubInPublicModule()
+
+    End Sub
+    Private Sub PrivateSubInPublicModule()
+
+    End Sub
+End Module
+
+Friend Module FriendModule
+    Public Sub PublicSubInFriendModule()
+
+    End Sub
+    Friend Sub FriendSubInFriendModule()
+
+    End Sub
+    Private Sub PrivateSubInFriendModule()
+
+    End Sub
+End Module
+
+
+Public Structure mystruct
+    Public x As Integer
+    Friend y As Integer
+    Private z As Integer
+End Structure
+
+Public Enum x
+    a = 1
+End Enum
+
+
+Friend Class FriendClass
+
+End Class
+
+
+Public Class SharingDemo
+    Public Shared SharedVariable As Integer
+    Public NotSharedVariable As Integer
+    Shared Sub ShowShared()
+        Console.WriteLine("Access using Shared Procedure: " & SharedVariable.ToString)
+    End Sub
+End Class
+
+
+Public Class Class1
+    Dim fc As FriendClass
+    Dim pmc As Integer = PublicModuleConstant
+
+
+    Public Sub Test()
+        Dim sh As SharingDemo
+        Console.WriteLine("5 indicates sharing across assemblies: " & sh.SharedVariable.ToString)
+
+    End Sub
+
+End Class

MovingToVBNet2E/SourceVS02/CH10/AssemblyScoping/Assembly1/Class1B.vb

@@ -0,0 +1,16 @@
+' AssemblyScoping solution - Assembly1
+' Copyright ©2001 by Desaware Inc. All Rights Reserved
+
+Public Class Class1B
+    ' Can't see Private class in this file
+    Dim c1 As MovingToVB.Ch10.Scoping.FriendClass
+    Dim c2 As MovingToVB.Ch10.Scoping.Class1
+
+    Sub AMethod()
+        FriendSubInFriendModule()
+        FriendSubInPublicModule()
+        PublicSubInPublicModule()
+        PublicSubInFriendModule()
+    End Sub
+
+End Class