[求助] 如何判断窗口是否最小化了啊???----急! - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助] 如何判断窗口是否最小化了啊???----急!

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2717 人关注过本帖

标题：[求助] 如何判断窗口是否最小化了啊???----急!

只看楼主加入收藏

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

楼主

问题点数：0 回复次数：7

[求助] 如何判断窗口是否最小化了啊???----急!

我在vb窗口中放了一个控件,但我想该控件能够随窗口的大小变化,可是在主窗口的下端又必须保持一段空白区域显示有关信息,也就是控件的高度始终要不主窗口的高度小一个固定的值,比如说500,我是在主窗口是高度上减去500,把值赋给控件的高度,问题也就出在这里,当我把窗口调到小于500或最小化时就会提示出错!

请各位帮我想想办法,用什么办法啊可以解决,在这里向大家求助"判断窗口是否最小化的方法"是为了当窗口最小化时就不执行改变控件高度的代码,毕竟谁不会闲着没事把窗口拉到那么小!

先谢谢各位了,小弟急需,请高手指点!万分感激!!~~~~~~~~~~

[此贴子已经被静夜思于2005-11-19 10:43:34编辑过]

搜索更多相关主题的帖子: 窗口　控件　高度　判断　

2005-11-19 10:42

weinizhizhuo

等　级：新手上路
帖　子：4
专家分：0
注　册：2005-11-19

第 2 楼

得分:0

你可以通过查看窗体的属性来判断窗体是否最小化了

2005-11-19 11:23

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 3 楼

得分:0

刚接触VB,你说的好象有道理,但我不知道该怎么判断,说具体点好吗,谢了!!

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2005-11-19 11:56

griefforyou

等　级：贵宾
威　望：27
帖　子：3336
专家分：0
注　册：2004-4-15

第 4 楼

得分:0

Private Sub Form_Resize()
'可以用忽略错误的方法避免
On Error Resume Next

'或者判断窗体状态
If me.WindowState<>1 Then '为1时为最小化
...
End If
End Sub

天津网站建设 http://www./

2005-11-19 12:32

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 5 楼

得分:0

Private Sub Form_Resize()
If Me.WindowState = 1 Then '如果窗口是最小化的话

Else

End If
End Sub

快上课了……

2005-11-19 12:39

leon2

等　级：新手上路
威　望：7
帖　子：731
专家分：0
注　册：2005-3-18

第 6 楼

得分:0

Private Sub Form_Resize()
If Me.WindowState = vbMinimized Then Exit Sub
If Me.Height < 500 Then
Me.Height = 600
Exit Sub
End If
你的控件名.Height = Me.Height
End Sub

2005-11-19 12:57

阳光白雪

等　级：贵宾
威　望：39
帖　子：2220
专家分：0
注　册：2005-11-18

第 7 楼

得分:0

多谢大家，解决了！

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

2005-11-19 13:10

cdma007

等　级：新手上路
帖　子：1
专家分：0
注　册：2020-9-7

第 8 楼

得分:0

以下是引用slore在2005-11-19 12:39:00的发言：

Private Sub Form_Resize() If Me.WindowState = 1 Then '如果窗口是最小化的话 Else End If End Sub

If Me.WindowState = 1 Then '如果窗体最小化则
WebBrowser1.Height = 10695
WebBrowser1.Width = 9295
Else ‘否则随着窗体变化而变化
WebBrowser1.Move 50, 600, Me.ScaleWidth - 100, Me.ScaleHeight - 800
End If

2020-09-07 14:24

快速回复：[求助] 如何判断窗口是否最小化了啊???----急!