سؤال على اليست

[malk]

سؤال موضح داخل مشروع وهو كيف اقوم بقلب النص داخل الليست
السؤال موضح اكثر داخل المشروع

[vb6 student]

السلام عليكم با أخ malk :)
أنا اسف لاني مستعجل فكتبت هالطريقة بس معليش مالها بطالة
Dim x() As String
Dim nu As Integer
nu = List1.ListCount
ReDim x(nu) As String
For i = 0 To nu - 1
x(i) = List1.List(i)
x(i) = StrReverse(x(i))
Next
List1.Clear
For i = 0 To nu - 1
List1.AddItem x(i)
Next
وهون ما في داعي لتكتبها منجديد لتعكس السلسلة لأنها رح تنعكس لحالها لما تضغط مرة تانية :)

[malk]

الف الف شكر اخى الكريم

[جهاد العريقي]

Public Function ReverseString(str As String)
Dim intX As Integer

For intX = Len(str) To 1 Step -1
ReverseString = ReverseString & Mid(str,intX,1)
Next intX

End Function

ولا تنسونا من خالص الدعاء