锐客网

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

vb.net窗体图标 vb窗体图标更改( 二 )

IT技术调用


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，vb.net窗体图标我们可以根据返回的结果判断并提醒用户注册的情况 。
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("路径")打开指定程序
先列出这些吧
如何把VB.NET程序最小化到托盘图标区VB.NET编写托盘程序
托盘程序作为一类特殊的窗体，其快捷图标显示在
系统托盘
中 ， 窗体本身则隐藏不可见 。在.NET之前版本的VB中编写托盘程序是十分困难的，但是VB.NET提供的新的NotifyIcon组件却使VB初学者也能轻松编写一个这样的程序：
新建“Windows应用程序”，设置主窗体Opacity属性为0 ， FormBorderStyle属性为None，ShowInTaskbar属性为
False，这样窗体将在启动后隐藏 。在窗体上放置一个NotifyIcon组件NotifyIcon1，一个ContextMenu（弹出菜单）组件
ContextMenu1，并根据需要为ContextMenu1添加菜单项 。
设置NotifyIcon1的ICON属性，这个图标就是应用程序出现在系统托盘中的快捷图标；设置NotifyIcon1的Text属性为“VB.NET托盘程序” ， 这就是鼠标移动到托盘图标时弹出的文字说明；设置NotifyIcon1的ContextMenu属性为ContextMenu1，也就是右键单击快捷图标时的弹出菜单为
ContextMenu1 。OK，按F5运行！
几乎不用编写代码，一个托盘程序就这样轻松实现了 。
VB.NET的form已经设置最大最小尺寸为同一个值，如何防止鼠标移到边缘还显示可以移动的图标？两种办法，一种是 使用windows api 接获相关msg 进行忽略处理 ，  第二种就是 窗体样式 选择NONE 然后自己画 需要的样式 鼠标移动到窗体边缘就不会显示可以移动了
VB.net如何实现点击按钮两种图标进行互换，就像播放器开始暂停一样?'在窗体上添加一个按钮测试
Private
m_PlayFlag
As
Boolean
=
False
'是否正在播放
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.EventArgs)
Handles
Button1.Click
If
m_PlayFlag
=
False
Then
Button1.Image
=

推荐阅读


上一篇：云监控下载，云监控下载软件

下一篇：oracle用户表空间配额，oracle设置用户表空间