| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2720 人关注过本帖
标题:[求助] 如何判断窗口是否最小化了啊???----急!
只看楼主 加入收藏
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
 问题点数:0 回复次数:7 
[求助] 如何判断窗口是否最小化了啊???----急!
我在vb窗口中放了一个控件,但我想该控件能够随窗口的大小变化,可是在主窗口的下端又必须保持一段空白区域显示有关信息,也就是控件的高度始终要不主窗口的高度小一个固定的值,比如说500,我是在主窗口是高度上减去500,把值赋给控件的高度,问题也就出在这里,当我把窗口调到小于500或最小化时就会提示出错!

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

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

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

搜索更多相关主题的帖子: 窗口 控件 高度 判断 
2005-11-19 10:42
weinizhizhuo
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2005-11-19
收藏
得分:0 

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

2005-11-19 11:23
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 
刚接触VB,你说的好象有道理,但我不知道该怎么判断,说具体点好吗,谢了!!

专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-11-19 11:56
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分: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
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
Private Sub Form_Resize()
If Me.WindowState = 1 Then '如果窗口是最小化的话

Else

End If
End Sub

快上课了……
2005-11-19 12:39
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分: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
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

多谢大家,解决了!


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2005-11-19 13:10
cdma007
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2020-9-7
收藏
得分:0 
以下是引用slore在2005-11-19 12:39:00的发言:

<FONT color=#000080>Private Sub</FONT> Form_Resize()<BR><FONT color=#000080>If</FONT> Me.WindowState = 1 <FONT color=#000080>Then</FONT> <FONT color=#008000>'如果窗口是最小化的话</FONT><BR><BR><FONT color=#000080>Else</FONT><BR><BR><FONT color=#000080>End</FONT> <FONT color=#000080>If</FONT><BR><FONT color=#000080><FONT color=#000080>End</FONT> Sub</FONT>

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
快速回复:[求助] 如何判断窗口是否最小化了啊???----急!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026364 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved