VS2005以降でのDataGridView（コピー＆ペースト＆削除）

生活情報

楽天市場

【ピジョンインフォ】に登録
してあなたも素敵なママ
ライフを送りましょう

美容室、サロン専売品の格安通販

日本最大級のCDショップチェ
ーン「タワーレコード」
のオンライン通販

テレビショッピング【あるらショッピング】

婚カツ

独身１８歳以上はこちら
人気サイトランキング

A8.netは、アフィリエイト
サービスプロバイダー

ぽちグラマー的　.Netに戻る

DataGridViewは、初期設定のままでは行の切り貼りができません。
・コピーした行の漢字が化ける
・エンコーティングにより文字化けを修正した
・DataGridViewには貼り付けの機能は無い（上書き、コピーした行追加）
こんな経験をしたので下記サンプルを作ってみた

サンプルソース

'DataGridViewの行のコピー関数
Private Sub GridToClip()

  Dim tmpGrd As DataGridView
  Try
    tmpGrd = ActiveControl
  Catch e As Exception
    Exit Sub
  End Try

  Dim itm As Object
  Dim rw As DataGridViewRow = tmpGrd.CurrentRow
  Dim sTmp As String = ""
  Dim i As Integer = 0

  For Each itm In rw.Cells
    sTmp += rw.Cells(i).FormattedValue & vbTab
    i += 1
  Next
  sTmp = sTmp.Substring(0, sTmp.Length - 1)
  Clipboard.SetDataObject(sTmp, TextDataFormat.Text)

End Sub



'クリップボードの中身をDataGridViewに貼り付ける
Private Sub ClipToGrid()

  Dim arStr As Array
  Dim tmpGrd As DataGridView
  Dim pasteText As String = ""
  Dim tmpStr As String = ""
  Dim i As Integer = 0
  Dim itm As Object

  Try
    tmpGrd = ActiveControl
  Catch e As Exception
    Exit Sub
  End Try

  pasteText = Clipboard.GetText()

  If (TypeOf pasteText Is System.String) = False Then Exit Sub
  If pasteText.ToString.Trim.Length <= 0 Then Exit Sub
  tmpStr = pasteText
  arStr = Split(tmpStr, vbTab)
  If arStr.Length <> tmpGrd.Columns.Count Then Exit Sub

  Dim iCRow As Integer = tmpGrd.CurrentCell.RowIndex
  Dim rw As DataGridViewRow = tmpGrd.CurrentRow

  If tmpGrd.CurrentRow.IsNewRow = True Then
    For Each itm In rw.Cells
      rw.Cells(i).Value = arStr(i)
      i += 1
    Next
  Else
    tmpGrd.Rows.Insert(iCRow, New DataGridViewRow)
    For Each itm In rw.Cells
      tmpGrd.Rows(iCRow).Cells(i).Value = arStr(i)
      i += 1
    Next
  End If
End Sub

'DataGridViewの削除
Private Sub GridRowDelete()
  Dim tmpGrd As DataGridView
  Dim rwidx As Integer = tmpGrd.CurrentRow.Index

  Try
    tmpGrd = ActiveControl
  Catch e As Exception
    Exit Sub
  End Try

  If tmpGrd.CurrentRow.IsNewRow = True Then Exit Sub
  tmpGrd.Rows.RemoveAt(rwidx)
End Sub