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

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

امل التكرم في مساعدتي في تحويل الكود الحالي من الدتا جريد فيو العادية DataGridView1 الى DevExpress GridControl1 GridView1

REM ----------------------------------------------------

For Each R As DataGridViewRow In DataGridView1.Rows
R.HeaderCell.Value = (R.Index + 1).ToString
Next
DataGridView1.Rows.Add()

DataGridView1.Item(0, DGV.Rows.Count - 1).Value = TextBox1.Text
DataGridView1.Item(1, DGV.Rows.Count - 1).Value = TextBox2.Text
DataGridView1.Item(2, DGV.Rows.Count - 1).Value = TextBox3.Text

اريده بنفس التنسيق من يستطيع مساعدتي اسال الله ان يفرج همه .

السلام عليكم و رحمة الله و بركاته
الطريقة سلسة مع DX
اولاً ترقيم الاسطر :

ضع هذا الكود في بداية النموذج لتوسيع مساحة Header لنتمكن من رؤية الارقام

PHP كود :

GridView1.IndicatorWidth = 40 

يوجد اكثر من طريقة , كما يمكنك التحكم بخصائص الخط من اللون و الحجم و غيرها , و يمكنك وضع صور , و اخفاء و اظهار المؤشر

PHP كود :

   'ترقيم الاسطر
    Private Sub GridView1_CustomDrawRowIndicator(sender As Object, e As RowIndicatorCustomDrawEventArgs) Handles GridView1.CustomDrawRowIndicator
        If e.RowHandle >= 0 Then
            e.Info.DisplayText = e.RowHandle + 1
        End If

        'طريقة ثانية
        Dim view As GridView = TryCast(sender, GridView)

        If view.IsDataRow(e.RowHandle) Then
            'تنسيقات للخط
            e.Info.Appearance.Font = New Font("Arial", 10, FontStyle.Bold)
            e.Info.Appearance.Options.UseFont = True
            e.Info.Appearance.Options.UseFont = True
            e.Info.Appearance.TextOptions.RightToLeft = True
            e.Info.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
            e.Info.Appearance.ForeColor = Color.Red

            e.Info.DisplayText = (view.GetVisibleIndex(e.RowHandle) + 1).ToString()
            e.Info.ImageIndex = -1
        End If

    End Sub 

ثانياً:اضافة اسطر

PHP كود :

   'اضافة سطر جديد
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GridView1.AddNewRow()
        GridView1.SetRowCellValue(GridView1.FocusedRowHandle, GridView1.Columns(0), TextBox1.Text)
        GridView1.SetRowCellValue(GridView1.FocusedRowHandle, GridView1.Columns(1), TextBox2.Text)
        GridView1.SetRowCellValue(GridView1.FocusedRowHandle, GridView1.Columns(2), TextBox3.Text)
    End Sub 

بالتوفيق ان شاء الله

الف الف الف شكر يا أستاذ المحترم أبو ليلي.
على ردك واهتمامك .
اسال الله تعالي لك التوفيق والرزق الوفير .
جزاك الله خير الجزاء

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

نايف 2006

ابو ليلى

نايف 2006