error

[probit]

سلام
من یه برنامه نوشتم که یک error میده cast from type 'listValue' to type 'string' is not valid
نمونه برنامه را اینجا می گذارم اگه کسی میتوته مشکل این error را حل کنه

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Dim cus1 As New ArrayList
cus1.Add(New ListValue(1, "a"))
cus1.Add(New ListValue(2, "b"))
cus1.Add(New ListValue(3, "c"))
Me.combo.DataSource = cus1
Me.combo.DisplayMember = "display"
Me.combo.ValueMember = "value"
End Sub

Private Sub combo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combo.SelectedIndexChanged
Try
txt.Text = combo.SelectedValue
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Public Class ListValue
Private dblval As Double
Private strdis As String
Public Sub New(ByVal dblv As Double, ByVal strd As String)
MyBase.new()
Me.dblval = dblv
Me.strdis = strd
End Sub
Public ReadOnly Property value() As Double
Get
Return dblval
End Get
End Property
Public ReadOnly Property display() As String
Get
Return strdis
End Get
End Property
Public Overrides Function tostring() As String
Return Me.dblval
End Function

End Class

با تشکر

[asilverisis]

سلام

ترتیب خط های Form_Load رو به صورت زیر عوض کن



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cus1 As New ArrayList
cus1.Add(New ListValue(1, "a"))
cus1.Add(New ListValue(2, "b"))
cus1.Add(New ListValue(3, "c"))

Me.combo.ValueMember = "value"
Me.combo.DisplayMember = "display"
Me.combo.DataSource = cus1

End Sub




موفق باشید

[probit]

مرسی
دیگه error نمی گیره