Private Sub Command1_Click()
If Option1.Value = True Then
For i = 1 To 10
List1.AddItem Int((80 - 50 + 1) * Rnd + 50)
Next
End If
If Option2.Value = True Then
If Dir("d:\test") = "" Then MkDir "d:\test"
Open "D:\test\test2.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End If
If Option3.Value = True Then
List1.Clear
End If
End Sub
listbox 排序是只读属性，需要提前设置，无法通过代码改变，如果要排序，只能用代码~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024