إضافة زر في خلية من شبكة البيانات DataGridView
صفحة 1 من اصل 1 • شاطر
إضافة زر في خلية من شبكة البيانات DataGridView
بسم الله الرحمن الرحيم
_ يمكنك أستخدام الكائن DataGridViewButtonColumn لانشاء زر فى خليفة شبكة البيانات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] من خلال الخطوات التالية :
_ فى البداية تم انشاء مثيل جديد من الكائن
- الكود:
Dim btn As New DataGridViewButtonColumn()
_يتم إضافة الكائن الى عامود شبكة البيانات :
- الكود:
DataGridView1.Columns.Add(btn)
_يتم تسمية رأس هذا العامود وليكن بأسم Click Data:
- الكود:
btn.HeaderText = "Click Data"
_نقوم بوضع تسمية توضيحية للزر
- الكود:
btn.Text = "Click Here"
_أخير يتم استخدام الكود التالى لاظهار التسمية على زر الامر
- الكود:
btn.UseColumnTextForButtonValue = True
و الكود الكامل على النحو التالى :
- الكود:
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.ColumnCount = 3
DataGridView1.Columns(0).Name = "رقم النتج"
DataGridView1.Columns(1).Name = "اسم المنتج"
DataGridView1.Columns(2).Name = "سعر المنتج"
Dim row As String() = New String() {"1", "جوال x2", "1000"}
DataGridView1.Rows.Add(row)
row = New String() {"2", "ipad", "2000"}
DataGridView1.Rows.Add(row)
row = New String() {"3", "cd rome", "3000"}
DataGridView1.Rows.Add(row)
row = New String() {"4", "Product 4", "4000"}
DataGridView1.Rows.Add(row)
Dim btn As New DataGridViewButtonColumn()
DataGridView1.Columns.Add(btn)
btn.HeaderText = "Click Data"
btn.Text = "Click Here"
btn.UseColumnTextForButtonValue = True
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex = 3 Then
MsgBox(("Row : " + e.RowIndex.ToString & " Col : ") + e.ColumnIndex.ToString)
End If
End Sub
End Class
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
أصبحتى محترفة للغاية يا رنا .
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: إضافة زر في خلية من شبكة البيانات DataGridView
سلام
جميل جدا يا اخت رنا
سؤال ؟
كيف ادخل حدث معين للزر الذي انشأتة
مثل للتعديل اريد ان اضغط على الزر وينتقل لصفحة التعديل
كيف ذلك ؟
جميل جدا يا اخت رنا
سؤال ؟
كيف ادخل حدث معين للزر الذي انشأتة
مثل للتعديل اريد ان اضغط على الزر وينتقل لصفحة التعديل
كيف ذلك ؟
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
ليس من اخترق جهاز اصبح هكر
وليس من كتب كود اصبح مبرمج
وليس من كسر برنامج صار خيبير كسر
ولكن من تواضع لله رفعة
tryold- ...
- تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
tryold كتب:سلام
جميل جدا يا اخت رنا
سؤال ؟
كيف ادخل حدث معين للزر الذي انشأتة
مثل للتعديل اريد ان اضغط على الزر وينتقل لصفحة التعديل
كيف ذلك ؟
باستخدام الكود التالى :
- الكود:
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex = 3 And e.RowIndex = 3 Then
MsgBox("vb.net")
End If
End Sub
_ فى حدث CellClick للداتا جريد ...يتم أستخدام جملة شرطية لتحديد الخلية التى فى العامود 4 و الصف 4 فان كان صحيحا يتم تنفيذ الكود مثل إظهار رسالة ....و يجب ملاحظة أن الرقم المفهرس index يبدا بصفر و بالتالى فان الرقم 3 للتعبير عن العامود و الصف رقم 4
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
VB.NET كتب:
باستخدام الكود التالى :
- الكود:
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex = 3 And e.RowIndex = 3 Then
MsgBox("vb.net")
End If
End Sub
_ فى حدث CellClick للداتا جريد ...يتم أستخدام جملة شرطية لتحديد الخلية التى فى العامود 4 و الصف 4 فان كان صحيحا يتم تنفيذ الكود مثل إظهار رسالة ....و يجب ملاحظة أن الرقم المفهرس index يبدا بصفر و بالتالى فان الرقم 3 للتعبير عن العامود و الصف رقم 4
شكرا لك على الرد
ولكن انا اقصد حدث الزر الذي انشأناه في الداتاقريد عند الضغط علية اريدة يحدث لي امرا وليس الضغط على الـ datagradeview cell
وإنما الضغط على الــ btn الموجود داخل الداتاقريد
إن شاء الله يكون كلامي واضح ومفهوم
اكرر شكري للرد على سؤالي
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
ليس من اخترق جهاز اصبح هكر
وليس من كتب كود اصبح مبرمج
وليس من كسر برنامج صار خيبير كسر
ولكن من تواضع لله رفعة
tryold- ...
- تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
جزاكم الله خيرا يا اخى ....لكن الشفرة ستؤدى الى نفس المعنى ...لان الزر سيكون بحجم الخلية نفسها و كل المواقع تستخدم نفس الشفرة لعمل حدث لهذا الزر ....بل فى اعتقادى ان هذا الزر هو مجرد رسم ثلاثى الابعاد لحدود الخلية فتظهر و كانها زر امر .....على اى حال ارجوا المعذرة على عدم قدرتى للوصول لما تصبوا اليه
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
جزاكم الله خيرا أخى vb ....لكن لدى سؤال
_هل توجد طريقة لوضع ايقونة على هذا الزر ؟
_هل توجد طريقة لوضع ايقونة على هذا الزر ؟
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: إضافة زر في خلية من شبكة البيانات DataGridView
أحمد مناع كتب:جزاكم الله خيرا أخى vb ....لكن لدى سؤال
_هل توجد طريقة لوضع ايقونة على هذا الزر ؟
نعم يوجد من خلال كتالة الكود التالى لحدث CellPainting للداتا جريد
- الكود:
Private Sub InvoiceLinesDataGridView_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles InvoiceLinesDataGridView.CellPainting
If e.ColumnIndex = 3 AndAlso e.RowIndex >= 0 Then
e.Paint(e.CellBounds, DataGridViewPaintParts.All)
Dim bmpFind As Bitmap = My.Resources.binoc16_h1
Dim ico As Icon = Icon.FromHandle(bmpFind.GetHicon)
e.Graphics.DrawIcon(ico, e.CellBounds.Left + 3, e.CellBounds.Top + 3)
e.Handled = True
End If
End Sub
_ فى السطر الاول و الثانى جملة شرطية لتحديد الخلية التى سيتم وضع ايقونة للزر بها .
_فى السطر الثالث تم تحديد صورة نقطية Bitmap من Resources
_ فى السطر الرابع تم تحويل الصورة Bitmap الى Icon
_ فى الاسطر الاخيرة تم رسم الايكون على الخلية و بالتالى ستظهر على زر الامر التى بهذا الخلية
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
مشكورين اخوانى الكرام ...وشكر ليك خاص vb.net
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
VB.NET كتب:جزاكم الله خيرا يا اخى ....لكن الشفرة ستؤدى الى نفس المعنى ...لان الزر سيكون بحجم الخلية نفسها و كل المواقع تستخدم نفس الشفرة لعمل حدث لهذا الزر ....بل فى اعتقادى ان هذا الزر هو مجرد رسم ثلاثى الابعاد لحدود الخلية فتظهر و كانها زر امر .....على اى حال ارجوا المعذرة على عدم قدرتى للوصول لما تصبوا اليه
معنى ذلك يا اخي الزر الذي وضعناه ليس لة داعي اذا لم نستطيع ان نتحكم فية
على العموم شكرا لك وشكرا لكاتب الموضوع
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
ليس من اخترق جهاز اصبح هكر
وليس من كتب كود اصبح مبرمج
وليس من كسر برنامج صار خيبير كسر
ولكن من تواضع لله رفعة
tryold- ...
- تاريخ التسجيل : 06/04/2013
المساهمات : 37
النقاط : 47
التقيم : 2
الدولة :
الجنس :
رد: إضافة زر في خلية من شبكة البيانات DataGridView
tryold كتب:
معنى ذلك يا اخي الزر الذي وضعناه ليس لة داعي اذا لم نستطيع ان نتحكم فية
على العموم شكرا لك وشكرا لكاتب الموضوع
كيف يا اخى لا يمكن التحكم فية ...انا عن نفسى استطعت ان التحكم فية باظهر رسالة عند النقر علية باستخدام الكود حقك اخى vb.net
RANA- .....
- تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة :
الجنس :
issatiger2050- ..
- تاريخ التسجيل : 17/07/2014
المساهمات : 13
النقاط : 13
التقيم : 0
الدولة :
الجنس :
VB.NET- المراقبين
- تاريخ التسجيل : 18/02/2011
المساهمات : 121
النقاط : 189
التقيم : 6
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد