تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل كود
#1
الاخوة الكرام .
السلام عليكم ورحمة الله وبركاته .

امل التكرم في مساعدتي في تحويل الكود الحالي من الدتا جريد فيو العادية  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
          

 اريده بنفس التنسيق من يستطيع مساعدتي اسال الله ان يفرج همه .
الرد
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
الطريقة سلسة مع 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(senderGridView)

 
       If view.IsDataRow(e.RowHandleThen
            
'تنسيقات للخط
            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 



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل(true/false) الى (accepted/refused) noway 0 861 27-01-17, 03:12 PM
آخر رد: noway

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم