!!!请求托盘代码

Question

因为遇到一个问题一直不能解决，所以就来要一个能够实现点击窗体右上角的最小化或关闭按钮来实现进入托盘的代码，有下载地址也行，谢谢。//如果能帮我解决问题的我会很感激的
http://community.csdn.net/Expert/topic/4183/4183310.xml?temp=.8389856

Answer 1

下一个叶帆的
http://community.csdn.net/Expert/topic/3387/3387552.xml?temp=.416424'注意要加一个End
'如果你想点关闭时也能最小化到托盘，则把CASE 2部分的代码改为 Case 0部分的Private Sub imgTitleButton_Click(Index As Integer)
  '打开错误处理陷阱
  On Error GoTo ErrGoto
  '----------------------------------------------------
  '代码正文
  Dim i As Integer
  Select Case Index
   Case 0                          '最小化
    Me.WindowState = 1
   Case 1                          '最大化
    If Me.WindowState = 0 Then
      Me.WindowState = 2
      imgTitleButton(Index).Picture = imgTitleButtonPic(1).Picture
    Else
      Me.WindowState = 0
      imgTitleButton(Index).Picture = imgTitleButtonPic(0).Picture
    End If
   Case 2                         '关闭
    If Me.WindowState <> 2 Then
      SaveSetting App.Title, "Settings", "X", Str(Me.Left)
      SaveSetting App.Title, "Settings", "Y", Str(Me.Top)
      SaveSetting App.Title, "Settings", "W", Str(Me.Width)
      SaveSetting App.Title, "Settings", "H", Str(Me.Height)
    End If
    Unload Me
    End                 '这里要加一个End
  End Select
  '----------------------------------------------------
   Exit Sub
  '-----------------------------
ErrGoto:End Sub