[awadhabdullah]

السلام عليكم

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


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;
}
}
}

[أبو عمر]

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 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 


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

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

C# to VB Or VB to C#

[awadhabdullah]

السلام عليكم
الشكر موصول لك يا اخي لانك ساعدتني .... واسأل الله ان يجزيك خير الجزاء .... اللهم آمين.