简单问题！！listbox中的sorted属性

[maq2000]

能否使用listbox中的sorted属性对数值排序，我使用他排序时他只判断第一个数值比如10和2比较他认为10小

[maq2000]

zi ding

[maq2000]

zi ding

[xucl]

listbox 的sorted属性只能对字符排序

[捏造的信仰]

应该将元素添加至一个数组Arr1，在数组中排好序：
Array.Sort(Arr1)
然后
Listbox1.DataSource=Arr1

[lxcc]

sorted是对字符排序!要对数值排序,自己作一个排序函数,然后调用!或者实现ICompare接口!

[捏造的信仰]

没用的，我做过试验，即使实现了ICompare接口，ListBox照样按字母排序。

[水如烟]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim M(5) As Test
M(0) = New Test(5)
M(1) = New Test(10)
M(2) = New Test(2)
M(3) = New Test(21)
M(4) = New Test(4)
M(5) = New Test(18)
Array.Sort(M)
Me.ListBox1.DataSource = M
Me.ListBox1.DisplayMember = "M"
End Sub

Public Class Test
Implements IComparable
Private _M As Integer
Sub New(ByVal m As Integer)
Me._M = m
End Sub
Public ReadOnly Property M() As Integer
Get
Return _M
End Get
End Property
Public Function CompareTo(ByVal obj As Object) As Integer Implements System.IComparable.CompareTo
If TypeOf obj Is Test Then
Dim temp As Test = CType(obj, Test)
Return _M.CompareTo(temp._M)
End If
Throw New ArgumentException("object is not a Test!")
End Function
End Class

[水如烟]

注意！
Me.ListBox1.Sorted = False