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

(قسم الاعلانات) الموضوع:افضل شركة نقل عفش بالمدينة المنورة 0554901277 أسماء المدينة بواسطة: (قصر الشيماء) :: (أخبار التكنولوجيا) الموضوع:برنامج محاسبة بواسطة: (لمياء حمود) :: (قسم الاعلانات) الموضوع:نصائح لتنظيف المنزل بواسطة: (سجيات) :: (منتدى الأكسس) الموضوع:طلب برنامج البحث بمربع القائمة بواسطة: (خالد اليامين) :: (قسم الاعلانات) الموضوع:crypto currency بواسطة: (محمد أحمد عزالدين) :: (قسم الاعلانات) الموضوع:buy bitcoins with cash بواسطة: (محمد أحمد عزالدين) :: (منتدى الأكسس) الموضوع:كيفية ادخال رقم من comand الى txtbox بواسطة: (.husein) :: (قسم الاعلانات) الموضوع:زراعة الشعر للنساء في تركيا مركز الحياة للشعر بواسطة: (ضيااء) :: (قسم الاعلانات) الموضوع:افخم مشبات المملكه بواسطة: (MALEEK) :: (قسم الاعلانات) الموضوع:Real money online بواسطة: (محمد أحمد عزالدين) :: (قسم الاعلانات) الموضوع:Code بواسطة: (محمد أحمد عزالدين) :: (قسم الاعلانات) الموضوع:شركة الشرق الاوسط وكشف تسربات المياه بواسطة: (ابو جميل) :: (قسم الاعلانات) الموضوع:افضل شركة كشف تسربات بالرياض بافضل الاسعار بواسطة: (ابو جميل) :: (قسم الاعلانات) الموضوع:how to start trading in stock market بواسطة: (محمد أحمد عزالدين) :: (منتدى ADO.NET العام) الموضوع:دلتا جلاس ايجيبت – توريد وتركيب الزجاج بواسطة: (brandexat agent) :: (أخبار التكنولوجيا) الموضوع:تحميل لعبة بوكيمون جو 2017 للاندرويد بواسطة: (بناوي 2017) :: (أخبار التكنولوجيا) الموضوع:تحميل برنامج نمبر بوك 2017 للايفون والاندرويد بواسطة: (بناوي 2017) :: (قسم الاعلانات) الموضوع:مكافحه الدمام بواسطة: (كينج دمنهور) :: (قسم الاعلانات) الموضوع:شركة تسليك مجاري بالدمام بواسطة: (كينج دمنهور) :: (قسم الاعلانات) الموضوع:شركه مكافحه حشرات بالدمام بواسطة: (كينج دمنهور)


راديو القرآن

المواضيع المثبته: (Oracle قسم قواعد البيانات أوراكل) الموضوع:تنصيب أوراكل 8i النسخة الشخصية على ويندوز XP بواسطة: (راحـل) :: (منتدى Microsoft Visual Basic) الموضوع:أكبر مشاركة فيجوال بيسك بواسطة: (SkyLight) :: (القسم المفتوح) الموضوع:الأعمــــال الصالحة المستمــرة للإنســـان بعد وفاته بواسطة: (عبدالله جابر شقليه) :: (قسم الدروس و الدورات) الموضوع:برمجة بصمة الاصبع مع الدوت نت Microsoft FingerPrint Reader بواسطة: (FunctionSys) :: (منتدى Borland Delphi) الموضوع:أحفظ برامجك الديلفاوية من أذي العابثين باستخدام رقم الهارد (محترفين) بواسطة: (Hadyabady) :: (منتدى الكتب و المقالات) الموضوع:الجديد في Office Access 2007 بواسطة: (عبد الله الثبيتي) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:موسوعة الأكواد بواسطة: (fmo_82) :: (منتدى ADO.NET العام) الموضوع:شرح ado.net بواسطة: (شهرزاد) :: (منتدى التصميم والجرافيكس) الموضوع:سلسلة دروس الفلاش بواسطة: (مبرمجة فلسطينية) :: (منتدى مبرمجي Microsoft Visual VB.NET) الموضوع:دورة تحزيم البرامج Setup & Deployment Applications by VS 2008 بواسطة: (Max Bayne) :: (لغة PHP) الموضوع:دروس php بواسطة: (أحمد إبراهيم شقليه) :: (منتدى مبرمجي ASP.NET) الموضوع:كيفية ربط الأوراكل مع asp.net بواسطة: (عبدالله جابر شقليه) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:مكتبة الدوت نيت بواسطة: (fmo_82) :: (Oracle قسم قواعد البيانات أوراكل) الموضوع:ADF بواسطة: (وليد القدسي) :: (منتدى مبرمجي Microsoft Visual C#.NET) الموضوع:المواضيع والدروس التعليمية في الدوت نيت - ابدأ من هنا بواسطة: (fmo_82) :: (منتدى أنظمة الشبكات وأمنها) الموضوع:طريقة عمل شبكة لاسلكية بين جهازين او أكثر ..اكس بي.. لمشاركة الملفات والإنترنت بواسطة: (مرحبا الساع) :: (منتدى الدعم الفني للماسنجر المحيط العربي) الموضوع:اقتراحات تطوير الماسنجر بواسطة: (jbsa) :: (منتدى Microsoft Excel) الموضوع:شرح الفيجوال بيزيك للمتوسطين vba بواسطة: (hs889) :: (منتدى الأكسس) الموضوع:فيديو للشروحات والدروس من عمل الاعضاء بواسطة: (startnet) :: (منتدى مبرمجي ASP) الموضوع:مشروع university للجامعات بواسطة: (عبدالله جابر شقليه)

عدد الصفحات : 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ك ) عدد مرات التنزيل: 2212
للأعلىأبلغ المشرف عن هذه المشاركة
لتعقيب على هذه المشاركة مباشرة
مشاركةالخميس,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ك ) عدد مرات التنزيل: 1362


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

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

    

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

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



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

Powered By arabmoheet v3.1

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