关于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

相关问答

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

Q2: vb.net 怎样实现控制热键？

用API函数，下面是F4激活程序的事例

Public Class Form1

Public Declare Auto Function RegisterHotKey Lib "user32.dll" Alias "RegisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean

Public Declare Auto Function UnRegisterHotKey Lib "user32.dll" Alias "UnregisterHotKey" (ByVal hwnd As IntPtr, ByVal id As Integer) As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'注册全局热键

RegisterHotKey(Handle, 0, 0, Keys.F4)

'第3个参数意义： 0=nothing 1 -alt 2-ctrl 3-ctrl+alt 4-shift 5-alt+shift 6-ctrl+shift 7-ctrl+shift+alt

End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

UnRegisterHotKey(Handle, 0)

End Sub

Protected Overrides Sub WndProc(ByRef m As Message)

If m.Msg = 786 Then

Me.Activate()

End If

MyBase.WndProc(m)

End Sub

End Class

Q3: 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

源内容出处：

Q4: VB.net如何用代码实现长按Ctrl键呢？

可以用sendkeys啊。

先定义：

dim sdstr as system.winforms.sendkeys

然后循环调用：

sdstr.send("^") 发送Ctrl

关于vb.netctrl和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。