+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : عندي كود vb صغير أبي أحوله للديفي (/showthread.php?tid=5903)
عندي كود vb صغير أبي أحوله للديفي - Abdulrhman-MJ - 01-02-2014
السلام عليكم
حاولت كاتبه برنامج على الديلفي بالنظر لسورس كود مكتوب بالـ 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الرجاء ال****** للي فهمه