11-05-25, 10:09 PM
استبدل DataGridView1_KeyDown بالكود التالي
PHP كود :
Private Sub DataGridView1_KeyDown(sender As Object, e As KeyEventArgs) Handles DataGridView1.KeyDown
If e.Control AndAlso e.KeyCode = Keys.V Then
Try
Dim clipboardText As String = Clipboard.GetText()
' الحصول على العمود الحالي الذي تم فيه التحديد
Dim currentColumnIndex As Integer = DataGridView1.CurrentCell.ColumnIndex
' لصق القيمة في نفس العمود لجميع الصفوف المحددة
For Each selectedRow As DataGridViewRow In DataGridView1.SelectedRows
If Not selectedRow.IsNewRow Then
If Not DataGridView1(currentColumnIndex, selectedRow.Index).ReadOnly Then
DataGridView1(currentColumnIndex, selectedRow.Index).Value = clipboardText
End If
End If
Next
Catch ex As Exception
MessageBox.Show("حدث خطأ أثناء اللصق: " & ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
End Try
End If
End Sub