189 8069 5689
又见面了，我研究下combbox控件的基础代码，然后重写试试，现在也不会（第二个）。（如果有答案我也想看看O(∩_∩)O~）
创新互联主要从事网站设计制作、成都网站制作、网页设计、企业做网站、公司建网站等业务。立足成都服务聊城,10年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575
第一个，在paint中写。
（文本框，自己写的）
e. Graphics.drawimage(iconimage,New Rectangle(new point(),new size(20,20)))
代码随手写的，数据微调下，20是文本框的高度。加载名为iconimage的bitmap对象，20*20的小图标。
用格式转换器(格式工厂)把ico格式转换成其他可识别的格式
然后在添加
下一步(你的意思是要在界面设计中 往窗体上添加工具栏吗?)
工具箱中 ---- 菜单和工具栏 ----- MenuStrip
窗体上方出现 '请再次键入'(vs2010中) 的框框 点一下就可以放"打开"什么的了
右面属性中找到Image属性.可以更改你自己的图片了.
知道了吗?
还有疑问你就追问 ````赫赫
您好，看到您的问题很久没有人回答，但是问题过期无人回答会被扣分并且你的悬赏分也会被没收！所以我给你提几条建议： 1，提问要尽量完整清晰不要有生僻的字，回答者一点都不知道你的情况如果你的问题也不清楚的话回答者就不知道你说的是什么，就谈不上回答你的问题了。 2，提问时不要一次性提很多相同的问题，提相同的问提让人看着很有压力很烦恼，甚至会认为你作弊的。所以一个问题提一次请出简明即可。 3，提问者应该尊重回答者，别人不是你的奴隶必须为你解决问题，所以提问时请注意文明用语！尊重他人的劳动。 4，不要问一些太简单的问题，不要明知故问，这是浪费回答者宝贵的时间啊！且不要问一些涉嫌违规的问题。 5，不要涉及尖端科学 ，问问里只是一些普通的人，如果你提得问题连科学家都没有答案，很难在这里问出答案来 ？ 6，可以多交一些知识渊博的网友，以前的一些较难的题，如果有人回答对了，可以和回答者成为好朋友，经常保留着联系，有问题了可以互相探讨的！ 您可以不采纳我的答案，但请您一定要考虑下我的建议哦！ 谢谢采纳！祝你得到满意的结果！
和IMAGELIST一起使用，用它的INDEX的值来确定TREEVIEW和LISTVIEW的图标
你首先要明确你是要修改的什么图标?
1
.如果你是要修改你编写的程序在生成的EXE的图标那么,你需要到工程属性下面去修改,VB
默认的生成后的EXE的图标为启动窗口的图标,而默认启动窗口为form1
.你可以修改FORM1的图标达到修改生成EXE后的图标.
也可以到
"工程"-"工程1(假定你现在的工程为它)属性"
--"生成(选项卡)"--"应用程序下的图标中选择其它窗体的图标作为EXE的图标"
2.
你要修改的是窗体的图标那么,在窗体属性中(默认在工作平台的右边)找到"Icon"
当鼠标点到它的时候
会出现"..."的按钮,选择你要作为图标的图标文件,就可以了.
窗口边框（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函数。
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("路径")打开指定程序
先列出这些吧