в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:47Z

1 версия

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

==Override Object.ToString==

<source lang="vbnet">
Imports System
Public Class MainClass

Shared Sub Main()
Dim i As Integer = 5
Console.WriteLine("The value of i is: {0}", i.ToString( ))
Dim milo As New Dog(62)
Console.WriteLine("My dog Milo weighs {0} pounds", milo.ToString( ))
End Sub
End Class

Public Class Dog
Private weight As Integer
Public Sub New(ByVal weight As Integer)
Me.weight = weight
End Sub "New
Public Overrides Function ToString( ) As String
Return weight.ToString( )
End Function "ToString
End Class "Dog

</source>

==Override ToString function==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim point As Point
point = New Point(72, 115) " instantiate Point object
" display point coordinates via X and Y properties
Console.WriteLine( "X coordinate is " & point.X & _
vbCrLf & "Y coordinate is " & point.Y )
point.X = 10 " set x-coordinate via X property
point.Y = 10 " set y-coordinate via Y property
" display new point value
Console.WriteLine("The new location of point is " & point.ToString() )
End Sub
End Class
" Point class represents an x-y coordinate pair.
Public Class Point
" implicitly Inherits Object
Private mX, mY As Integer
Public Sub New()
" implicit call to Object constructor occurs here
X = 0
Y = 0
End Sub " New
" constructor
Public Sub New(ByVal xValue As Integer,ByVal yValue As Integer)
" implicit call to Object constructor occurs here
X = xValue
Y = yValue
End Sub " New
" property X
Public Property X() As Integer
Get
Return mX
End Get
Set(ByVal xValue As Integer)
mX = xValue " no need for validation
End Set
End Property " X
" property Y
Public Property Y() As Integer
Get
Return mY
End Get
Set(ByVal yValue As Integer)
mY = yValue " no need for validation
End Set
End Property " Y
" return String representation of Point
Public Overrides Function ToString() As String
Return "[" & mX & ", " & mY & "]"
End Function " ToString
End Class

</source>

==Override ToString Method to provide meaningful information==

<source lang="vbnet">
Imports System
Imports System.IO

Public Class MainClass
Shared Sub Main()
Dim e As New Employee("Joe", 10000)
Console.WriteLine(e.TheName & " salary is " & e.Salary)

Console.WriteLine(e)
End Sub
Public Class Employee
Private m_Name As String
Private m_Salary As Decimal
Public Sub New(ByVal sName As String, ByVal curSalary As Decimal)
If sName = String.Empty Then
Console.WriteLine("no names")
Else
m_Name = sName
End If
End Sub
Public Property TheName() As String
Get
Return m_Name
End Get
Set(ByVal Value As String)
m_Name = Value
End Set
End Property
Public ReadOnly Property Salary() As Decimal
Get
Return m_Salary
End Get
End Property

Public Overrides Function ToString() As String
Return (m_Name & " " & Me.GetType.ToString)
End Function
End Class
End Class

</source>

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

VB.Net/Class/ToString - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия