如何设置窗口隐藏

Question

如何在vb中做到像msn那样，关闭窗口后在右下角有个图标。

Answer 1

在Unload事件中做Hide
使用API将程序放到托盘就OK了~

Answer 2

http://expert.csdn.net/Expert/topic/2574/2574265.xml?temp=.2977716

Answer 3

能不能说的具体一点。
怎样使用API将程序放到托盘？？？
多谢！！！

Answer 4

http://www.zjol.com.cn/vbbible/software/program/vb/vb_vbtray.htm
用 Visual Basic编写托盘程序用"托盘 vb"作为关键字在google中搜索，你会找到很多这样的文章和程序

Answer 5

http://www.devpower.com
這個站的哪個地方，忘記了，不過國內蠻多站有下的。
Private Sub Form_Unload(Cancel As Integer)   Cancel = Not mreal_end
   If Cancel = False Then
    
   Else
     Me.Hide
 
   End If
End Sub

Answer 6

http://www.devpower.com/trayicon就這個，在眼邊居然看不了

Answer 7

把图标放在WINDOWS的系统托盘中在系统托盘中的图标又被称作“提示图标”（NotifyIcon）。这个小小的图标不仅可以启动程序，还可用来显示程序运行的状态。一个 hWnd被用来接收鼠标在提示图标上时所产生的事件所发出的消息。但如果用此方法，可能会触发其它控件的MouseMove 事件。在本例中，使用一个PictureBox来接收来自鼠标的消息。真正的事件被包含在MouseMove事件中的X参数中，然后通过代码来I 提取每一个事件。同时你还必须指定要显示图标的句柄。使用PictureBox的DragIcon属性可以轻松地实现。为了产生一个提示图标，你必须首先将图标的有关信息储存在一个自定义类型变量中。然后调用Shell_NotifyA。当创建了一个提示图标 后所有的鼠标事件将触发在PictureBox上的MouseMove事件。请注意在程序结束后删除提示图标。首先在你的窗体上放置一个PictureBox。本例假设该控件名为Picture1。将其Visible属性设为False。将其DragIcon属性设定为你想要显示的To 图标文件。使用下面的代码在Form_Load事件中创建提示图标。在Form_Unload事件中删除提示图标。把下面的代码放在一模块的声明段中。DefInt A-ZDeclare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongType NOTIFYICONDATA
     cbSize As Long
     hwnd As Long
     uID As Long
     uFlags As Long
     uCallbackMessage As Long
     hIcon As Long
     szTip As String * 64
End Type' commands & flags for NotifyIcons
Global Const NIM_ADD = &H0&
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI as NOTIFYICONDATA创建提示图标将下面的代码放在Form_Load事件中以产生一个提示图标。所有的鼠标事件都将会传递到PictureBox的MouseMove事件中。' stock NOTIFYICONDATA structure
NI.cbSize = Len(NI) 'length of this structure       
NI.hWnd =Picture1.hwnd 'control to receive messages      
NI.uID = 0 ' uniqueID
NI.uFlags = NIF_MESSAGE or NIF_ICON or NIF_TIP ' Operation Flags
NI.uCallbackMessage = WM_MOUSEMOVE ' message to send to control 
NI.hIcon = Picture1.DragIcon ' handle to Icon
NI.szTip = "My Tool Tip" + Chr$(0) ' Tool Tip ' 必须给提示图标分配一个唯一的ID号
' so increment until creation is successfulDo
    NI.uID = NI.uID + 1
    result = Shell_NotifyIconA(NIM_ADD, NI)
Loop While result = 0修改提示图标Modifying NOTIFYICON下面的例子可以修改图标NI.hIcon = Picture2.DragIcon
NI.szTip = "Different Tool Tip" + Chr$(0)            
' modifies an existing NotifyIcon      
result = Shell_NotifyIconA(NIM_MODIFY, NI)删除提示图标Deleting NOTIFYICON将下面的代码放在Form_Unload事件中' 删除已有的提示图标
result = Shell_NotifyIconA(NIM_DELETE, NI)下面的代码放在 PictureBox的MouseMove事件中' 从提示图标接收消息
' 消息通过X参数传递Dim Msg as Long
     Msg = (X And &HFF) * &H100
     Select Case Msg           Case 0 ' 鼠标移动
                 ' 在此输入你的代码           Case &HF00 ' 鼠标左键被按下
                 ' 在此输入你的代码           Case &H1E00 ' 
                 ' 在此输入你的代码            Case &H2D00 ' 双击鼠标左键
                 ' 在此输入你的代码            Case &H3C00 ' 鼠标右键被按下
' 在此输入你的代码            Case &H4B00 ' 鼠标右键弹起
' 在此输入你的代码            Case &H5A00 ' 双击鼠标右键
                 ' 在此输入你的代码     End Select