delphi4arab منتديات دلفي للعرب

نسخة كاملة : عندي كود vb صغير أبي أحوله للديفي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

حاولت كاتبه برنامج على الديلفي بالنظر لسورس كود مكتوب بالـ vb

وقفت عند هذا الكود


كود :
Dim i As Integer Dim iHnd8 As Long If iHnd8 <> IntPtr.Zero Then Dim NicArray() As String = mdlSysListView.GetAllSLVItems(iHnd8) Debug.Print(NicArray.Length.ToString) For i = 0 To NicArray.Length - 1 ListBox1.Items.Add(NicArray(i)) Next ListBox1.Items.Insert(0, "Total # of Nics in room is - " & ListBox1.Items.Count) End If

الرجاء ال****** للي فهمه