الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يتم عمل كمبوبوكس في الdatagridview

بدأه awadhabdullah في 9 نوفمبر 2013 · 5 رد · 779 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم


هذا كود بالسي شارب  وانا اريد عمل كود يقوم بنفس عمله ولكن بالفيجوال بيسك واتمنى من الجميع مساعدتي (بمعنى اخر انا اريد عمل استعلام من جدول عن الاسم وال والمعرف واريد تخزينهم في كمبوبكس في الداتا قريد فيو واريد ان يظهر لي المعرف عندما يتم النقر على الاسم 


using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;


namespace WindowsFormsApplication1

{

    public partial class Form1 : Form

    {

        public Form1()

        {

            InitializeComponent();

        }


        private void dataGridView1_SelectionChanged(object sender, EventArgs e)

        {

            if (dataGridView1.SelectedRows.Count > 0)

                label1.Text = dataGridView1.SelectedRows[0].Index.ToString();

        }

        private void Form1_Load(object sender, EventArgs e)

        {

            MyClass c = new MyClass();

            dataGridView1.DataSource = c.GetData();

            Column1.DataSource = c.GetData();

            Column1.DisplayMember = "Name";

            Column1.ValueMember = "Salary";


        }

        private void dataGridView1_EditingControlShowing(object sender, DataGridViewEditingControlShowingEventArgs e)

        {

            if (dataGridView1.SelectedRows[0].Cells[0].ColumnIndex == 0)

            {

                ComboBox cb = e.Control as ComboBox;

                if (cb != null)

                {

                    cb.SelectionChangeCommitted -= new EventHandler(cb_SelectedIndexChanged);

                    cb.SelectionChangeCommitted += new EventHandler(cb_SelectedIndexChanged);

                }

            }

        }


        void cb_SelectedIndexChanged(object sender, EventArgs e)

        {

            ComboBox cb = sender as ComboBox;

            if (cb.SelectedValue != null)

                MessageBox.Show(cb.SelectedValue.ToString());

        }

    }


    class MyClass

    {

        public string Name { get; set; }

        public string Address { get; set; }

        public int Salary { get; set; }


        public List<MyClass> GetData()

        {

            MyClass c1 = new MyClass { Name = "Ahmed1", Address = "Mukalla", Salary = 10 };

            MyClass c2 = new MyClass { Name = "Ahmed2", Address = "Mukalla", Salary = 20 };

            MyClass c3 = new MyClass { Name = "Ahmed3", Address = "Mukalla", Salary = 30 };

            MyClass c4 = new MyClass { Name = "Ahmed4", Address = "Mukalla", Salary = 40 };

            MyClass c5 = new MyClass { Name = "Ahmed5", Address = "Mukalla", Salary = 50 };

            List<MyClass> lmc = new List<MyClass>();

            lmc.Add(c1);

            lmc.Add(c2);

            lmc.Add(c3);

            lmc.Add(c4);

            lmc.Add(c5);

            lmc.Add(c5);

            return lmc;

        }

    }

}

#2

السلام عليكم

الى الان ولا احد رد علي ماادري اش السبب !!!!! :( .. هل ما وصلت الفكرة .... بصراحة لا ادري ولا احد حتى لق او ارشدني ... بصراحة لا ادري ماذا اعمل . :( !!!!!!

#3

اخي الكريم

انا مبتي في الفيجوال بيسك وعندي نسخة 2010 الامر بسيط ادخل خصائص الداتا جريد فيو وادخل خاصية colmin ,وعند فتحها تجد كل الاعمدة وتحدد العمود الذي نريدة كومبوبكس وتغير خاصية typy  الى (datagridview combobox) ارجوا ان تضبط معك اذا كان نسختك 2010 وارجو المعذرة هذا على حد علمي

#4

السلام عليكم

 مشكور يا اخي على المحاولة ...... ولكن قصدي كيف اعمل كمبوبكس في الداتا قريد بحيث ان  هذه الكمبوبكس تكون لها ValueMember استطيع ان احصل عليها من خلال الخاصية    SelectValue وهذا غير موجود في الكمبوبكس بتاع الداتاقريد الا اذا حولنا الكمبوبكس بتاع الداتاقريد الى نوع Combobox .... اتمنى ان اكون وصلت الفكرة

#5

اتمنى ان احد يفيدني وان لا اترك هكذا ................. :( :(

#6

السلام عليكم


 حرصاً على ان يستفيد الاخرين مما نحصل عليه فقد جاوبني احد الاخوة في موقع من المواقع عن سؤالي المطروح  وانا اتيت بهذا الجواب ليستفيد الاخرون منه


Imports System.Collections.Generic

Imports System.ComponentModel

Imports System.Data

Imports System.Drawing

Imports System.Linq

Imports System.Text

Imports System.Windows.Forms


Namespace WindowsFormsApplication1

    Public Partial Class Form1

        Inherits Form

        Public Sub New()

            InitializeComponent()

        End Sub


        Private Sub dataGridView1_SelectionChanged(sender As Object, e As EventArgs)

            If dataGridView1.SelectedRows.Count > 0 Then

                label1.Text = dataGridView1.SelectedRows(0).Index.ToString()

            End If

        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs)

            Dim c As New [MyClass]()

            dataGridView1.DataSource = c.GetData()

            Column1.DataSource = c.GetData()

            Column1.DisplayMember = "Name"

            Column1.ValueMember = "Salary"


        End Sub

        Private Sub dataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs)

            If dataGridView1.SelectedRows(0).Cells(0).ColumnIndex = 0 Then

                Dim cb As ComboBox = TryCast(e.Control, ComboBox)

                If cb IsNot Nothing Then

                    RemoveHandler cb.SelectionChangeCommitted, New EventHandler(AddressOf cb_SelectedIndexChanged)

                    AddHandler cb.SelectionChangeCommitted, New EventHandler(AddressOf cb_SelectedIndexChanged)

                End If

            End If

        End Sub


        Private Sub cb_SelectedIndexChanged(sender As Object, e As EventArgs)

            Dim cb As ComboBox = TryCast(sender, ComboBox)

            If cb.SelectedValue IsNot Nothing Then

                MessageBox.Show(cb.SelectedValue.ToString())

            End If

        End Sub

    End Class


    Class [MyClass]

        Public Property Name() As String

            Get

                Return m_Name

            End Get

            Set

                m_Name = Value

            End Set

        End Property

        Private m_Name As String

        Public Property Address() As String

            Get

                Return m_Address

            End Get

            Set

                m_Address = Value

            End Set

        End Property

        Private m_Address As String

        Public Property Salary() As Integer

            Get

                Return m_Salary

            End Get

            Set

                m_Salary = Value

            End Set

        End Property

        Private m_Salary As Integer


        Public Function GetData() As List(Of [MyClass])

            Dim c1 As New [MyClass]() With { _

                Key .Name = "Ahmed1", _

                Key .Address = "Mukalla", _

                Key .Salary = 10 _

            }

            Dim c2 As New [MyClass]() With { _

                Key .Name = "Ahmed2", _

                Key .Address = "Mukalla", _

                Key .Salary = 20 _

            }

            Dim c3 As New [MyClass]() With { _

                Key .Name = "Ahmed3", _

                Key .Address = "Mukalla", _

                Key .Salary = 30 _

            }

            Dim c4 As New [MyClass]() With { _

                Key .Name = "Ahmed4", _

                Key .Address = "Mukalla", _

                Key .Salary = 40 _

            }

            Dim c5 As New [MyClass]() With { _

                Key .Name = "Ahmed5", _

                Key .Address = "Mukalla", _

                Key .Salary = 50 _

            }

            Dim lmc As New List(Of [MyClass])()

            lmc.Add(c1)

            lmc.Add(c2)

            lmc.Add(c3)

            lmc.Add(c4)

            lmc.Add(c5)

            lmc.Add(c5)

            Return lmc

        End Function

    End Class

End Namespace

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…