窗口边框（FormBorderStyle）设为None,窗口（WindowState）设为Maximized,如果想让窗口背景透明,将窗口背景颜色和TransparencyKey设为同一种颜色,按钮用Label（标签）代替,背景设为Transparent,边框设为None,文字位置一般是下中,Label控件支持无边框.
动感效果在鼠标事件（MouseDown按下,MouseUp抬起,MouseEnter进入,MouseLeave离开）更换指定的图片；
添加timer控件还可以使用动画
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label1.Refresh()
End Sub
快捷键用热键
RegisterHotKey
函数功能：该函数定义一个系统范围的热键.
函数原型：BOOL RegisterHotKey（HWND hWnd,intid,UINT fsModifiers,UINT vk）；
参数：
hWnd：接收热键产生WM_HOTKEY消息的窗口句柄.若该参数NULL,传递给调用线程的WM_HOTKEY消息必须在消息循环中中进行处理.
id：定义热键的标识符.调用线程中的其他热键不能使用同样的标识符.应用功能程序必须定义一个0X0000-0xBFFF范围的值.一个共享的动态链接库（DLL）必须定义一个0xC000-0xFFFF范围的值伯GlobalAddAtom函数返回该范围）.为了避免与其他动态链接库定义的热键冲突,一个DLL必须使用GlobalAddAtom函数获得热键的标识符.
fsModifoers：定义为了产生WM_HOTKEY消息而必须与由nVirtKey参数定义的键一起按下的键.该参数可以是如下值的组合：
MOD_ALT：按下的可以是任一Alt键.MOD_CONTROL：按下的可以是任一Ctrl键.
MOD_SHIFT：按下的可以是任一Shift键.
MOD_WIN：按下的可以是任一Windows按键.
vk：定义热键的虚拟键码.
返回值：若函数调用成功,返回一个非O值.若函数调用失败,则返回值为0.若要获得更多的错误信息,可以调用GetLastError函数.
备注：当某键被接下时,系统在所有的热键中寻找匹配者.一旦找到一个匹配的热键,系统将把WM_HOTKEY消息传递给登记了该热键的线程的消息队列.该消息被传送到队列头部,所以呢它将在下一轮消息循环中被移去.该函数不能将热键同其他线程创建的窗口关联起来.
若为一热键定义的击键己被其他热键所定义,则RegisterHotKey函数调用失败.
若hWnd参数标识的窗口已用与id参数定义的相同的标识符登记了一个热键,则参数fsModifiers和vk的新值将替代这些参数先前定义的值.
若设置MOD_KEYUP位,则当发生键被按下或被弹起的事件时,窗口将发送WM_HOTKEY消息.
RegisterHotKey可以被用来在线程之间登记热键.
UnregisterHotKey
函数功能：该函数释放调用线程先前登记的热键.
函数原型：BOOL UnregisterHotKey（HWND hWnd,int id）；
hWnd：与被释放的热键相关的窗口句柄.若热键不与窗口相关,则该参数为NULL.
id：定义被释放的热键的标识符.
返回值：若函数调用成功,返回值不为0.若函数调用失败,返回值为0.若要获得更多的错误信息,可以调用GetLastError函数.
①.、首先定义所需要用到的常量
如图所示,在窗体代码后定义常量和API函数
代码如下：
Public Const MOD_ALT As Integer = H1
下面过程是注册Ctrl+T的组合键为组合键,假如注册成功,则返回true,反之注册失败则返回false,我们可以根据返回的结果判断并提醒用户注册的情况.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim isResult As Boolean
isResult=RegisterHotKey(Handle, 0, MOD_CONTROL, Asc("T")) '注册Ctrl+T的组合键
If isResult = False Then
MsgBox("注册热键Ctrl+T失败")
End If
[apge]
下面过程为重载WndProc过程,响应热键并处理热键,这里是用来隐藏和显示程序主界面.
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
MyBase.WndProc(m)
最后在关闭窗体的时候释放占用的热键,如果前面注册失败的话,则会出现释放失败的结果.
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
isResult=UnRegisterHotKey(Handle, 0)
双击打开指定的程序
Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick
System.Diagnostics.Process.Start("路径")打开指定程序
先列出这些吧
一定要先在VB中添加excel引用.
调用excel的工作表中的命令按钮,代码如下：
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
......
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
⒃谙允景磁サ氖录?刑砑?br /me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")
命令按钮1.Visable=False'或者命令按钮1.Hide
在窗体的Click事件中添加
命令按钮1.Visable=True'或者命令按钮1.show
me.backgroundimage=nothing
在退出按钮的事件中添加
End
在开始按钮的事件中添加
timer1.interval=1000
Timer1.enable=True
在Timer1的Tick事件中添加
label1.text=timeofday
ToolStripMenuItem.ShortcutKeys 属性
获取或设置与 ToolStripMenuItem 关联的快捷键.
使用 ShortcutKeys 属性可以将组合键分配给菜单命令,例如,将 Ctrl+C 分配给"复制"命令. 您可以使用快捷键而不使用访问键,也可以同时使用快捷键和访问键,访问键是菜单或菜单项中与 Alt 键一起使用的带下划线的字母. 通过在要用于访问键的字母前面键入一个"and"符 (),可以在代码中定义访问键.
以上就是土嘎嘎小编为大家整理的vb.net菜单按钮相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！