vb.net DataGridView中粘贴的问题解决-还是有问题待解决

最新推荐文章于 2025-04-20 16:44:41 发布

原创

最新推荐文章于 2025-04-20 16:44:41 发布 · 1.4k 阅读

收录于

当前文章被以下社区和专栏收录：

本文探讨了在VB.NET中遇到的DataGridView控件粘贴问题，并分享了解决方案的代码片段，但指出仍有未解决的问题待进一步探讨。

今天晚上没事就给倒腾一下这个在DGV中的粘贴问题。以下是代码：

Public Class Form1

    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        TextBox1.Text = "THIS IS " & IsNothing(DataGridView1.CurrentCell.Value)
        If IsNothing(DataGridView1.CurrentCell.Value) = False Then
            Dim L As String = DataGridView1.CurrentCell.Value.ToString
            For I As Int16 = 0 To L.Length - 1
                R.Text = Asc(L(I)) & vbCrLf
            Next
        Else
            R.Text = ""
        End If
    End Sub

    Private Sub DataGridView1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
        If e.Control And e.KeyCode = Keys.V Then
            If Clipboard.GetText <> "" Then
                Dim s() As String
                s = Clipboard.GetText.ToString.Split(ChrW(9)) '横向添加
                If s.Length > 0 Then