نقل قول:
Private Sub CmdSort_Click(Index As Integer)
Dim i As Integer, i2 As Integer, Hold$
Select Case Index
Case 0
For i = 0 To LstNumbers.ListCount - 1
For i2 = 0 To LstNumbers.ListCount - 1
If i <> i2 Then
ValPer1 = Val(LstNumbers.List(i))
ValPer2 = Val(LstNumbers.List(i2))
If ValPer1 < ValPer2 Then
Hold = LstNumbers.List(i)
LstNumbers.List(i) = LstNumbers.List(i2)
LstNumbers.List(i2) = Hold
End If
End If
Next
Next
Case 1
For i = 0 To LstNumbers.ListCount - 1
For i2 = 0 To LstNumbers.ListCount - 1
If i <> i2 Then
ValPer1 = Val(LstNumbers.List(i))
ValPer2 = Val(LstNumbers.List(i2))
If ValPer1 > ValPer2 Then
Hold = LstNumbers.List(i)
LstNumbers.List(i) = LstNumbers.List(i2)
LstNumbers.List(i2) = Hold
End If
End If
Next
Next
End Select
End Sub
اینو می گفتم که برام توضیح بدین می دونم سادست ولی خب من یه کم مشکل دارم. در ضمن من نمی دونم وضعیت اضافه شدن پست ها در پی سی چطوریه من فعالیتم بد نبوده البته درسته من یه مدت نبودم ولی خب حداقل فکر می کنم بالای 50 پست تا حالا زده باشم .
یه سوال دیگه : وقتی عدد 045 رو به برنامه میدیم مقدار رو درست sort می کنه ولی می خوام عدد رو مثلا به 45 ویرایش کنه و صفر اضافی رو برداره . لطفا راهنماییم کنید.
ممنون
در مورد اینکه زمانی که 045 رو وارد میکنی 45 رو اضافه کنه میتونی از کد زیر استفاده کنی
کد:
Private Sub Command1_Click()
List1.AddItem Val(Text1.Text)
End Sub
من نمیتونم این رو برات توضیح بدم چون خودم ننوشتم و فقط کپی کردم
و حوصله تجزیه کردنش رو ندارم اگر یکی دیگه این زحمت رو برات بکشه ممنون میشم
