probit
جمعه 01 مهر 1384, 12:54 عصر
سلام
من یه برنامه نوشتم که یک 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
با تشکر
من یه برنامه نوشتم که یک 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
با تشکر