VB.Net Tutorial/Language Basics/namespace — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 15:54, 26 мая 2010

class definition with namespace

<source lang="vbnet">namespace WinForms

      public class HelloWorld
              shared sub Main() 
                      System.Console.WriteLine("Hello World")
              end sub
      end class

end namespace</source>

Hello World

Define your own namespace

<source lang="vbnet">Namespace MyNamespace

   Public Class Class2
   End Class

End Namespace Namespace MyNamespace

   Public Class Class1
   End Class

End Namespace

Module mod1

   Sub main()
       Dim objClass2 As MyNamespace.Class2
       Dim objClass1 As MyNamespace.Class1
   End Sub

End Module</source>

Use Namespace

<source lang="vbnet">Namespace MyApp.Info

   Module Main
       Sub Main()
           Dim objHW As New MyApp.Info.Utilities
           objHW.DisplayData()
       End Sub
   End Module
   Public Class Utilities
       "Run the application
       Public Sub DisplayData()
           Console.WriteLine(Environment.MachineName)
           Console.WriteLine(Environment.SystemDirectory)
           Console.WriteLine(Environment.GetLogicalDrives())
           Console.WriteLine(Environment.Version.ToString())
       End Sub
   End Class

End Namespace</source>

vbex
C:\WINDOWS\system32
System.String[]
2.0.50727.42

Use namespace to remove the conflicts

<source lang="vbnet">Namespace Network

   Class Address
       Public IP As String
       Public DomainName As String
       Public Sub New(ByVal IPAddr As String, ByVal Domain As String)
           IP = IPAddr
           DomainName = Domain
       End Sub
       Public Sub ShowAddress()
           Console.WriteLine("IP: " & IP)
           Console.WriteLine("Domain: " & DomainName)
       End Sub
   End Class

End Namespace Namespace Mailing

   Class Address
       Public Street As String
       Public City As String
       Public State As String
       Public Zip As String
       Public Sub New(ByVal Street As String, ByVal City As String, ByVal State As String, ByVal Zip As String)
           Me.Street = Street
           Me.City = City
           Me.State = State
           Me.Zip = Zip
       End Sub
       Public Sub ShowAddress()
           Console.WriteLine("Street: " & Street)
           Console.WriteLine("City: " & City)
           Console.WriteLine("State: " & State)
           Console.WriteLine("Zip: " & Zip)
       End Sub
   End Class

End Namespace Module Module1

   Sub Main()
       Dim IP As New Network.Address("122.111.222.112", "www.SomeSite.ru")
       Dim address As New Mailing.Address("122 Main", _
         "Houston", "Texas", "77469")
       IP.ShowAddress()
       Console.WriteLine()
       address.ShowAddress()
   End Sub

End Module</source>

IP: 122.111.222.112
Domain: www.SomeSite.ru
Street: 122 Main
City: Houston
State: Texas
Zip: 77469