منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل من طريق لتحويل بعض الاكواد من vb6 الي vb.net

Dim I As Integer

If List1.Selected(Item) = True Then

If zList1.Count <= 0 Then

zList1.Add List1.List(Item)

Else

For I = 1 To zList1.Count
If Trim$(List1.List(Item)) = Trim$(zList1.Item(I)) Then GoTo COMETOHERE
Next

zList1.Add List1.List(Item)

End If

Else

If zList1.Count <= 0 Then GoTo COMETOHERE

If zList1.Count = 1 Then zList1.Remove 1: GoTo COMETOHERE

For I = 1 To zList1.Count
If Trim$(List1.List(Item)) = Trim$(zList1.Item(I)) Then zList1.Remove I: GoTo COMETOHERE
Next

End If

COMETOHERE:

List3.Clear

If zList1.Count > 0 Then
For I = 1 To zList1.Count
List3.AddItem Trim$(zList1.Item(I))
Next
End If

If zList2.Count > 0 Then
For I = 1 To zList2.Count
List3.AddItem Trim$(zList2.Item(I))
Next
End If

؟؟؟؟؟؟؟؟؟؟؟؟

الاختلاف شبه بسيط

ماذا تريد من الكود ان يفعل؟
وماهي الاداة المستخدمه في .Net

البرنامج يقوم علي جمع بيانات list1 وال list2 داخل list3 بحيث تكون القيم الاولي من list1 والقيم الثانية من list2  من حيث الترتيب