jonathanp198
Newcomer
- Joined
- Aug 22, 2011
- Sythe Gold
- 0
- Messages
- 7
Class stud
Dim id As String
ReadOnly Property IDNO()
Get
Return id
End Get
End Property
Sub New()
id = "qr78"
End Sub
Sub New(ByVal ids As String)
id = ids
End Sub
End Class
Module Module1
Sub Main()
Dim obj As New stud
Console.WriteLine("ID No is : " & obj.IDNO)
obj = New stud("sfg34")
Console.WriteLine("ID No is : " & obj.IDNO)
End Sub
End Module
Job Openings
Dim id As String
ReadOnly Property IDNO()
Get
Return id
End Get
End Property
Sub New()
id = "qr78"
End Sub
Sub New(ByVal ids As String)
id = ids
End Sub
End Class
Module Module1
Sub Main()
Dim obj As New stud
Console.WriteLine("ID No is : " & obj.IDNO)
obj = New stud("sfg34")
Console.WriteLine("ID No is : " & obj.IDNO)
End Sub
End Module
Job Openings

