关于工作表最小化

hund567

怎样实现窗体最小化后，工作表同样最小化？窗体最小化我已经实现了。关键是怎样使工作表最小化，多谢！
如果不好解决，那么退一步，如何只显示窗体而不显示其后方的工作表？

hund567

求大神啊！ @amesman

niuhui2009

离窗体还很远，只能远远敬望了

hund567

niuhui2009 发表于 2013-1-29 11:12
离窗体还很远，只能远远敬望了

我也是新手…

yqdaqinqin

一、首先需要一个模块，没有加的话添加一个，在模块的代码页中输入以下部分，注意看我的注释：'以下是做窗体在最小化不显示在任务栏而在通知栏的常量基函数声明
Public Const DefaultIconIndex = 1 '图标缺省索引
Public Const WM_LBUTTONDOWN = &H201 '按鼠标左键
Public Const WM_RBUTTONDOWN = &H204 '按鼠标右键
Public Const WM_LBUTTONDBLCLK = &H203 '双击鼠标左键Public Const NIM_ADD = 0 '添加图标
Public Const NIM_MODIFY = 1 '修改图标
Public Const NIM_DELETE = 2 '删除图标Public Const NIF_MESSAGE = 1 'message 有效
Public Const NIF_ICON = 2 '图标操作（添加、修改、删除）有效
Public Const NIF_TIP = 4 'ToolTip(提示）有效''API函数声明
'图标操作
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'判断窗口是否最小化
Public Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long
'
'设置窗口位置和状态（position）的功能
Public Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long'定义类型
'通知栏图标状态
Public Type 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'===========================================================================二、在你要缩小的窗口代码编辑窗口里定义一个量。如下：'用于标识窗口是否已经按过最小化按纽
Dim MinFlag As Boolean三、下面三个事件分别是判断最小化和任务栏图标右键菜单，双击等效果的。===============================================================rivate Sub Form_Resize()
'判断窗口是否最小化状态，并且是按最小化按纽后第一次发生Resize事件
If IsIconic(Me.hWnd) <> 0 And MinFlag = False Then
MinFlag = Not MinFlag
Me.Visible = False '隐藏窗口
'将窗口图标加入通知栏
Call Icon_Add(Me.hWnd, Me.Caption, Me.Icon, 0)
End If
End Sub'Private Sub m_Menu_Click(Index As Integer)
Select Case Index
Case 0: '当单击"显示窗口"菜单时
Call Icon_Del(Formdl.hWnd, 0) '删除通知栏图标
Formdl.Show '调出窗口
Formdl.WindowState = 0
MinFlag = False
Case 1: '当单击"退出"菜单时
Call Icon_Del(Formdl.hWnd, 0) '删除通知栏图标
End '退出程序
End Select
End Sub'Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim L
L = X \ Screen.TwipsPerPixelX
'点击通知栏图标，用鼠标右键时调出弹出菜单
If L = WM_RBUTTONDOWN Then
Me.PopupMenu m_Main
ElseIf L = WM_LBUTTONDBLCLK Then
Call Icon_Del(Formdl.hWnd, 0) '删除通知栏图标
Formdl.Show '调出窗口
Formdl.WindowState = 0
MinFlag = False
End If
End Sub

hund567

yqdaqinqin 发表于 2013-1-29 11:16
一、首先需要一个模块，没有加的话添加一个，在模块的代码页中输入以下部分，注意看我的注释：'以下是做窗体 ...

果然有高人，辛苦了，多谢！

yqdaqinqin

hund567 发表于 2013-1-29 11:20
果然有高人，辛苦了，多谢！

搞这个就是看起来花哨点，意义不大

hund567

yqdaqinqin 发表于 2013-1-29 11:22
搞这个就是看起来花哨点，意义不大

主要是领导动动嘴，小兵跑断腿…大神你懂得…

李甲

APPLICATION=FALSE                       

w8899

yqdaqinqin 发表于 2013-1-29 11:16
一、首先需要一个模块，没有加的话添加一个，在模块的代码页中输入以下部分，注意看我的注释：'以下是做窗 ...

Type'===========================================================================二、在你要缩小的窗口代码编辑窗口里定义一个量。如下：'用于标识窗口是否已经按过最小化按纽
Dim MinFlag As Boolean三、下面三个事件分别是判断最小化和任务栏图标右键菜单，双击等效果的。===============================================================rivate Sub Form_Resize()