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

السلام عليكم
تعلمت منكم زملائى الأعزاء كيف يمكن اضافة Button داخل الجريد
و سؤالى الآن أكرمكم الله
كيف يمكن اضافة مربع نص TextBox داخل الجريد
كيف يمكن اضافة مربع النص ذاته داخل الجريد و يكون هناك امكانية فة الكتابة داخله ؟

(06-09-22, 06:17 AM)dr.programming كتب : [ -> ]السلام عليكم
تعلمت منكم زملائى الأعزاء كيف يمكن اضافة Button داخل الجريد
و سؤالى الآن أكرمكم الله
كيف يمكن اضافة مربع نص TextBox داخل الجريد
كيف يمكن اضافة مربع النص ذاته داخل الجريد و يكون هناك امكانية فة الكتابة داخله ؟

و عليكم السلام
فيه عمود وفيه حقل
هل العمود موجود وتريد اضافة حقل؟

هذا مثال بسيط

PHP كود :
Public Class Form1
    Private Function dgvcount() As Integer
        Return dgv.ColumnCount
    End Function
    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
        If dgvcount() > 0 Then
            Dim i As Integer = Val(txtindex.Text)
            Dim tn As String = txtname.Text
            dgv.Columns(i).HeaderText = tn
            dgv.Columns(i).ReadOnly = False
        Else
            MsgBox("Add One Column By Clicking on button with text'+'")
        End If
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        dgv.ColumnCount += 1
    End Sub
End Class 

(06-09-22, 08:52 AM)سعود كتب : [ -> ]
(06-09-22, 06:17 AM)dr.programming كتب : [ -> ]السلام عليكم
تعلمت منكم زملائى الأعزاء كيف يمكن اضافة Button داخل الجريد
و سؤالى الآن أكرمكم الله
كيف يمكن اضافة مربع نص TextBox داخل الجريد
كيف يمكن اضافة مربع النص ذاته داخل الجريد و يكون هناك امكانية فة الكتابة داخله ؟

و عليكم السلام
فيه عمود وفيه حقل
هل العمود موجود وتريد اضافة حقل؟

هذا مثال بسيط

PHP كود :
Public Class Form1 Private Function dgvcount() As Integer Return dgv.ColumnCount End Function Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click If dgvcount() > 0 Then Dim i As Integer = Val(txtindex.Text) Dim tn As String = txtname.Text dgv.Columns(i).HeaderText = tn dgv.Columns(i).ReadOnly = False Else MsgBox("Add One Column By Clicking on button with text'+'") End If End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click dgv.ColumnCount += 1 End Sub End Class

السلام عليكم
بارك الله فيك أخى و أستاذنا الفاضل سعود
الفكرة أن لدي جريد و أريد ان يضاف فى كل سطر بها مربع نص أستطيع الكتابة داخله
و غالبا اذا كان ردى صحيح يصبح الموضوع اضافة عمود بالجريد و بكل row به مربع نص يمكن الكتابة داخله

اذا اضفت عمود من دون تحديد اي شيء افتراضيا يتم اعتباره TextBox و ايضا يمكن الكتابة فيه.
هذا حسب اصدار 2022 اللي عندي.
اذا اردت انواع اخرى فنعم تحتاج تخصيصها وكتابة نوعها بالكود.
هل جربت الكود اللي كتبت بمشاركتي السابقة؟