بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
مااسم الخاصية التي تتحكم بتحديد ارتفاع الاسطر في الداتا جريد فيو ؟
( هل صحيح انه لا توجد خاصية تتحكم بارتفاع الاسطر في الداتا جريد فيو، وان الارتفاع هو ضمني تم تعييره على قيمة 13)
السلام عليكم ورحمة الله وبركاته
تفضل أخي هذا الكود لكي تجعل ارتفاع الصف الأول يساوي 30
كود :
DataGridView1.Rows.Item(0).Height = 30
بالتوفيق
شكرا اخي
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
(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
قم بتعطيلها وسيعمل الكود السابق
بالتوفيق
السلام عليكم
شكر ا اخي Sooriaty
على تواصلك معي
بالحقيقة، قمت بتجميد السطر الذي اشرت اليه حضرتك،
ولكن للاسف لم يتم تغيير ارتفاع الاسطر في الداتا جريد فيو
قمت بارفاق مثال
ارجو التعديل عليه
والف شكر
السلام عليكم ورحمة الله وبركاته
هــــــــــذا هو الكود :
إقتباس : DGV.RowTemplate.Height = 100
[/align]
وحتى تتأكد أن كلامي سليم :
أليك صورة من نظام XCars :
للعلم :
أول مرة بقوم برفع صورة من الأنظمه الخاصه بي ...
الف الف شكر
اخي Abu Ehab
على اجابتك، فقد كنت بحاجة ماسة اليها
بارك الله فيك
[color=#0000CD][size=large][font=Times New Roman]
'
طيب تمام الحمد لله ...
نصيحة :
الشاشة هذة أعملها بشكل TreeView
وهذا الكود اخي العزيز يحل المسألة قطعيا
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
شكرا اخي
nmst70
على محاولتك الاجابة على سؤالي
تم تجربة الطرح الذي تفضلت به حضرتك
ولكن للاسف لم ينجح بتعديل ارتفاع اسطر الداتا جريد
وقد احببت ان انوه على ذلك لاخذ العلم
السلام عليكم
إقتباس :نصيحة :
الشاشة هذة أعملها بشكل TreeView
الف شكر اخي ابو ايهاب على نصائحك الغالية، والتي دائما احس انها صادرة من قلب اخ يريد مساعدة اخوانه بالمنتدى
بارك الله فيك