в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:45Z

1 версия

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

==Field initialization==

<source lang="vbnet">Imports System
Module Test
Sub Main()
Dim obj As YourClass
obj = New YourClass()
Console.WriteLine("Name is: " & obj.Name)
Console.WriteLine("Address is: " & obj.Address)
Console.WriteLine("ID is: " & obj.ID)
End Sub
End Module
Public Class YourClass
Public Name As String = "New YourClass"
Public Address As String
Public ID As Integer
End Class</source>
<pre class=codeResult>Name is: New YourClass
Address is:
ID is: 0</pre>

==Public Field==

<source lang="vbnet">Imports System
Module PointPublic
Sub Main()
Dim p as Point = New Point()
Console.WriteLine("(" & p.X & "," & p.Y & ")")
p.X = -100
p.Y = -100
Console.WriteLine("(" & p.X & "," & p.Y & ")")
End Sub
End Module
Public Class Point
Public Y as Integer "Public Field
Public X as Integer "Public Field
End Class</source>
<pre class=codeResult>(0,0)
(-100,-100)</pre>

==Shadow fields==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim objDerivedClass As New DerivedClass
Console.WriteLine(objDerivedClass.Value)
End Sub
End Class
Class BaseClass
Public Value As Double = 3.14
End Class
Class DerivedClass
Inherits BaseClass
Public Shadows ReadOnly Property Value() As Double
Get
Return 2.7
End Get
End Property
End Class</source>
<pre class=codeResult>2.7</pre>

==Shadow member variable in base class==

<source lang="vbnet">Module Module1
Class BaseClass
Public Name As String
Public Amount As Integer
Public Message As String
Public Sub New(ByVal Name As String, ByVal Amount As Integer, ByVal Message As String)
Me.Name = Name
Me.Amount = Amount
Me.Message = Message
End Sub
Public Sub ShowBaseMembers()
Console.WriteLine("Name: " & Name)
Console.WriteLine("Amount: " & Amount)
Console.WriteLine("Message: " & Message)
End Sub
End Class
Class DerivedClass
Inherits BaseClass
Public Amount As Double
Public Shadows Message As String
Public Sub ShowDerivedMembers()
Console.WriteLine("Name: " & Name)
Console.WriteLine("Amount: " & Amount)
Console.WriteLine("Message: " & Message)
End Sub
Public Sub New(ByVal Name As String, ByVal Amount As Integer, ByVal Message As String)
MyBase.New(Name, Amount, Message)
End Sub
End Class
Sub Main()
End Sub
End Module</source>

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

VB.Net Tutorial/Class Module/Member Fields - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия