VB.Net Tutorial/Language Basics/namespace — различия между версиями
Admin (обсуждение | вклад) м (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