VB net全系统热键示例-按ALT+D插入当前日期
简单的VB全局热键(新手专供,注意是简单的)
简单的VB全局热键（不能使用复合热键）
新手专供
你需要做的：创建新窗体，放一个timer控件（就是闹钟一样的拉）
接着复制代码
————————代码部分
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'API函数声明若不知道API函数百度一下<h犇ttp://tieb犇a.baid犇u.c犇om/f?kz=62犇6339029>（“犇”字全删了百度不让发）这个讲得不错我就看了这个才懂的
Private Sub Form_Load()
Timer1.Interval = 100 ' 就是刚刚的timer控件，这个的介绍可以看百度百科去，挺全的频率可以自己调没事
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF9) Then MsgBox "F9" 'vbkeyF9这个可以自己改成其他键
End Sub
————————代码结束
附录
键码
A 键到 Z 键与其 ASCII 码的相应值'A' 到 'Z' 是一致的
0 键到 9 键与其 ASCII 码的相应值 '0' 到 '9' 是一致的
数字小键盘上的键
功能键。
VB.NET日期与时间数据处理及技巧
日期与时间数据处理及技巧我们在编程中，通常都需要处理时间日期数据，这也是一种比较难于处理的数据类型，因为时间日期类型的结构相当复杂，并且还有一定的规则，如果在定义的时候不符合规则，程序在编译的时候就会出错。
在Visual Basic .Net用以处理时间日期类型的结构（Structure）主要是2个，分别为DateTime和TimeSpan，这二个结构都位于命名空间System，并且在Visual Basic .Net中自己也定义了一种数据类型Date，这种数据类型相当于上面提及的DateTime类。
这时候可能很多朋友会问了，什么叫结构，它有什么作用？其实结构和类在作用和功能上是非常类似的，它也有构造函数，二者的主要区别如下：1. 结构不能包含显式的无参数构造函数。
结构成员将自动初始化为它们的默认值。
2. 结构不能有以下形式的初始值设定项：base。
其实对于大多数朋友，你具体使用结构和类的时候，完全可以不需要考虑到二者区别，因为二者在使用上几乎相同。
虽然Visual Basic .Net中提供了Date数据类型来处理时间日期类型，但在实际中往往并不使用它，因为它的定义非常麻烦，加上时间日期类型结构相当复杂，对于很多初学者往往会出现错误。
下面就是在Visual Basic .Net中通过Date 数据类型定义一个时间日期类型数据变量的语句，就可见其烦杂了：Dim s As Date = #12/2/2002 7:00:00 PM#在定义Date数据类型时候，必须注意下面三点：1. Date数值必须以数字符号"#"括起来。
2. Date数值中的日期数据可有可无，如果有必须符合格式"m/d/yyyy"。
3. Date数值中的时间数据可有可无，如果有必须和日期数据通过空格分开，并且时分秒之间以":"分开。
一．DateTime和TimeSpan的关系和区别：DateTime和TimeSpan是Visual Basic .Net中用以处理时间日期类型数据的二个主要的结构，这二者的区别在于，DatTime表示一个固定的时间，而TimeSpan表示的是一个时间间隔，即一段时间。
VB.NET中显示时间及日期(转)
中显示时间及日期(转)日期函数日期及时间是以数值的数据型态储存，日期可以表示的范围为公元1 年1 月1 日到9999 年12月31日，时间的部分为0:00:00 到23:59:59。
要将指定的日期存入变量，使用如下语法：dtVar=#mm/dd/yyyy#或dtVar=#mm-dd-yyyy#我们要将指定的日期存入日期型态的变量中，该日期必需用井号「#」围起来，并且输入「月/日/年」，例如：<html><%Dim dtMyBday As datedtMyBday=#10/03/1973#Response.Write("我的生日是" & Cstr(dtMyBday))%></html>要将日期的某个部分取出，必需要使用一些函式。
.Net Framework 提供了许多时间及日期的函式，如下表所示。
假设现在为2001 年6 月1 日星期五9 点10 分11 秒：函式名称说明范例传回值Now() 传回今天的时间及日期Now() 2001/6/1 上午09:10:11Year() 传回年的部分Year(Now()) 2001Month() 传回月的部分Month(Now()) 6Day() 传回日的部分Day(Now()) 1Weekday() 传回一周的第几天Weekday(Now()) 6（星期天为1）Hour() 传回时的部分Hour(Now()) 9Minute() 传回分的部分Minute(Now()) 10Second() 传回秒的部分Second(Now) 11DateTime 物件DateTime 对象提供了许多属性及方法让我们来处理时间及日期，其中Now 属性可以传回系统现在的日期及时间，Today 则是传系统现在的日期。
下列叙述分别利用Now 及Today 属性传回系统现在时间日期：Response.Write(DateTime.Now)Response.Write(DateTime.Today)另外Now 以及Today 其实是对象型态的属性，分别有些自己的属性及方法，如下表所示：功能语法备注传回系统现在的年DateTime.Today.Year()传回系统现在的月DateTime.Today.Month()传回系统现在的日DateTime.Today.Day()传回系统现在星期几DateTime.Now.DayOfWeek() 注意，星期一为1传回现在是一年的第几天DateTime.Now.DayOfYear()传回系统现在的时DateTime.Now.Hour()传回系统现在的分DateTime.Now.Minute()传回系统现在的秒DateTime.Now.Second()传回现在日期加上指定天数DateTime.Now.AddDays() 加上指定的天传回现在日期加上指定月数DateTime.Now.AddMonths() 加上指定的月传回现在日期加上指定天数DateTime.Now.AddYears() 加上指定的年传回现在日期加上指定秒数DateTime.Now.AddSeconds() 加上指定的秒传回现在日期加上指定分钟DateTime.Now.AddMinutes() 加上指定的分钟传回现在日期加上指定小时DateTime.Now.AddHours() 加上指定的小时相关的日期函数１．DateSerial 函数当我们需要对于日期做运算的时候，可以利用DateSerial 函式。
VB.NET中的快捷键
中的快捷键一、选择代码Shift + 方向键选择从当前光标至移动后光标所在位置的所有文本Ctrl+Shift+左右方向键选择从当前光标至下一(上一)单词首(尾)Shift + Alt + 方向键选择由当前光标与移动后光标所构成的矩形的区域内所有文本Ctrl + 单击鼠标左键选择单击位置的整个单词Shift + 单击鼠标左键选择从当前光标至鼠标单击位置区间的所有文本Shift + Home(End) 选择从当前光标至行首(尾)的所有文本Shift + PageUp(PageDown) 选择从当前光标至下页(上页)的所有文本Ctrl + A 选择当前页面上的所有文本拖动鼠标选择从鼠标按下时光标位置至当前鼠标位置之间的所有文本Alt + 拖动鼠标选择由鼠标按下时光标与当前鼠标位置所形成的矩形区域内文本双击选择双击位置的整个单词Ctrl + Z 恢复上一次文本操作Ctrl + Shift + Z 重做上一次文本操作二、对选中的代码进行操作Ctrl + C 复制选中的文本至剪切板Ctrl + X 复制选中的文本至剪切板，并将选择的代码删除Ctrl + V 用剪切板中的文本覆盖选中的文本Delete 或BackSpace 删除选中的文本用鼠标拖动将选中的文本移动至新位置三、删除操作Delete 删除光标位置后面的一个字符BackSpace 删除光标位置前面的一个字符Ctrl + BackSpace 删除从当前光标至单词首的所有文本Ctrl + Delete 删除从当前光标至单词尾的所有文本Shift + Delete 删除光标所在行的整行文本Ctrl + Alt + Delete 呵呵，这个你自己试验一下吧四、 IDE 操作(请在起始页面将Keyboard profile置为Visual Basic Developer)F5 开始调试程序Ctrl + F5 全编译执行程序F8 单步执行程序Ctrl + F8 执行至光标处Shift + F8 执行一行代码(无论其中有多少调用)Ctrl + Shift + F8 执行至当前过程尾并跳出Shift + F2 转到变量的定义处Ctrl + K,C 将选中的文本注释掉(可重复使用) Ctrl + K,U 将选中的文本消除注释(可重复使用) Ctrl + K,D 强制格式化代码Ctrl + K,K 标记书签Ctrl + K,N 跳转至下一书签Ctrl + K,L 清空所有已标记的书签F9 标记断点Ctrl + Shift + F9 清除所有已标记的断点Ctrl + F 搜索代码Ctrl + Shift + F 在文件中搜索文本F4 切换至属性窗口F7 从设计器窗口切换至代码窗口F12 选中下一个编译错误处代码Ctrl + U 将选中文本全部转换成小写Ctrl + Shift + U 将选中文本全部转换成大写Ctrl + R 切换至解决方案管理器窗口Ctrl + Alt + K 切换至任务窗口Ctrl + Alt + A 切换至命令窗口Ctrl + Tab 在已打开的代码/编辑器页面间切换Ctrl + PageDown/Up 在设计页面/代码页面间切换（仅在VS2003的设计器中有效）Ctrl + 上/下方向键将光标跳转至上一/下一过程（仅在VB2005代码编辑器中有效）Ctrl + M,M 折叠/展开光标所在处的大纲Ctrl + F4 关闭当前代码/设计器窗口Alt + D,E 结束调试。
VB.Net-日期和时间
-⽇期和时间 - ⽇期和时间你写的⼤部分软件都需要实现某种形式的⽇期功能，返回当前⽇期和时间。
⽇期是⽇常⽣活的⼀部分，使⽤它能让⼯作变得轻松，不需要太多思考。
还提供了强⼤的⽇期算术⼯具，使操作⽇期变得容易。
⽇期数据类型包含⽇期值，时间值或⽇期和时间值。
Date的默认值为0001年1⽉1⽇的0:00:00（午夜）。
等效的.NET数据类型为System.。
DateTime 结构表⽰即时时间，通常表⽰为⽇期和时间的⼀天'Declaration<SerializableAttribute> _Public Structure DateTime _Implements IComparable, IFormattable, IConvertible, ISerializable,IComparable(Of DateTime), IEquatable(Of DateTime)您还可以从DateAndTime类获取当前⽇期和时间。
DateAndTime模块包含⽇期和时间操作中使⽤的过程和属性。
'Declaration<StandardModuleAttribute> _Public NotInheritable Class DateAndTime注意：DateTime结构和DateAndTime模块都包含诸如Now和Today之类的属性，因此初学者经常会感到困惑。
DateAndTime类属于Microsoft.VisualBasic命名空间，DateTime结构属于System命名空间。
因此，使⽤以后的将帮助你移植你的代码到另⼀个.Net语⾔，如C＃。
但是，DateAndTime类/模块包含Visual Basic中所有可⽤的旧⽇期函数。
DateTime结构的属性和⽅法下表列出了⼀些DateTime结构的常⽤属性：S.N属性描述1Date Gets the date component of this instance.获取此实例的⽇期组件。
VB快捷键
VB快捷键VB快捷键命令快捷键说明编辑.分行Enter Shift + Enter插入一个新行。
编辑.折叠到定义Ctrl + M，Ctrl + O 自动确定在代码中创建区域（如过程）的逻辑边界，然后隐藏它们。
编辑.注释选定内容Ctrl + K，Ctrl + C 使用编程语言的正确注释语法将代码的当前行标记为注释。
编辑.删除水平空白Ctrl + K，Ctrl + \\折叠选定内容中的空白，如果没有选定内容，则删除与光标相邻的空白。
编辑.编排文档格式Ctrl + K，Ctrl + D 按“选项”对话框“文本编辑器”部分中的语言的“格式设置”窗格中的指定，应用该语言的缩进和空格格式设置。
编辑.格式化选定内容Ctrl + K，Ctrl + F根据周围的代码行，正确缩进选定的代码行。
编辑.隐藏选定内容Ctrl + M，Ctrl + H 隐藏选定文本。
信号图标标记隐藏文本在文件中的位置。
编辑.插入制表符Tab 将文本行缩进指定数量的空格，如 5 个。
仅在 .NET Framework 设计器中可用。
编辑.剪切行Ctrl + Y 将选择的所有行（或当前行，如果未选择任何行）剪切到剪贴板。
编辑.删除行Ctrl + Shift + Y删除所有选定行或当前行（如果没有选定行）。
编辑.上开新行Ctrl + Enter在插入点之上插入一个空行。
编辑.下开新行Ctrl + Shift + Enter在插入点之下插入一个空行。
编辑.行转置Shift + Alt + T将包含插入点的行移动到下一行之下。
编辑.改写模式Insert 改写文档中已有的字符，而不是插入字符。
仅在文本编辑器中可用。
编辑.停止隐藏当前区域Ctrl + M，Ctrl + U移除当前选定区域的大纲显示信息。
编辑.停止大纲显示Ctrl + M，Ctrl + P从整个文档中移除所有大纲显示信息。
编辑.交换定位点Ctrl + R，Ctrl + P交换当前选定内容的定位点与结束点。
如何快速插入当前日期或时间
如何快速插入当前日期或时间在计算机操作中，我们经常需要在各种文档、文件、邮件中插入当前日期或时间。
这有助于我们追溯信息的来源和时效性。
本文将介绍几种常见的快速插入当前日期或时间的方法。
方法一：使用快捷键许多软件工具都提供了快速插入日期或时间的快捷键。
在Microsoft Word中，我们可以按下"Alt + Shift + D"键，即可插入当前日期；按下"Ctrl + Shift + ;"键，则可以插入当前时间。
这些快捷键在不同的软件中可能会有所不同，但通常可以在软件的帮助文档或设置中找到相关信息，可以根据自己的需求进行设置。
方法二：使用自定义格式某些软件工具允许用户自定义日期或时间的格式，并在需要的地方直接应用该格式。
以Microsoft Excel为例，我们可以在单元格中输入自定义的日期或时间格式，然后使用该格式插入当前日期或时间。
例如，在单元格中输入"yyyy-mm-dd"作为日期格式，再输入"hh:mm:ss"作为时间格式，然后输入"=now()"函数即可实现插入当前日期和时间。
方法三：使用宏宏是一组自动化执行的命令或动作的集合。
通过编写宏，我们可以快速插入当前日期或时间。
在Microsoft Office套件中（如Microsoft Word、Excel等），我们可以使用Visual Basic for Applications（简称VBA）语言编写宏。
下面是一个在Microsoft Word中插入当前日期的简单示例宏：```VBASub InsertDate()Selection.InsertDateTime DateTimeFormat:="yyyy/mm/dd", _InsertAsField:=False, DateLanguage:=wdChineseHongKongEnd Sub```将以上代码复制粘贴到VBA编辑器中，然后保存并运行该宏。
VB.NET中显示时间及日期（转）
中显⽰时间及⽇期（转）⽇期函数⽇期及时间是以数值的数据型态储存，⽇期可以表⽰的范围为公元1 年1 ⽉1 ⽇到9999 年12⽉31 ⽇，时间的部分为0:00:00 到23:59:59。
要将指定的⽇期存⼊变量，使⽤如下语法：dtVar=#mm/dd/yyyy#或dtVar=#mm-dd-yyyy#我们要将指定的⽇期存⼊⽇期型态的变量中，该⽇期必需⽤井号「#」围起来，并且输⼊「⽉/⽇/年」，例如：<html><%Dim dtMyBday As datedtMyBday=#10/03/1973#Response.Write("我的⽣⽇是" & Cstr(dtMyBday))%></html>要将⽇期的某个部分取出，必需要使⽤⼀些函式。
.Net Framework 提供了许多时间及⽇期的函式，如下表所⽰。
假设现在为2001 年6 ⽉1 ⽇星期五9 点10 分11 秒：函式名称说明范例传回值Now() 传回今天的时间及⽇期Now() 2001/6/1 上午09:10:11Year() 传回年的部分 Year(Now()) 2001Month() 传回⽉的部分 Month(Now()) 6Day() 传回⽇的部分 Day(Now()) 1Weekday() 传回⼀周的第⼏天 Weekday(Now()) 6（星期天为1）Hour() 传回时的部分 Hour(Now()) 9Minute() 传回分的部分 Minute(Now()) 10Second() 传回秒的部分 Second(Now) 11DateTime 物件DateTime 对象提供了许多属性及⽅法让我们来处理时间及⽇期，其中Now 属性可以传回系统现在的⽇期及时间，Today 则是传系统现在的⽇期。
下列叙述分别利⽤Now 及Today 属性传回系统现在时间⽇期：Response.Write(DateTime.Now)Response.Write(DateTime.Today)另外Now 以及Today 其实是对象型态的属性，分别有些⾃⼰的属性及⽅法，如下表所⽰：功能语法备注传回系统现在的年 DateTime.Today.Year()传回系统现在的⽉ DateTime.Today.Month()传回系统现在的⽇ DateTime.Today.Day()传回系统现在星期⼏ DateTime.Now.DayOfWeek() 注意，星期⼀为1传回现在是⼀年的第⼏天 DateTime.Now.DayOfYear()传回系统现在的时 DateTime.Now.Hour()传回系统现在的分 DateTime.Now.Minute()传回系统现在的秒 DateTime.Now.Second()传回现在⽇期加上指定天数DateTime.Now.AddDays() 加上指定的天传回现在⽇期加上指定⽉数DateTime.Now.AddMonths() 加上指定的⽉传回现在⽇期加上指定天数DateTime.Now.AddYears() 加上指定的年传回现在⽇期加上指定秒数DateTime.Now.AddSeconds() 加上指定的秒传回现在⽇期加上指定分钟DateTime.Now.AddMinutes() 加上指定的分钟传回现在⽇期加上指定⼩时DateTime.Now.AddHours() 加上指定的⼩时相关的⽇期函数１．DateSerial 函数当我们需要对于⽇期做运算的时候，可以利⽤DateSerial 函式。
VB编程中热键应用两例
Declare Function RegisterHotKey Lib “user32” (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Else
If I = 2 Then
Debug.Print “有其他Window也用Ctl－Shift－T作Hotkey”
Else
Debug.Print “指定失败”
End If
End If
End Sub
注： SendMessage()的传回值有以下的意义：
Const WM_SETHOTKEY = ＆H32
Const HOTKEYF_SHIFT = ＆H1 ' shift键
Const HOTKEYF_CONTROL = ＆H2 'ctrl键
Const HOTKEYF_ALT = ＆H4 'alt键
Const HOTKEYF_EXT = ＆H8 '附加键
Public Const MOD_CONTROL = ＆H2
Public Const MOD_SHIFT = ＆H4
Public Const GWL_WNDPROC = (－4)
Public preWinProc As Long
Public Modifiers As Long, uVirtKey As Long, idHotKey As Long
Private bb As t2Byte
VB快捷键整合处理
VB快捷键命令快捷键说明编辑.分行Enter Shift + Enter插入一个新行。
编辑.折叠到定义Ctrl + M，Ctrl + O 自动确定在代码中创建区域（如过程）的逻辑边界，然后隐藏它们。
编辑.注释选定内容Ctrl + K，Ctrl + C 使用编程语言的正确注释语法将代码的当前行标记为注释。
编辑.删除水平空白Ctrl + K，Ctrl + \折叠选定内容中的空白，如果没有选定内容，则删除与光标相邻的空白。
编辑.编排文档格式Ctrl + K，Ctrl + D 按“选项”对话框“文本编辑器”部分中的语言的“格式设置”窗格中的指定，应用该语言的缩进和空格格式设置。
编辑.格式化选定内容Ctrl + K，Ctrl + F根据周围的代码行，正确缩进选定的代码行。
编辑.隐藏选定内容Ctrl + M，Ctrl + H 隐藏选定文本。
信号图标标记隐藏文本在文件中的位置。
编辑.插入制表符Tab 将文本行缩进指定数量的空格，如 5 个。
仅在 .NET Framework 设计器中可用。
编辑.剪切行Ctrl + Y 将选择的所有行（或当前行，如果未选择任何行）剪切到剪贴板。
编辑.删除行Ctrl + Shift + Y删除所有选定行或当前行（如果没有选定行）。
编辑.上开新行Ctrl + Enter在插入点之上插入一个空行。
编辑.下开新行Ctrl + Shift + Enter在插入点之下插入一个空行。
编辑.行转置Shift + Alt + T将包含插入点的行移动到下一行之下。
编辑.改写模式Insert 改写文档中已有的字符，而不是插入字符。
仅在文本编辑器中可用。
编辑.停止隐藏当前区域Ctrl + M，Ctrl + U移除当前选定区域的大纲显示信息。
编辑.停止大纲显示Ctrl + M，Ctrl + P从整个文档中移除所有大纲显示信息。
编辑.交换定位点Ctrl + R，Ctrl + P交换当前选定内容的定位点与结束点。