如何从物体打印?

时间:2016-05-10 16:48:25

标签: vb.net visual-studio

我在编写程序时遇到问题。我创建了一个包含代码的类,我希望能够使用该类来打印数组。我在下面提交了我的代码。希望你们都能帮我解决。

Option Strict On
Imports System.IO
Imports FinalLIB

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim fsrFile As StreamReader = New StreamReader("Cars.csv")
    Dim line, splitLine(1) As String
    Dim bestCars(14) As Cars
    Dim counter As Integer

    Do Until fsrFile.EndOfStream
        line = fsrFile.ReadLine
        splitLine = Split(line, ",")
        bestCars(counter) = New Cars(splitLine(0), (splitLine(1)), (splitLine(2)), (splitLine(3)))
        counter += 1
    Loop
    Dim strCarMake, strCarModel, intyear, strColorc As Cars
    Console.WriteLine(bestCars(3))
End Sub

这是我的图书馆创建的代码。

Option Strict On
Public Class Cars

Private strCarMake As String
Private strCarModel As String
Private intYear As String
Private strColor As String

Public Sub New(ByVal bvstrCarMake As String, ByVal bvstrCarModel As String, ByVal bvintYear As String, ByVal bvstrColor As String)
    prpCarMake = bvstrCarMake
    prpYear = CInt(bvintYear)
    prpCarModel = bvstrCarModel
    prpColor = bvstrColor
End Sub

Public Property prpCarMake() As String
    Get
        Return strCarMake
    End Get
    Set(bvstrCarMake As String)
        strCarMake = bvstrCarMake
    End Set
End Property

Public Property prpCarModel() As String
    Get
        Return strCarModel
    End Get
    Set(bvstrCarModel As String)
        strCarModel = bvstrCarModel
    End Set
End Property

Public Property prpYear() As Integer
    Get
        Return CInt(intYear)
    End Get
    Set(bvintYear As Integer)
        intYear = CType(bvintYear, String)
    End Set
End Property

Public Property prpColor() As String
    Get
        Return strColor
    End Get
    Set(bvstrColor As String)
        strColor = bvstrColor
    End Set
End Property

Public ReadOnly Property prpIsOld() As Boolean
    Get
        If prpYear > 2010 Then
            Return True
        Else
            Return False
        End If
    End Get
End Property

'Public ReadOnly Property prpSSN() As String
'Get
'Return strSSN
'End Get
'End Property

Public Function ReturnFullInfo() As String
    Return "Make: " & prpCarMake & " Model: " & prpCarModel & "Year: " & prpYear & "Color: " & prpColor
End Function

End Class

0 个答案:

没有答案