[VB.NET] داتا كريت فيو - نسخة قابلة للطباعة

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