tag:blogger.com,1999:blog-3357313501722746592.post4284600628171548324..comments2023-12-04T02:39:33.604+09:00Comments on てすとぶろぐ: DataGridViewでセル間のドラッグドロップAhfhttp://www.blogger.com/profile/01553064540426163049noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-3357313501722746592.post-50956847658036499732012-08-05T14:28:34.778+09:002012-08-05T14:28:34.778+09:00コメント欄はTabも空白も勝手に調整されるので非常にみずらくて、申し訳ないです・・・コメント欄はTabも空白も勝手に調整されるので非常にみずらくて、申し訳ないです・・・Ahfhttps://www.blogger.com/profile/01553064540426163049noreply@blogger.comtag:blogger.com,1999:blog-3357313501722746592.post-77473926242893504042012-08-05T14:27:40.118+09:002012-08-05T14:27:40.118+09:00このコメントは投稿者によって削除されました。Ahfhttps://www.blogger.com/profile/01553064540426163049noreply@blogger.comtag:blogger.com,1999:blog-3357313501722746592.post-42360365654611534522012-08-05T14:25:11.559+09:002012-08-05T14:25:11.559+09:00コメントありがとうございます。
ちょっと手元に VB 環境しかないのでサンプルといっても VB にな...コメントありがとうございます。<br />ちょっと手元に VB 環境しかないのでサンプルといっても VB になってしまいますが、これでどうでしょう?<br /><br /><br />Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> 'サンプルデータの設定<br /> With DataGridView1<br /> .Rows.Add("1", "2", "3")<br /> .Rows.Add("4", "5", "6")<br /> .Rows.Add("7", "8", "9")<br /> End With<br /> With DataGridView2<br /> .AllowDrop = True<br /> .Rows.Add("11", "12", "13")<br /> .Rows.Add("14", "15", "16")<br /> .Rows.Add("17", "18", "19")<br /> End With<br /><br />End Sub<br /><br />Private Sub dgvMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DataGridView1.MouseMove<br /> If e.Button = Windows.Forms.MouseButtons.Left Then<br /> '別DataGridViewへの移動の際は Effects.All<br /> DataGridView1.DoDragDrop(DataGridView1.CurrentCell.Value, DragDropEffects.All)<br /> End If<br />End Sub<br /><br />Private Sub dgvDragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragDrop<br /> '本来はHItTest等を利用してセル位置を判定する<br /> If e.Data.GetDataPresent(GetType(String)) Then<br /> Dim dgvCellValue = e.Data.GetData(GetType(String))<br /> DataGridView2.CurrentCell.Value = dgvCellValue<br /> End If<br />End Sub<br /><br />Private Sub dgvDragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DataGridView2.DragEnter<br /> e.Effect = DragDropEffects.Copy<br />End Sub<br /><br />ポイントとしては、指定するエフェクトをCopyでやってしまうと、別コントロールにはDragDropできなかったので、<br />Allを指定しているところかな、と思います。Ahfhttps://www.blogger.com/profile/01553064540426163049noreply@blogger.comtag:blogger.com,1999:blog-3357313501722746592.post-30598779780637618882012-08-04T02:07:32.676+09:002012-08-04T02:07:32.676+09:00最近、c#を始めた者です。
2つのDataGriDview(AとB)があり
AからBへセルの値をdr...最近、c#を始めた者です。<br />2つのDataGriDview(AとB)があり<br />AからBへセルの値をdrag&dropする処理を行いたくて<br />探していたら、このページにたどり着きました。<br /><br />可能であれば<br />具体的に実装方法を教えていただけないでしょうか?Anonymousnoreply@blogger.com