[Taha Okla]

عندما تريد قيمة من خلية بعينها، استخدم الكود التالي في حدث (CellEnter) فإنه يستخرج نصها بمجرد الوقوف عليها بالماوس أو بالكيبورد :

كود :

Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
   Dim strW As String = DataGridView1.CurrentCell.Value
   Dim s() As String = Split(strW, " ")

   If s.Length < 2 Then Exit Sub

   TextBox1.Text = s(0) + " " + s(1)
End Sub

وبإمكانك وضعه في الحدث (CellClick) اذا أردت أن لا يعطي قيمة إلا إذا عينت الخلية بالماوس فقط.

---

أما إذا أردت أن يعطي فقط قيمة خلية من عمود معين ولا تتغير إلا إذا تغير السطر.. فاستخدم الكود التالي :

كود :

Private Sub DataGridView1_CellEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEnter
   Dim strW As String = DataGridView1(1, DataGridView1.CurrentCell.RowIndex).Value

   Dim s() As String = Split(strW, " ")

   If s.Length < 2 Then Exit Sub

   TextBox1.Text = s(0) + " " + s(1)
End Sub