+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة في استيراد البيانات من الليست بوكس (/showthread.php?tid=51066)
مساعدة في استيراد البيانات من الليست بوكس - fireswored1 - 22-01-25
السلام عليكم ورحمة الله وبركاته
اخوتي الاعزاء
الان يوجد لدي ليست بوكس يوجد به اربع اجابات احتاج كود لاستراد الاجبات من الليست بوكس الي 4 ليبول كل ليبول يكون اجابة من هذا الليست
وجزاكم الله خيرا
RE: مساعدة في استيراد البيانات من الليست بوكس - asmarsou - 22-01-25
و عليكم السلام و رحمة الله و بركاته
اذا كانت الاجابات تأخذ مرتبة كما هي عليه في الليست بوكس فهذا سيفي بالغرض
و احرص على استبدال كلمة تكست بوكس بكلمة ليبل على النحو الذي سردته في نص سؤالك
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 1 To 4
Me.Controls(String.Format("TextBox{0}", i)).Text = ListBox1.Items(i - 1).ToString
Next
End SubRE: مساعدة في استيراد البيانات من الليست بوكس - fireswored1 - 22-01-25
مشكور اخي الكريم ولكن لم يعمل الكود مرفق صورة الخطاء
RE: مساعدة في استيراد البيانات من الليست بوكس - asmarsou - 22-01-25
هذا النموذج مجرب و يعمل كما سبق و ان ذكرت لك
RE: مساعدة في استيراد البيانات من الليست بوكس - fireswored1 - 22-01-25
جزاك الله خيرا اخي الكريم اشتغل كدا