如何将窗体最小化至任务栏中???? 各位大侠:帮小弟一下,我记得好象可以调用一个API函数可以实现将窗体最小化至任务栏中,但我忘记了!希望各位大侠帮帮忙告诉我是如何解决这个问题! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我认为没有必要调用API!你只要在代码加入一些语句就行:当窗口最小化是加入 me.visible=false当窗口不是最小化是加入 me.visible=true这样就可以达到你要的效果!!!!!楼主不防试试!!! 如何做到当我们单击窗体的最小化和关闭按钮时,窗体先最小化到任务栏成为按钮,然后消失呢?金山词霸能做到,我们也可以做到。只要我们能截获这两个事件发送给窗体的消息,然后换成我们自定义的过程,问题就解决了。首先,用CloseWindow使窗体最小化;然后,用Form1.Visible = False使窗体消失。这两个事件共用一个消息:WM_SYSCOMMAND,不同的是传递给窗口函数的wp参数。为取得这两个事件的wp参数,有两个方法1、用vb的常数,这是一些以SC_为前缀的常数(S代表SYS,C代表COMMAND)2、编程取得它们,事实上,我采用的是这种方法。在窗口放两个文本框,当任何WM_SYSCOMMAND消息发生时,先在文本框里显示wp和lp的值,很容易的发现,单击最小化按钮时,wp=61472;单击关闭按钮时,wp=61536。现在就可以开始编程了。为了实现对窗体的子类处理,采用MsgHook32控件。源代码如下:Option Explicit' API函数声明Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long' 常数声明Private Const WM_SYSCOMMAND = &H112Private Sub Form_Load()Msghook1.HwndHook = Form1.hwnd' 将Msghook1绑定到Form1上Msghook1.Message(WM_SYSCOMMAND) = True' Msghook1拦截WM_SYSCOMMAND消息End SubPrivate Sub Msghook1_Message(ByVal msg As Long, ByVal wp As Long, ByVal lp As Long, result As Long)Text1.Text = wpText2.Text = lpIf wp = 61472 Or wp = 61536 Then' 单击的是最小化或关闭按钮CloseWindow Form1.hwnd' 最小化窗口Form1.Visible = False' 使窗口消失Unload Form1' 卸载窗口。如果有通知栏图标,就不用卸载窗口ElseCall Msghook1.InvokeWindowProc(msg, wp, lp)' 其他的事件由默认窗口函数处理End IfEnd Sub不仅是单击窗口右上角的按钮,其实,在系统菜单里选择最小化和关闭菜单项,也有同样的效果。 水星无线路由器设置问题?哪位知道怎么解决? 如何保证同一个对象的IUnknow接口的一致性。 读取内存时十六进制处理转换问题 关于类和集合的问题 短信问题 怎样用vb编写activedll控件,谁能给我个例子? 请问,急急!谢谢,谢谢!! 一个奇怪的问题:关于根据时间对数据库进行筛选 在VB 中有没有像Delphi 那样皮肤控制,免费或商用,请高手推荐 怎样将一个窗体文本框里的内容显示在另一个窗体的下拉列表里??!! 在线等待 关于ie浏览器问题 请问怎样才能获得服务器端的时间
你只要在代码加入一些语句就行:
当窗口最小化是加入 me.visible=false
当窗口不是最小化是加入 me.visible=true这样就可以达到你要的效果!!!!!楼主不防试试!!!
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long' 常数声明
Private Const WM_SYSCOMMAND = &H112Private Sub Form_Load()
Msghook1.HwndHook = Form1.hwnd
' 将Msghook1绑定到Form1上
Msghook1.Message(WM_SYSCOMMAND) = True
' Msghook1拦截WM_SYSCOMMAND消息
End SubPrivate Sub Msghook1_Message(ByVal msg As Long, ByVal wp As Long, ByVal lp As Long, result As Long)
Text1.Text = wp
Text2.Text = lp
If wp = 61472 Or wp = 61536 Then
' 单击的是最小化或关闭按钮
CloseWindow Form1.hwnd
' 最小化窗口
Form1.Visible = False
' 使窗口消失
Unload Form1
' 卸载窗口。如果有通知栏图标,就不用卸载窗口
Else
Call Msghook1.InvokeWindowProc(msg, wp, lp)
' 其他的事件由默认窗口函数处理
End If
End Sub不仅是单击窗口右上角的按钮,其实,在系统菜单里选择最小化和关闭菜单项,也有同样的效果。