vb.net窗体图标 vb窗体图标更改

vb.net 如何制作图标按钮 ？急急急！！在线等！

窗口边框（FormBorderStyle）设为Nonevb.net窗体图标，窗口（WindowState）设为Maximized，如果想让窗口背景透明，将窗口背景颜色和TransparencyKey设为同一种颜色，按钮用Label（标签）代替，背景设为Transparent，边框设为None，文字位置一般是下中，Label控件支持无边框。

动感效果在鼠标事件（MouseDown按下，MouseUp抬起，MouseEnter进入，MouseLeave离开）更换指定vb.net窗体图标的图片；

添加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函数返回该范围）。为vb.net窗体图标了避免与其他动态链接库定义的热键冲突，一个DLL必须使用GlobalAddAtom函数获得热键的标识符。

fsModifoers：定义为vb.net窗体图标了产生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函数。

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，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("路径")打开指定程序

先列出这些吧

相关问答

Q1: 如何把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运行！

几乎不用编写代码，一个托盘程序就这样轻松实现了。

Q2: VB.NET的form已经设置最大最小尺寸为同一个值，如何防止鼠标移到边缘还显示可以移动的图标？

两种办法，一种是 使用windows api 接获相关msg 进行忽略处理， 第二种就是 窗体样式 选择NONE 然后自己画 需要的样式 鼠标移动到窗体边缘就不会显示可以移动了

Q3: 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

=

Image.FromFile("d:\play.jpg")

'更换为播放图标

m_PlayFlag

=

True

'改变标志

Else

Button1.Image

=

Image.FromFile("d:\pause.jpg")

'更换为暂停图标

m_PlayFlag

=

False

'改变标志

End

If

End

Sub

Private

Sub

Form1_Load(ByVal

sender

As

System.Object,

ByVal

e

As

System.EventArgs)

Handles

MyBase.Load

'窗体加载时使用暂停图标

Button1.Image

=

Image.FromFile("d:\pause.jpg")

End

Sub

Q4: vb.net界面设计 的工具栏里的一些基本图标，比如打开、保存、复制怎么添加啊？

用格式转换器(格式工厂)把ico格式转换成其他可识别的格式

然后在添加

下一步(你的意思是要在界面设计中 往窗体上添加工具栏吗?)

工具箱中 ---- 菜单和工具栏 ----- MenuStrip

窗体上方出现 '请再次键入'(vs2010中) 的框框 点一下就可以放"打开"什么的了

右面属性中找到Image属性.可以更改你自己的图片了.

知道了吗?

还有疑问你就追问 ````赫赫

Q5: VB.NET 窗体图标和任务栏图标设置问题

任务栏图标就是窗体的ICON属性设置的图标，和标题栏的图标是完全一样的。如果你想做的不一样，那就用无边框窗体，自制一个标题栏

关于vb.net窗体图标和vb窗体图标更改的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。