[kafi2030]

بسم الله الرحمن الرحيم

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


مااسم الخاصية التي تتحكم بتحديد ارتفاع الاسطر في الداتا جريد فيو ؟


( هل صحيح انه لا توجد خاصية تتحكم بارتفاع الاسطر في الداتا جريد فيو، وان الارتفاع هو ضمني تم تعييره على قيمة 13)

[sooriaty03]

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

تفضل أخي هذا الكود لكي تجعل ارتفاع الصف الأول يساوي 30

كود :

DataGridView1.Rows.Item(0).Height = 30

بالتوفيق

[kafi2030]

شكرا اخي
sooriaty
 على اجابتك


الكود الذي تفضلت به حضرتك، لم ينجح معي في تغيير ارتفاع صفوف الداتا جريد فيو على الاطلاق، ولا حتى تغيير ارتفاع قيمة الصف الاول، رغم انني وضعت قيم كبيرة، 200 حتى الاحظ الفرق ولكن دون جدوى
علما ان الكود الخاص بي هو

كود :

Sub DataGrid_set()
        On Error Resume Next

        Dim xDB As New DB.Data_Kafi
        Dim beda = From d In xDB.Fixed_Bedas
                   Select d

        Dim bsn As New BindingSource()
        bsn.DataSource = beda

        DGV.AutoGenerateColumns = False

        With Motasalsel_Column
            .DataPropertyName = "Beda_id"
            .HeaderText = "متسلسل"
            .Width = 0
            .Visible = False
        End With

        With Beda_Name_Column
            .DataPropertyName = "Beda_Name"
            .HeaderText = "اســـم المــــــادة"
            .Width = 200
            .Visible = True
        End With

        With Shra_Column
            .DataPropertyName = "Shra_Price"
            .HeaderText = "سعر الشراء"
            .Width = 90
            .Visible = True
        End With

        With Mabie_Column
            .DataPropertyName = "Mabee_Price"
            .HeaderText = "سعر المبيع"
            .Width = 90
            .Visible = True
        End With


        With Rabeh_Column
            .DataPropertyName = "Rabeh"
            .HeaderText = "ربــح المــادة"
            .Width = 90
            .Visible = True
        End With

        With Note_Column
            .DataPropertyName = "Beda_Note"
            .HeaderText = "ملاحظــــــات"
            .Width = 392
            .Visible = True
        End With

        With DGV
            .DataSource = bsn
            .ReadOnly = True
            .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .ShowRowErrors = False
            '  .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .ShowCellErrors = False
            .AllowUserToAddRows = False                                                 'Disabled or hide (*) Symbol...
            .AllowUserToResizeColumns = False                                           'Disable HearderText Resize Column...
            '   .AllowUserToResizeRows = False                                               'Disabled  row resize...
            .RowHeadersVisible = True                                                  'To hide Left indicator...
            .DefaultCellStyle.SelectionBackColor = Color.SteelBlue                      'Selection backcolor....
            .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen               'Alternating Backcolor
            .Columns.AddRange(New DataGridViewColumn() {Motasalsel_Column, Beda_Name_Column, Shra_Column, Mabie_Column, Rabeh_Column, Note_Column})
        End With
        DGV.Rows.Item(0).Height = 200
    End Sub

[sooriaty03]

(28-09-13, 03:35 PM)kafi2030 كتب : شكرا اخي
sooriaty
 على اجابتك


الكود الذي تفضلت به حضرتك، لم ينجح معي في تغيير ارتفاع صفوف الداتا جريد فيو على الاطلاق، ولا حتى تغيير ارتفاع قيمة الصف الاول، رغم انني وضعت قيم كبيرة، 200 حتى الاحظ الفرق ولكن دون جدوى
علما ان الكود الخاص بي هو

كود :

Sub DataGrid_set()
        On Error Resume Next

        Dim xDB As New DB.Data_Kafi
        Dim beda = From d In xDB.Fixed_Bedas
                   Select d

        Dim bsn As New BindingSource()
        bsn.DataSource = beda

        DGV.AutoGenerateColumns = False

        With Motasalsel_Column
            .DataPropertyName = "Beda_id"
            .HeaderText = "متسلسل"
            .Width = 0
            .Visible = False
        End With

        With Beda_Name_Column
            .DataPropertyName = "Beda_Name"
            .HeaderText = "اســـم المــــــادة"
            .Width = 200
            .Visible = True
        End With

        With Shra_Column
            .DataPropertyName = "Shra_Price"
            .HeaderText = "سعر الشراء"
            .Width = 90
            .Visible = True
        End With

        With Mabie_Column
            .DataPropertyName = "Mabee_Price"
            .HeaderText = "سعر المبيع"
            .Width = 90
            .Visible = True
        End With


        With Rabeh_Column
            .DataPropertyName = "Rabeh"
            .HeaderText = "ربــح المــادة"
            .Width = 90
            .Visible = True
        End With

        With Note_Column
            .DataPropertyName = "Beda_Note"
            .HeaderText = "ملاحظــــــات"
            .Width = 392
            .Visible = True
        End With

        With DGV
            .DataSource = bsn
            .ReadOnly = True
            .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .ShowRowErrors = False
            '  .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
            .ShowCellErrors = False
            .AllowUserToAddRows = False                                                 'Disabled or hide (*) Symbol...
            .AllowUserToResizeColumns = False                                           'Disable HearderText Resize Column...
            '   .AllowUserToResizeRows = False                                               'Disabled  row resize...
            .RowHeadersVisible = True                                                  'To hide Left indicator...
            .DefaultCellStyle.SelectionBackColor = Color.SteelBlue                      'Selection backcolor....
            .AlternatingRowsDefaultCellStyle.BackColor = Color.LightGreen               'Alternating Backcolor
            .Columns.AddRange(New DataGridViewColumn() {Motasalsel_Column, Beda_Name_Column, Shra_Column, Mabie_Column, Rabeh_Column, Note_Column})
        End With
        DGV.Rows.Item(0).Height = 200
    End Sub

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

السبب أنك استخدمت الخاصية التالية

كود :

.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells

قم بتعطيلها وسيعمل الكود السابق

بالتوفيق

[kafi2030]

السلام عليكم

شكر ا اخي Sooriaty
على تواصلك معي

بالحقيقة، قمت بتجميد السطر الذي اشرت اليه حضرتك،
ولكن للاسف لم يتم تغيير ارتفاع الاسطر في الداتا جريد فيو

قمت بارفاق مثال

ارجو التعديل عليه

والف شكر

[Abu Ehab]

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

هــــــــــذا هو الكود :

إقتباس : DGV.RowTemplate.Height = 100

[/align]

وحتى تتأكد أن كلامي سليم :
أليك صورة من نظام XCars :

---

للعلم :
أول مرة بقوم برفع صورة من الأنظمه الخاصه بي ...

[kafi2030]

الف الف شكر
اخي Abu Ehab

على اجابتك، فقد كنت بحاجة ماسة اليها

بارك الله فيك

[Abu Ehab]

[color=#0000CD][size=large][font=Times New Roman]
'
طيب تمام الحمد لله ...
نصيحة :

الشاشة هذة أعملها بشكل TreeView

[nmst70]

وهذا الكود اخي العزيز يحل المسألة قطعيا




Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

For I As Integer = 0 To DataGridView1.RowCount - 1
DataGridView1.Rows(I).Height = 3
Next



End Sub

[kafi2030]

شكرا اخي
nmst70

على محاولتك الاجابة على سؤالي

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

وقد احببت ان انوه على ذلك لاخذ العلم

---

السلام عليكم

إقتباس :نصيحة :

الشاشة هذة أعملها بشكل TreeView

الف شكر اخي ابو ايهاب على نصائحك الغالية، والتي دائما احس انها صادرة من قلب اخ يريد مساعدة اخوانه بالمنتدى
بارك الله فيك