vb.netctrl的简单介绍

vb.net datagridview中选择范围，实现ctrl+c/ctrl+v

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

vb.net中 如何屏蔽windows的ctrl+alt+del 热键

笨办法:

加个菜单控件,设置个空选项

再把这个菜单选项的快捷键设置成ctrl+alt+del

VB.net的快捷键

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+右箭头键：完成单词

vb.net 组合键Ctrl+Enter怎样发送

看了很多这方便的解决方案，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起。

我用一种最简单的方法，只要思路对所有人都能用得起。

其实非常简单，就是获取键值，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

源内容出处：