в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:54:29Z

1 версия

Новая страница

==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>
<pre class=codeResult>Hello World</pre>

==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>
<pre class=codeResult>vbex
C:\WINDOWS\system32
System.String[]
2.0.50727.42</pre>

==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>
<pre class=codeResult>IP: 122.111.222.112
Domain: www.SomeSite.ru
Street: 122 Main
City: Houston
State: Texas
Zip: 77469</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Language Basics/namespace - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия