锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net美化按钮图标 vb美化界面( 二 )

IT技术Mybatis5


函数原型：BOOL UnregisterHotKey（HWND hWnd，int id）；
参数：
hWnd：与被释放的热键相关的窗口句柄 。若热键不与窗口相关，则该参数为NULL 。
id：定义被释放的热键的标识符 。
返回值：若函数调用成功，返回值不为0 。若函数调用失败，返回值为0 。若要获得更多的错误信息，可以调用GetLastError函数 。
1、首先定义所需要用到的常量
如图所示，在窗体代码后定义常量和API函数
代码如下：
Public Const WM_HOTKEY As Integer = H312
Public Const MOD_ALT As Integer = H1
Public Const MOD_CONTROL As Integer = H2
Public Const MOD_SHIFT As Integer = H4
Public Const GWL_WNDPROC As Integer = (-4)
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
下面过程是注册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
【vb.net美化按钮图标 vb美化界面】MsgBox("注册热键Ctrl+T失败")
End If
End Sub
[apge]
下面过程为重载WndProc过程，响应热键并处理热键，这里是用来隐藏和显示程序主界面 。
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = WM_HOTKEY Then
System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")'运行当空接龙游戏
End If
MyBase.WndProc(m)
End Sub
最后在关闭窗体的时候释放占用的热键，如果前面注册失败的话，则会出现释放失败的结果 。
Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
Dim isResult As Boolean
isResult=UnRegisterHotKey(Handle, 0)
End Sub
双击打开指定的程序
Private Sub Label1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.DoubleClick
System.Diagnostics.Process.Start("C:\WINDOWS\system32\freecell.exe")
End Sub
System.Diagnostics.Process.Start("路径")打开指定程序
先列出这些吧
VB中.怎么设置按钮的自定义形状哦我给你几种我的做法吧
其实vb本身的按钮就可以设置为图片的这样你就可以在上面添加些图片 能起到一定的美化作用
具体做法这样添加一个按钮控件到窗体上然后选择按钮的style属性设置为1然后到downpicture就可以添加图片了
还有种方法就是如果你希望你的按钮在按下时候能动哪就直接添加个Image控件就型了 按钮触发的代码就写在Image的click事件里就可以替代按钮了再添加2个Picture控件然后在Image的MouseMove或者MouseMove里写上装载Picture里的图片这样就可以在你移动鼠标时图片就动了 当然你还得编写当鼠标离开它的时把图片重新装载回来 否则就停哪不动了
只要你自己肯动脑子其实都很简单的不一定非得用那个按钮控件的啊实在不行可以找些现成的按钮控件也可以
VB按钮美化使用AresButtonPro控件可以达到这样vb.net美化按钮图标的效果,vb.net美化按钮图标我自己就是这么做的.该控件可以添加四种(normal,over,Down,disabled)图片的,而且在effects中可以改变按钮表面效果(比如,内阴影外阴影)等.我的做法是,用PS做几种图,背景弄成该控件的容器的颜色,这样形状就可以达到我要的形状vb.net美化按钮图标了.然后吧over(就是鼠标移动到控件表面而不点击)时做成另外一种图样,那么就达到vb.net美化按钮图标了动态的效果.点击时用AresButtonPro控件中effects中的button1属性,达到按下的效果.

推荐阅读


上一篇：sqlserver数据库的z，sqlserver数据库使用教程

下一篇：虎牙手机直播观看掉线，虎牙手机直播观看掉线什么原因