DataGridView在vb.net中的应用详细见附件16. DataGridView选择的部分拷贝至剪贴板
迎泽网站建设公司创新互联建站,迎泽网站设计制作，有大型网站制作公司丰富经验。已为迎泽上千家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的迎泽做网站的公司定做！
拷贝模式设定
DataGridView1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
选中部分拷贝
Clipboard.SetDataObject(DataGridView1.GetClipboardContent())
17.DataGridView粘贴
If DataGridView1.CurrentCell Is Nothing Then
Return
End If
Dim insertRowIndex As Integer = DataGridView1.CurrentCell.RowIndex
Dim pasteText As String = Clipboard.GetText()
If String.IsNullOrEmpty(pasteText) Then
Return
End If
pasteText = pasteText.Replace(vbCrLf, vbLf)
pasteText = pasteText.Replace(vbCr, vbLf)
pasteText.TrimEnd(New Char() {vbLf})
Dim lines As String() = pasteText.Split(vbLf)
Dim isHeader As Boolean = True
For Each line As String In lines
If isHeader Then
isHeader = False
Else
Dim vals As String() = line.Split(ControlChars.Tab)
If vals.Length - 1 DataGridView1.ColumnCount Then
Throw New ApplicationException("列数が违います。")
End If
Dim row As DataGridViewRow = DataGridView1.Rows(insertRowIndex)
row.HeaderCell.Value = vals(0)
Dim i As Integer
For i = 0 To row.Cells.Count - 1
row.Cells(i).Value = vals((i + 1))
Next i
insertRowIndex += 1
End If
Next line
笨办法:
加个菜单控件,设置个空选项
再把这个菜单选项的快捷键设置成ctrl+alt+del
1． F12：转到定义；Shift+F12：转到引用
2． F5：启动；Ctrl+F5：开始执行（不调试）；Shift+F5：停止调试
3． F7：查看代码；Shift+F7：查看视图设计器
4． Ctrl+Alt+L：解决方案资源管理器
5． Ctrl+Alt+J：对象浏览器
6． F4：显示属性窗口
7． Ctrl+Alt+X：工具箱
8． Ctrl+Alt+C类视图
9． Alt+Enter：查看属性
10．F10：逐过程调试
11．F11：逐语句调试
12．Ctrl+B：新断点
13．Ctrl+Shift+F9：清除所有断点
14．Ctrl+Shift+B生成解决方案
15．Shift+Alt+Enter：全屏
16．大纲显示：Ctrl+M, Ctrl+M：切换大纲显示展开；Ctrl+M, Ctrl+L：切换所有大纲显示；Ctrl+M,Crtl+P停止大纲显示；Ctrl+M, Ctrl+O：折叠到定义
17．智能感知：Ctrl＋J：列出成员；Ctrl+Shift+空格：参数信息； Ctrl+K,Ctrl+I：快速信息；Alt+右箭头键：完成单词
看了很多这方便的解决方案，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起。
我用一种最简单的方法，只要思路对所有人都能用得起。
其实非常简单，就是获取键值，Ctrl+Enter的健值是10，是不是思路一下就通了。以下是源码：
Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress
If Asc(e.KeyChar) = 发送快捷键值 Then
发送消息过程()
End If
End Sub
源内容出处：