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

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

مشكلة بسيطة في نقل جميع المعلومات من ليست فيو الى تكست بوكس

هذا هو الكود ... لكنه ينقل ID واحد فقط الذي احدده في الليست فيو وانا اريد نقل الكل ID مره واحد وهذا الكود ينقل ID واحد فقط

كود :
ID = ListView1.FocusedItem.SubItems(0).Text
        TextBox1.Text = ListView1.FocusedItem.SubItems(1).Text
        TextBox2.Text = ListView1.FocusedItem.SubItems(3).Text
السلام عليكم ورحمة الله وبركاته

إن شاء الله يكون هذا المقصود
كود :
private sub listview1_selectedindexchanged(byval sender as system.object, byval e as system.eventargs) handles listview1.selectedindexchanged
    try

        me.textbox1.text = me.listview1.selecteditems(0).text
        me.textbox2.text = me.listview1.selecteditems.item(0).subitems(1).text
        me.textbox3.text = me.listview1.selecteditems.item(0).subitems(2).text

    catch ex as exception
    end try
end sub

السلام عليكم ورحمة الله وبركاته
@@أبورائد@@ كتب :السلام عليكم ورحمة الله وبركاته

إن شاء الله يكون هذا المقصود
كود :
private sub listview1_selectedindexchanged(byval sender as system.object, byval e as system.eventargs) handles listview1.selectedindexchanged
    try

        me.textbox1.text = me.listview1.selecteditems(0).text
        me.textbox2.text = me.listview1.selecteditems.item(0).subitems(1).text
        me.textbox3.text = me.listview1.selecteditems.item(0).subitems(2).text

    catch ex as exception
    end try
end sub

السلام عليكم ورحمة الله وبركاته


لا أخي ليس هذا ما اقصده .. ما اقصده هو ان هذا الكود ينقل id واحد من الليست فيو وانا اريدد ان ينقل كل الايديهات الموجوده
السلام عليكم ورحمة الله وبركاته


ولكن التكست بوكس سطر واحد فكيف تريد ذلك؟ أم أنك تقصد ليست بوكس

هذه محاولة فهم ما تريد
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    For Each itm As ListViewItem In Me.ListView1.Items

        Me.TextBox1.Text &= ", " & (itm.Text)

    Next

    Me.TextBox1.Text = Me.TextBox1.Text.Substring(2)

End Sub

السلام عليكم ورحمة الله وبركاته
لا ليس مثل كذا جزاك الله خير ,,,. اخي المقصود انه الان انت تملك ليست فيو ويوجد به اسماء فأريد كل الأسماء تنقل عند ضغطة زر الى ادوات التكست بوك كل اسم في تكست بوكس .. وهذا الكود ...

كود :
ID = ListView1.FocusedItem.SubItems(0).Text
        TextBox1.Text = ListView1.FocusedItem.SubItems(1).Text
        TextBox2.Text = ListView1.FocusedItem.SubItems(3).Text

لكنه لا ينقل الا واحد الي احدده في الليست فيو .. انا اريد انه يقوم بنقل اللكل مرة واحده

اشكرك على تعاونك معي
هل من رد ؟؟
السلام عليكم ورحمة الله وبركاته

ممكن صورة للفورم عشان استوعب ما تريد،،

لأن اللي اعرفه ان يتم تحديد سطر واحد فقط من ListView وتوزيع الأعمدة اللي في السطر على عدة TextBox.

السلام عليكم ورحمة الله وبركاته
هل اليست فيو لها اكثر من عمود ؟
شوفوا الصورة .. مع الشرح
http://im25.gulfup.com/7ZNn1.png
السلام عليكم ورحمة الله وبركاته

لا أرى تكست بوكس في الصورة.

ثم لم تريد وضعها في تكست بوكس فقط من أجل الطباعة، بينما يمكنك استخدام الطباعة بدون التكست بوكس!

السلام عليكم ورحمة الله وبركاته
الصفحات : 1 2