تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يتم عمل كمبوبوكس في الdatagridview
#1
Question 
Confusedالسلام عليكم

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


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
PHP كود :
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 ObjectAs EventArgs)
            If 
dataGridView1.SelectedRows.Count 0 Then
                label1
.Text dataGridView1.SelectedRows(0).Index.ToString()
            
End If
        
End Sub
        
Private Sub Form1_Load(sender As ObjectAs 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 ObjectAs DataGridViewEditingControlShowingEventArgs)
            If 
dataGridView1.SelectedRows(0).Cells(0).ColumnIndex 0 Then
                Dim cb 
As ComboBox TryCast(e.ControlComboBox)
                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 ObjectAs EventArgs)
            
Dim cb As ComboBox TryCast(senderComboBox)
            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 

بالنسبة لتحويل الحقل لـ
Combo
من الخصائص

æåÐÇ ãæÞÚ íÞæã
موقع لتحويل الاكواد
C# & VB

C# to VB Or VB to C#
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:
#3
Big Grin 
Smile
السلام عليكم
الشكر موصول لك يا اخي لانك ساعدتني .... واسأل الله ان يجزيك خير الجزاء .... اللهم آمين.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تعبئة كمبوبوكس بواسطة كمبوبوكس اخر داخل داتاجريد قناص المدينة 6 589 22-05-16, 11:50 AM
آخر رد: حريف برمجة
  مطلوب كود تعبئة كمبوبوكس من sql server 2005 Abdh111 2 268 08-11-15, 02:06 AM
آخر رد: Abdh111
  معرفة اكبر رقم اندكس في كمبوبوكس atefkhalf2004 3 606 16-12-13, 03:50 PM
آخر رد: ناجي إبراهيم
  مشكلة في ربط محتويات كمبوبوكس بكمبوبوكس اخري moh30 0 360 09-06-13, 06:30 PM
آخر رد: moh30
  اتمنى تزويدي بكود اضافة البيانات في كمبوبوكس مبرمج أوتار 6 617 18-04-13, 03:52 AM
آخر رد: مبرمج أوتار

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم