锐客网

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

vb.net图形按钮 vb怎么画命令按钮( 二 )

IT技术窗口


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
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("路径")打开指定程序
先列出这些吧
在vs2012下 ， vb.net中点击一个按钮，就会打开一个指定位置的cad图形 ， 然后可以在里面画图，vb.net图形按钮你是要操作cad文件vb.net图形按钮？网上有操作dxf或dwg格式的代码，你看看dxf的格式吧，是明码的 。
简单的点线这些好实现，但要尺寸标注或其它的就要麻烦些
vb.net怎么编写图片按钮 ， 如图MouseEnter鼠标进入
MouseLeave鼠标离开
PictureBox1.ImageLocation =“路径"
vb.net图形按钮的介绍就聊到这里吧 ， 感谢你花时间阅读本站内容，更多关于vb怎么画命令按钮、vb.net图形按钮的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：美剧下载，太平洋战争美剧下载

下一篇：视频号直播怎么贴纸，视频号直播贴图