منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريض اضافة 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

بص الكود ما فيهوش مشاكل يا كابتن كل اللي اللي عليك تضبط طريقة عرض الليست زي كده

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 

يللاه ربنا يوفقك ولو كلامي مش اللي عايزه
انساني وقطع عنواني يا كابتن

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mohamed20

أبو عمر

Mohamed20