锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net快捷键 vbnet button

快捷键IT技术

vb.net怎么设置快捷键新建一个Form1把Form1的KeyPreview改成True
拖入一个Button1到Form1上面
然后加入以下代码
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyData = https://www.04ip.com/post/(Keys.Alt Or Keys.G) Then
Button1.PerformClick() '或者用Button1_Click(Nothing, New EventArgs)
'快捷键Alt G触发Button1_Click()事件 。
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Size = New Size(180, 23)
Button1.Text = "我被局部快捷键给召唤了~"
End Sub
vb.net 如何添加菜单快捷键ToolStripMenuItem.ShortcutKeys 属性
获取或设置与 ToolStripMenuItem 关联的快捷键 。
使用 ShortcutKeys 属性可以将组合键分配给菜单命令，例如，将 Ctrl C 分配给“复制”命令 。您可以使用快捷键而不使用访问键 ， 也可以同时使用快捷键和访问键 ， 访问键是菜单或菜单项中与 Alt 键一起使用的带下划线的字母 。通过在要用于访问键的字母前面键入一个“and”符 ()，可以在代码中定义访问键 。
VB.NET 快捷键很正常嘛vb.net快捷键，如果项目下还有子菜单项话vb.net快捷键，是无效vb.net快捷键的vb.net快捷键 ， 必须是最底层菜单项 。
vb.net 如何实现自定义的快捷键及对应的文件保存用户的自定义设置一般可以存在app.config文件中
在程序开启后可以定义全局变量存储这些配置，这样就不必每次都读配置文件了
你可以在你的项目属性里面找到资源选项，里面可以直接添加静态的配置（此处添加的项会直接存储在app.config中)
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,怎么做全局快捷键？？'vb全局快捷键是个大大滴难题，不好整 。以下是个演示，办法比较笨，本人自用的，你试试 。
'窗体放上控件：Command1、Label1、Check1、Check2、Text1、Text2、Timer1
'加入以下代码，运行，设置"确定"键的快捷键
'可选"CTRL 某键"或者"SHIFT 某键"
'"某键"自己设置，只能设置为字母或数字
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer'API声明
Dim i
【vb.net快捷键 vbnet button】'================================================================
'这部分是设置各控件的大小、位置和初始属性，为了便于演示才加的，
'你可以自行设计好各控件的大小、位置和初始属性，无需这些代码 。
Private Sub Form_Load()
Form1.Width = 2690: Form1.Height = 2100
Command1.Width = 1215: Command1.Height = 495
Command1.Top = 120: Command1.Left = 120
Command1.Caption = "确定"
Label1.Width = 2175: Label1.Height = 255
Label1.Top = 720: Label1.Left = 120
Label1.Caption = "设置 确定 键的快捷键："
Check1.Width = 975: Check1.Height = 255
Check1.Top = 960: Check1.Left = 120
Check1.Caption = "CTRL"
Check2.Width = 975: Check2.Height = 255
Check2.Top = 1320: Check2.Left = 120
Check2.Caption = "SHIFT"
Text1.Width = 255: Text1.Height = 270
Text1.Top = 960: Text1.Left = 1080
Text1.Text = ""
Text2.Width = 255: Text2.Height = 270
Text2.Top = 1320: Text2.Left = 1080
Text2.Text = ""
Timer1.Interval = 10 'Timer的属性 ， 必须设置
End Sub
'以上部分是设置各控件的大小、位置和初始属性，为了便于演示才加的，
'你可以自行设计好各控件的大小、位置和初始属性 ， 无需这些代码 。
'================================================================
Private Sub Timer1_Timer()
If Text1"" Then
If Len(Text1)1 Then Text1 = Left(Text1, 1)
If Asc("a") = Asc(Text1) And Asc(Text1) = Asc("z") _
Then Text1 = Chr(Asc(Text1) - 32)
If Check1.Value = https://www.04ip.com/post/1 And GetAsyncKeyState(vbKeyControl)0 _
And GetAsyncKeyState(Asc(Text1))0 Then
i = i1
If i = 1 Then Call Command1_Click
Else
i = 0
End If
End If
If Text2"" Then
If Len(Text2)1 Then Text2 = Left(Text2, 1)
If Asc("a") = Asc(Text2) And Asc(Text2) = Asc("z") _
Then Text2 = Chr(Asc(Text2) - 32)
If Check2.Value = https://www.04ip.com/post/1 And GetAsyncKeyState(vbKeyShift)0 _
And GetAsyncKeyState(Asc(Text2))0 Then
i = i1
If i = 1 Then Call Command1_Click
Else
i = 0
End If
End If
End Sub
Private Sub Command1_Click()
print"你好"
SendKeys "你好"
End Sub
关于vb.net快捷键和vbnet button的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何将自己的房间变成一个服务器？ 怎么把房间变成服务器

    下一篇：服务器硬件包含了哪些东西? 服务器硬件设计怎么样的