[superwoofer]

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

[superwoofer]

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

[superwoofer]

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

[سعود]

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

PHP كود :

Listbox1.items.add("") 


[HASAN6.0]

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

[superwoofer]

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