المشاركات : 208
المواضيع 51
الإنتساب : Nov 2013
السمعة :
0
الشكر: 144
تم شكره 101 مرات في 32 مشاركات
هل من طريق لتحويل بعض الاكواد من vb6 الي vb.net
المشاركات : 208
المواضيع 51
الإنتساب : Nov 2013
السمعة :
0
الشكر: 144
تم شكره 101 مرات في 32 مشاركات
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
المشاركات : 446
المواضيع 14
الإنتساب : Nov 2013
السمعة :
68
الشكر: 6336
تم شكره 7035 مرات في 335 مشاركات
ماذا تريد من الكود ان يفعل؟
وماهي الاداة المستخدمه في .Net
المشاركات : 208
المواضيع 51
الإنتساب : Nov 2013
السمعة :
0
الشكر: 144
تم شكره 101 مرات في 32 مشاركات
البرنامج يقوم علي جمع بيانات list1 وال list2 داخل list3 بحيث تكون القيم الاولي من list1 والقيم الثانية من list2 من حيث الترتيب