قواعد المشاركة في المنتدى

(قسم الاعلانات) الموضوع:أفضل مكان لبيع الكتب في الامارات بواسطة: (ياسمين محمد) :: (منتدى الأكسس) الموضوع:فتح نموذج جديد بواسطة: (ragabsayed) :: (قسم الاعلانات) الموضوع:موقع النهضة موقع لبناني عربي شامل بواسطة: (اسامة الاحمر) :: (منتدى الأكسس) الموضوع:لا ستطيح الدخول لكثر من مستخدم بواسطة: (الباشق1) :: (منتدى ADO.NET العام) الموضوع:تصميم ديكور بيتك عندنا ثرى دى علي يد مبدعين مودرن كلاسيك واجهات مجلس مقلط صالون بواسطة: (decoration way) :: (قسم الاعلانات) الموضوع:يونيفورم - احدث تصميمات اليونيفورم -01200561116 - شركة 3A لليونيفورم بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:ايجار وبيع ارواب التخرج بأقل الاسعار -01200561116-شركة 3A لليونيفورم بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:يونيفورم - محل بيع يونيفورم طبى - شركة السلام للملابس الطبية 01102226499 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:كاميرات مراقبة خارجية CONVOY 5MP بواسطة: (safy mohamed) :: (قسم الاعلانات) الموضوع:يونيفورم حضانات - زى اطفال الروضه -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم التطوير والاقتراحات) الموضوع:دورة تحليل الآثار الاقتصادية للمشكلات البيئية بواسطة: (Nermeen metc) :: (قسم الاعلانات) الموضوع:يونيفورم - شركات تصنيع يونيفورم مصانع -شركة السلام لليونيفورم 01118689995 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:دورات تدريبيه بواسطة: (المركز الاقليمي العربي) :: (قسم التطوير والاقتراحات) الموضوع:دورة مهارات التسويق الحديثة للتأمين بواسطة: (Nermeen metc) :: (قسم الاعلانات) الموضوع:دورات تدريبيه بواسطة: (المركز الاقليمي العربي) :: (منتدى ال SQL العام) الموضوع:مركز صيانة ثلاجات كريازى بالاسكندرية بواسطة: (لؤي محمد حمزه) :: (قسم الاعلانات) الموضوع:دورات تدريبيه بواسطة: (المركز الاقليمي العربي) :: (قسم الاعلانات) الموضوع:يونيفورم - زى حراس الامن -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda) :: (قسم الاعلانات) الموضوع:دورة إدارة المفاوضات الامنية الجنائية بواسطة: (الخليج للتدريب) :: (قسم الاعلانات) الموضوع:ارواب تخرج – ارواب محاماه -شركة السلام لليونيفورم 01223182572 بواسطة: (fareda)


راديو القرآن

المواضيع المثبته: (منتدى برمجة الألعاب) الموضوع:اعلان هام بواسطة: (مصطفي البارودي) :: (منتدى الكتب و المقالات) الموضوع:كتب في الاكسس باللغة العربية بواسطة: (ابو حسام) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:المخازن المتطور الاصدار الثانى بواسطة: (alaa gomaa) :: (منتدى مبرمجي ASP) الموضوع:دورة احترافيه لبناء منتدى على asp بواسطة: (عبدالله جابر شقليه) :: (منتدى برمجة الجرافكس) الموضوع:كلمه بخصوص قسم الجرافيك الجديد بواسطة: (alaa gomaa) :: (منتدى البرامج) الموضوع:برنامج القرآن الكريم كاملاً مع التفسير بواسطة: (tarik-2007) :: (قسم التعاميم والشكاوي) الموضوع:هنيئا للشعب المصري بواسطة: (صهيب جاويش) :: (قسم التعاميم والشكاوي) الموضوع:صفحة منتديات المحيط العربي على الفيس بوك بواسطة: (ramies) :: (منتدى الدعم الفني للماسنجر المحيط العربي) الموضوع:اقتراحات تطوير الماسنجر بواسطة: (jbsa) :: (منتدى الكتب الالكترونية) الموضوع:مجموعة كبيرة من السرفرات بواسطة: (يوسف) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:Serial Communication with Csharp بواسطة: (Prof.Mendl) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ADF بواسطة: (وليد القدسي) :: (منتدى الأكسس) الموضوع:مثال يجمع عده افكار به فائده ان شاء الله بواسطة: (startnet) :: (قسم التعاميم والشكاوي) الموضوع:الرتب في المنتدى بواسطة: (عبدالله جابر شقليه) :: (القسم العام) الموضوع:كل موضوع تم شرحه فيديو هنا بواسطة: (startnet) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:بعض ميزات أوركل 10g بواسطة: (وليد القدسي) :: (منتدى Microsoft Visual Basic) الموضوع:حصريا Microsoft Visual Studio 6.0 كاملة بواسطة: (Max Bayne) :: (منتدى ADO.NET العام) الموضوع:الكامل في قواعد البيانات مع VB.net بواسطة: (المهندس عدي) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية عرض المنتديات والأقسام والمواضيع بواسطة: (عبدالله جابر شقليه) :: (قسم التعاميم والشكاوي) الموضوع:ماسنجر المحيط العربي بواسطة: (يوسف جميل جادالله)

عدد الصفحات : 3  1  2  3   > » إضافة رد إضافة موضوع جديد

> درس في عمل Class لاضافة ComboBox في DataGrid,كيفيه اضافة combobox في DataGrid
Bookmark and Share
تقييم الموضوع Label معدل التقيم:0
مشاركةالخميس,12/فر/1428 هـ,02:48 صباحاً
المشاركة #1

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3849
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244



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

درس في عمل Class لاضافة ComboBox في DataGrid
كيف نضيف combobox في DataGrid

VB.Net 2005



كيف يمكن لنا اضافة ComboBox في DataGrid لا يمكن اضافتها الا عن طريق DataGridColumnStyle
ولكن لا يوجد في DataGridColumnStyle تعريف لعامود يكون ComboBox ولهذا السبب نستطيع عمل
كلاس Inherits DataGridColumnStyle

لنبدأ الخطوات

أولا : علينا ان نقوم بعمل Class ل ComboBox لاستخدامه في GridStyle ونسميه كما نرغب
 كود


Imports System.Drawing
Imports System.ComponentModel
Imports System.Security.Permissions

Public Class CustomComboBox
Inherits ComboBox

<SecurityPermissionAttribute( _
SecurityAction.LinkDemand, Flags:=SecurityPermissionFlag.UnmanagedCode)> _
Protected Overrides Function ProcessKeyMessage(ByRef m As Message) As Boolean
' هذه الجملة تجعل جميع الاوامر في ComboBox تعمل.
Return ProcessKeyEventArgs(m)
End Function
End Class


هذا التعريف ComboBox حتى نستطيع استخدام جميع الاوامر والاحداث في ComboBox من داخل اي Class اخر

ثانيا : نقوم بتعريف Class للتغير في خلية DataGrid حتى نستطيع اضافة ComboBox فيها
ونسميه كما نرغب ويكون بنفس الصفحة لل Class في النقطة الاولى
 كود

Public Class DataGridComboBoxColumn
Inherits DataGridColumnStyle

'هنا عرفنا Combo على انه Public لاننا نريد استخدامه في ال Class وفي الفورم الاساسي
'وعرفناه حسب اسم Class الذي قمنا في عملة بالنقطة الاولى

Public customComboBox1 As New CustomComboBox()

Private isEditing As Boolean

'هنا سنضيف الاجراءات والاحداث

End Class


ثالثا : سنضيف Combo الى الخلية على اساس انه Control ونضع هذا الاجراء في Class الذي قمنا
بعملة بالخطوه الثانية

 كود

Protected Overrides Sub SetDataGridInColumn(ByVal value As DataGrid)
MyBase.SetDataGridInColumn(value)
If Not (customComboBox1.Parent Is Nothing) Then
customComboBox1.Parent.Controls.Remove(customComboBox1)
End If
If Not (value Is Nothing) Then
value.Controls.Add(customComboBox1)
End If
End Sub


رابعا: نقوم بوضع حدث لاخفاء Combo الذي قمنا باضافته حتى لا يظهر فوق DataGrid

 كود

Public Sub New()
customComboBox1.Visible = False
End Sub


خامسا : الان سنضع حدث ليقوم بتنفيذه عند استخدام Combo سواء بالضغط علية بالموس
او بالتاب ويقوم بتنفيذ حدث الدخول لل Combo في النقطة السادسة

 كود

Private Sub ComboBoxTextChanged(ByVal sender As Object, ByVal e As EventArgs)

RemoveHandler customComboBox1.SelectionChangeCommitted, AddressOf ComboBoxTextChanged
Me.isEditing = True
MyBase.ColumnStartedEditing(customComboBox1)

End Sub


سادسا : هذا الحدث سيدخل لل Combo واسناد قيمة الخلية في DataGrid اليه وعمل Select لها اذا
لم تكن فارغه

 كود

Protected Overloads Overrides Sub Edit(ByVal [source] As CurrencyManager, _
ByVal rowNum As Integer, _
ByVal bounds As Rectangle, _
ByVal [readOnly] As Boolean, _
ByVal displayText As String, _
ByVal cellIsVisible As Boolean)

'هنا نعمل Function حتى نعرف هل الخلية فارغة ام لا في النقطه السابعة
Dim value As String = GetText(GetColumnValueAtRow([source], rowNum))

If cellIsVisible Then
customComboBox1.Bounds = New Rectangle _
(bounds.X + 2, bounds.Y + 2, bounds.Width - 4, bounds.Height - 4)
customComboBox1.Text = value
customComboBox1.Visible = True
AddHandler customComboBox1.SelectionChangeCommitted, AddressOf ComboBoxTextChanged
Else
customComboBox1.Text = value
customComboBox1.Visible = False
End If

If customComboBox1.Visible Then
DataGridTableStyle.DataGrid.Invalidate(bounds)
End If
customComboBox1.SelectedIndex = customComboBox1.FindStringExact(value)
customComboBox1.Text = value
customComboBox1.Focus()
End Sub


سابعا : عمل Function حتى لا نسند قيمه Null
 كود


Private Function GetText(ByVal val As Object) As String
If Not IsDBNull(val) Then
Return val.ToString()
Else
Return String.Empty
End If
End Function


ثامنا : سنقوم بعمل عدة Function سنستخدمهم في النقاط التالية وهي لتحديد حجم الخلية المناسب حسب
حجم ال Combo ولاعادة رسم الخليه بعد اخفاء ال Combo
 كود

' هنا نحدد حجم الكمبو المناسب
Protected Overrides Function GetPreferredSize(ByVal g As Graphics, ByVal value As Object) As Size
Return New Size(100, customComboBox1.PreferredHeight + 4)
End Function
' هنا نحدد اقل ارتفاع للكمبو
Protected Overrides Function GetMinimumHeight() As Integer
Return customComboBox1.PreferredHeight + 4
End Function
' هنا نحدد ارتفاع الكمبو المناسب
Protected Overrides Function GetPreferredHeight(ByVal g As Graphics, ByVal value As Object) As Integer
Return customComboBox1.PreferredHeight + 4
End Function
' هنا لرسم الخليه في DataGrid
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, _
ByVal [source] As CurrencyManager, ByVal rowNum As Integer)

Paint(g, bounds, [source], rowNum, False)
End Sub
' هنا لرسم الخليه في DataGrid وهو نفس السابق فقط حددنا اضفنا متغيرات اخرى
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, _
ByVal bounds As Rectangle, ByVal [source] As CurrencyManager, _
ByVal rowNum As Integer, ByVal alignToRight As Boolean)

Paint(g, bounds, [source], rowNum, Brushes.Red, _
Brushes.Blue, alignToRight)
End Sub


تاسعا : الان نقوم بتثبيت التغيير والخروج من الخليه واعادة رسمها

 كود

' هنا نثبت التغيير الحاصل
Protected Overrides Function Commit(ByVal dataSource As CurrencyManager, ByVal rowNum As Integer) As Boolean
customComboBox1.Bounds = Rectangle.Empty
RemoveHandler customComboBox1.SelectionChangeCommitted, AddressOf ComboBoxTextChanged
If Not isEditing Then
Return True
End If
isEditing = False
Try
Dim value As String = customComboBox1.Text
SetColumnValueAtRow(dataSource, rowNum, value)
Catch
End Try
Invalidate() 'هذه الجملة تطلق حدث اعادة الرسم
Return True
End Function

' هنا يخرج من الخلية ونعيد رسمها بالشكل النهائي في الخطوه عشرة
Protected Overrides Sub Abort(ByVal rowNum As Integer)
isEditing = False
RemoveHandler customComboBox1.SelectionChangeCommitted, AddressOf ComboBoxTextChanged
Invalidate() 'هذه الجملة تطلق حدث اعادة الرسم
End Sub


عاشرا : اعادة رسم الخلية واعطاها قيمة combo التي قمنا باختيارها

 كود

' هنا لرسم لكتابة المختار من الكمبو في الخلية
Protected Overloads Overrides Sub Paint(ByVal g As Graphics, _
ByVal bounds As Rectangle, ByVal [source] As CurrencyManager, _
ByVal rowNum As Integer, ByVal backBrush As Brush, _
ByVal foreBrush As Brush, ByVal alignToRight As Boolean)

Dim txt As String = GetText(GetColumnValueAtRow([source], rowNum))
Dim rect As Rectangle = bounds
g.FillRectangle(backBrush, rect)
rect.Offset(0, 2)
rect.Height -= 2
Dim sf As New StringFormat
g.DrawString(txt, Me.DataGridTableStyle.DataGrid.Font, foreBrush, _
RectangleF.FromLTRB(rect.X, rect.Y, rect.Right, rect.Bottom))
End Sub



وهكذا نكون قد انتهينا من Class الذي يضيف ال ComboBox الى DataGrid

اما الان سنبدأ خطوات في الفورم الاساسي

نضع DataGrid على الفورم ونعمل DataSet ونسند المعلومات الى DataGrid

 كود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SimpleSampleDataSet.Dictionary' table. You can move, or remove it, as needed.
Me.DictionaryTableAdapter.Fill(Me.SimpleSampleDataSet.Dictionary)
'TODO: This line of code loads data into the 'SimpleSampleDataSet.CountryCapital' table. You can move, or remove it, as needed.
Me.CountryCapitalTableAdapter.Fill(Me.SimpleSampleDataSet.CountryCapital)
Me.DictionaryTableAdapter.Fill(Me.SimpleSampleDataSet.Dictionary)

AddGridStyle()
End Sub


الان الخطوة الاخيرة وهي عمل GridStyle ونضيفها لجميع ال Column التي نرغب في اظهارها في
DataGrid

 كود


Private Sub AddGridStyle()
Dim myGridStyle As DataGridTableStyle = New DataGridTableStyle()
myGridStyle.MappingName = "CountryCapital"

Dim IDColumnStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn()
IDColumnStyle.MappingName = "ID"
IDColumnStyle.HeaderText = "ID"
myGridStyle.GridColumnStyles.Add(IDColumnStyle)

Dim CountryColumnStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn()
CountryColumnStyle.MappingName = "Country"
CountryColumnStyle.HeaderText = "Country"
myGridStyle.GridColumnStyles.Add(CountryColumnStyle)


Dim customcombobox1ColumnStyle As DataGridComboBoxColumn = New DataGridComboBoxColumn()
With customcombobox1ColumnStyle
.customComboBox1.DataSource = Me.SimpleSampleDataSet.Dictionary.DefaultView
.customComboBox1.DisplayMember = "Capital"
.customComboBox1.ValueMember = ("Capital")
.MappingName = "Capital"
.HeaderText = "Capital"
.Width = 150
.customComboBox1.BackColor = Color.Beige
End With
myGridStyle.GridColumnStyles.Add(customcombobox1ColumnStyle)

MyGrid.TableStyles.Add(myGridStyle)
End Sub


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

" target="_blank" href="http://www.arabmoheet.net/forum/Members_Upload_Pics/19244/Capture.jpg[/IMG]" target="_blank">http://www.arabmoheet.net/forum/Members_Upload_Pics/19244/Capture.jpg[/IMG]

ارجوا ان يكون الشرح واضح وعذرا على الاطاله (لانه هذه اول مره اكتب فيها درس)
واي استفسار او اقتراحات او اخطاء ارجوا ذكرها حتى نعمل سوياً على حلها ليستفيد جميع الاعضاء باذن الله.

مرفق ملف Database


تحياتي للجميع





الملفات المرفقة
 SimpleSample.rar ( 15.99ك ) عدد مرات التنزيل: 2343
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,12/فر/1428 هـ,03:21 صباحاً
المشاركة #2

مشرف سابق لمنتدى VB.NET ADO.NET
الرتبة في المنتدى:لواء

أيقونة المجموعة

المجموعة: المشرفين القدامى
المشاركات: 1592
سجل في:الثلاثاء,26/شعبان/1427 هـ,09:40 صباحاً
الدولة:الأردن
رقم العضوية: 13584



ممتاز اخي الغالي بجد انا كنت دائماً ابحث على مثل هذا الكود و وجده الآن في هذا المنتدى الرائع شكراً لك
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,13/فر/1428 هـ,07:17 صباحاً
المشاركة #3

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 118
سجل في:الاثنين,29/شوال/1427 هـ,05:17 مساءً
الدولة:السعودية
رقم العضوية: 15529



شكرا اخي الكريم
الابداع لاياتي الا من شخص مبدع مثلك
بالفعل كلنا بحاجه لمثل هذه الدروس
بارك الله فيك وبالتوفيق انشاء الله


--------------------
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأربعاء,19/جمادى الثانية/1428 هـ,10:20 صباحاً
المشاركة #4

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,19/جمادى الثانية/1428 هـ,02:30 صباحاً
الدولة:مصر
رقم العضوية: 29787



شكرا اخي علي الشرح الجميل بس عايز مساعدتك في شرح ربط قاعدة البيانات بالبرنامج بتاعك بالتفصيل لو سمحت


--------------------
سبحان الله وبحمده سبحان الله العظيم

DODY
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأربعاء,19/جمادى الثانية/1428 هـ,10:22 صباحاً
المشاركة #5

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,19/جمادى الثانية/1428 هـ,02:30 صباحاً
الدولة:مصر
رقم العضوية: 29787



اسف وايضا هذا الكود
MyGrid.TableStyles.Add(myGridStyle)
الموجود في اخر سطر في نهاية الموضوع


--------------------
سبحان الله وبحمده سبحان الله العظيم

DODY
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,21/جمادى الثانية/1428 هـ,12:53 مساءً
المشاركة #6

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,19/جمادى الثانية/1428 هـ,02:30 صباحاً
الدولة:مصر
رقم العضوية: 29787



يا اخ jbsa
ممكن ترد عليا انا في امس الحاجه اللي هذة المساعدة
يا مشرفين المساعدة

لو ممكن حد يشرحلنا الكود الاخير بالتفصيل خطوه خطوه


--------------------
سبحان الله وبحمده سبحان الله العظيم

DODY
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالجمعة,21/جمادى الثانية/1428 هـ,04:36 مساءً
المشاركة #7

الرتبة في المنتدى:ملازم

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 140
سجل في:الأحد,21/شوال/1427 هـ,12:58 مساءً
الدولة:السعودية
رقم العضوية: 15051



شكراً لك ... والله يعطيك العافيه


--------------------
سبحان الله وبحمدة... سبحان الله العظيم
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,23/جمادى الثانية/1428 هـ,08:24 صباحاً
المشاركة #8

خبيرتحليل نظم و دوت نت
الرتبة في المنتدى:عماد

أيقونة المجموعة

المجموعة: مشرفي الموقع
المشاركات: 3849
سجل في:الأحد,17/محرم/1428 هـ,05:57 صباحاً
الدولة:الأردن
رقم العضوية: 19244



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

اخي العزيز انا شارح كيفية الربط بقاعدة البيانات في هذا الكود

 كود
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'SimpleSampleDataSet.Dictionary' table. You can move, or remove it, as needed.
Me.DictionaryTableAdapter.Fill(Me.SimpleSampleDataSet.Dictionary)
'TODO: This line of code loads data into the 'SimpleSampleDataSet.CountryCapital' table. You can move, or remove it, as needed.
Me.CountryCapitalTableAdapter.Fill(Me.SimpleSampleDataSet.CountryCapital)
Me.DictionaryTableAdapter.Fill(Me.SimpleSampleDataSet.Dictionary)

AddGridStyle()
End Sub

وهذا الكود هو لتحميل الملفات من قاعة البيانات الى dataset والتي ساقوم باستخدامها
ثم اقوم بعمل الشكل المناسب لظهار البيانات في الاجراء الاخير اي ما هي الحقول التي ارغب في اظهارها
وفي سؤالك عن هذه الجمة MyGrid.TableStyles.Add(myGridStyle)
ساشرحها داخل هذا الكود
 كود
Private Sub AddGridStyle()
هذه هي الجملة التي تسال عنها وهي ان نعرف DataGridTableStyle وهي لتحديد اسم قاعدة البيانات والحقول وجميع خصائصهم
Dim myGridStyle As DataGridTableStyle = New DataGridTableStyle()
هذه الجملة لتحديد اسم قاعدة البيانات
myGridStyle.MappingName = "CountryCapital"
هنا نعرف الحقل id الاول
Dim IDColumnStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn()
هنا نحدد بعض خصائص الحقل id
IDColumnStyle.MappingName = "ID"
IDColumnStyle.HeaderText = "ID"
هنا نضيف الحقل الى grid
myGridStyle.GridColumnStyles.Add(IDColumnStyle)
هنا نعرف الحقل الثاني Country ونحدد خصائصة ونضيفة
Dim CountryColumnStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn()
CountryColumnStyle.MappingName = "Country"
CountryColumnStyle.HeaderText = "Country"
myGridStyle.GridColumnStyles.Add(CountryColumnStyle)

هنا نحدد الحقل الثالث والذي نرغب بان يكون combobox
ونعرفة على انه DataGridComboBoxColumn - class الذي قمنا بعمله سابقا

Dim customcombobox1ColumnStyle As DataGridComboBoxColumn = New DataGridComboBoxColumn()
With customcombobox1ColumnStyle
هنا نحدد قاعة البيانات التي نرغب ان نضعها في combobox
.customComboBox1.DataSource = Me.SimpleSampleDataSet.Dictionary.DefaultView
هنا نحدد الحقل الذي نرغب ان نحمله في combobox ونحدد بعض الخصائص له ونضيفة الى grid
.customComboBox1.DisplayMember = "Capital"
.customComboBox1.ValueMember = ("Capital")
.MappingName = "Capital"
.HeaderText = "Capital"
.Width = 150
.customComboBox1.BackColor = Color.Beige
End With
myGridStyle.GridColumnStyles.Add(customcombobox1ColumnStyle)

هنا قمنا باضافة ما قمنا بعمله من تحديد الحقول واضافة combobox الى grid يعني اننا قمنا بتحديد الشكل الكامل لل grid الذي نرغب باظهارة
MyGrid.TableStyles.Add(myGridStyle)
End Sub

وقد تسال لماذا استخدمنا DataGridTableStyle والجواب هو ان الحقول grid هي عدة انواع منها text ومنها date ومنها combobox
وحتى نجمعها مع بعضها في grid يجب ان نستخدم TableStyle.

ارجو ان اكون قد اوضحت ما طلبت

تحياتي للجميع
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالأحد,23/جمادى الثانية/1428 هـ,05:27 مساءً
المشاركة #9

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,19/جمادى الثانية/1428 هـ,02:30 صباحاً
الدولة:مصر
رقم العضوية: 29787



جاري فهم الكود واذا وقفت حاجه قصادي هبقي اسالك تاني وافس علي تعبك معايا


--------------------
سبحان الله وبحمده سبحان الله العظيم

DODY
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالسبت,29/جمادى الثانية/1428 هـ,08:29 صباحاً
المشاركة #10

الرتبة في المنتدى:رقيب

أيقونة المجموعة

المجموعة: الأعضاء
المشاركات: 6
سجل في:الأربعاء,19/جمادى الثانية/1428 هـ,02:30 صباحاً
الدولة:مصر
رقم العضوية: 29787



ممكن يا اخي تقولي الخطء فين في الكود ده

قم بفك ضغط المشروع علي سطح المكتب



الملفات المرفقة
 WindowsApplication1.rar ( 137.89ك ) عدد مرات التنزيل: 1473


--------------------
سبحان الله وبحمده سبحان الله العظيم

DODY
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة

    

عدد المتصفحين لهذا المنتدى «1»: (الضيوف «1» - المتخفون «0»)
الأعضاء «0»: .

عدد الصفحات : 3  1  2  3   > » إضافة رد جديد إضافة موضوع جديد



 
الوقت الأن:اليوم,10:23 صباحاً بتوقيت القدس المحتلة

Powered By arabmoheet v3.1

منتديات المحيط العربي  -  راسلنا  -   أعلى
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)
X   رسالة المنتدى
(سوف يتم اغلاق هذه النافذة بعد 2 ثانية)