منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
list of string to listview - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : list of string to listview (/showthread.php?tid=17336)



list of string to listview - Mohamed20 - 17-09-16

اريض اضافة items و subitems الى اداه listview هذه items فى list of string  على هذا الشكل

كود :
Dim Name As String() = {"test", "test1", "test2"}
و مصفوفة اخرى على هذا الشكل 
كود :
       Dim No As String() = {"5", "10", "20"}

اريد الناتج يتلع فى listview هكذه 
item
subitem
item
subitem
 
كود :
       Dim Name As String() = {"test", "test1", "test2"}
       Dim No As String() = {"5", "10", "20"}
       For Each z In Name
           For Each x In No
               Listview1.Items.Add(z).SubItems.Add(x)
           Next
           Exit For
       Next
المشكلة انه يضيف اول items فقط مع تكرار هذه item مع subitems كما فى الصوره اذا تم ازالة Exit For ثوف يتم تكرار جميع items مع subitems الذى اريدة ان يمكن على هذا الشكل
test
5
test1
10
test2
20


RE: list of string to listview - أبو عمر - 17-09-16

بص الكود ما فيهوش مشاكل يا كابتن كل اللي اللي عليك تضبط طريقة عرض الليست زي كده
PHP كود :
ListView1.View View.Details
        ListView1
.Columns.Add("Name")
        
ListView1.Columns.Add("Mark")
        
ListView1.GridLines True
        Dim Name 
As String() = {"test""test1""test2"}
        
Dim No As Integer() = {"5""10""20"}
        For 
Each z In Name
            
For Each x In No
                ListView1
.Items.Add(z).SubItems.Add(x)
            
Next
            
Exit For
        
Next 
يللاه ربنا يوفقك ولو كلامي مش اللي عايزه
انساني وقطع عنواني يا كابتن


RE: list of string to listview - Mohamed20 - 17-09-16

(17-09-16, 06:59 AM)أبو عمر كتب : بص الكود ما فيهوش مشاكل يا كابتن كل اللي اللي عليك تضبط طريقة عرض الليست زي كده
PHP كود :
       ListView1.View View.Details
        ListView1
.Columns.Add("Name")
 
       ListView1.Columns.Add("Mark")
 
       ListView1.GridLines True
        Dim Name 
As String() = {"test""test1""test2"}
 
       Dim No As Integer() = {"5""10""20"}
 
       For Each z In Name
            For Each x In No
                ListView1
.Items.Add(z).SubItems.Add(x)
 
           Next
            Exit 
For
 
       Next 
يللاه ربنا يوفقك ولو كلامي مش اللي عايزه
انساني وقطع عنواني يا كابتن

شكرآ لاكن المشكلة انى اريد العرض View.Tile و ليس Details