+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل اكواد (/showthread.php?tid=14393)
تحويل اكواد - superwoofer - 14-01-16
هل من طريق لتحويل بعض الاكواد من vb6 الي vb.net
RE: تحويل اكواد - superwoofer - 15-01-16
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
RE: تحويل اكواد - superwoofer - 15-01-16
؟؟؟؟؟؟؟؟؟؟؟؟
RE: تحويل اكواد - سعود - 15-01-16
الاختلاف شبه بسيط
PHP كود :
Listbox1.items.add("")
RE: تحويل اكواد - HASAN6.0 - 15-01-16
ماذا تريد من الكود ان يفعل؟
وماهي الاداة المستخدمه في .Net
RE: تحويل اكواد - superwoofer - 18-01-16
البرنامج يقوم علي جمع بيانات list1 وال list2 داخل list3 بحيث تكون القيم الاولي من list1 والقيم الثانية من list2 من حيث الترتيب