منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال بسيط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=36080)



سؤال بسيط - منه - 11-08-20

السلام عليكم ورحمه الله وبركاته
سؤال بسيط هو اني عندي comboboxبه ٥ بنود السؤال اني اريد اشهار رساله بكل البنود بداخله شراء ب فور أو اي كود اخر


RE: سؤال بسيط - عبد الهادي بهاب - 11-08-20

(11-08-20, 08:33 PM)منه كتب : السلام عليكم ورحمه الله وبركاته
سؤال بسيط هو اني عندي comboboxبه ٥ بنود السؤال اني اريد اشهار رساله بكل البنود بداخله شراء ب فور أو اي كود اخر

ممكن بفيدك هذا الكود
ضع زر فيه التالي :

PHP كود :
  Dim txt As String ""
 
       For Each item As String In ComboBox1.Items
            txt 
txt item vbNewLine
        Next
        MessageBox
.Show(txt



RE: سؤال بسيط - منه - 20-08-20

طيب بعد ازنك ممكن كود لتنفيذ هذا في الجريد كنترول الخاصة بمجموعة الديف اكسبريس


RE: سؤال بسيط - عبد الهادي بهاب - 20-08-20

(20-08-20, 07:53 AM)منه كتب : طيب بعد ازنك ممكن كود لتنفيذ هذا في الجريد كنترول الخاصة بمجموعة الديف اكسبريس

محاولة  نفترض ان لدينا كومبوكس و عنصر غريدفيو و زر

ضع نصوص او ارقام في الكومبوكس

الان سنعلن في glabal عن جدول datatable  لوضع فيه بيانات الكومبوكس

PHP كود :
  Dim tbl As New DataTable("Table"

 الان في الزر نزرع التالي

PHP كود :
tbl.Columns.Add("N°"Type.GetType("System.Int32"))
 
       tbl.Columns.Add("txt"Type.GetType("System.String"))

 
       For i 0 To ComboBox1.Items.Count 1
            tbl
.Rows.Add(iComboBox1.Items(i))

 
       Next

        DataGridView1
.DataSource tbl