| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 433 人关注过本帖
标题:[求助]窗体(请教)
取消只看楼主 加入收藏
lili_0523
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-12-14
收藏
 问题点数:0 回复次数:1 
[求助]窗体(请教)

窗体的打开大小能自适应吗?该怎么做?
我编了一个程序,编完后显示时,有一些东西由于窗体不够大显示不上,如果设为最大化又有一部分是空的,太难看了!
请教有没有自适应改变窗口大小的办法?
小弟比较菜(麻烦说的详细一点)
谢谢!!

搜索更多相关主题的帖子: 窗体 
2006-12-31 13:39
lili_0523
Rank: 1
等 级:新手上路
帖 子:67
专家分:0
注 册:2006-12-14
收藏
得分:0 

Private Sub Form_load()
Dim mtop As Integer, i As Integer, j As Integer, mleft As Integer
mtop = 0

For i = 1 To 8
mleft = 50
For j = 1 To 8
k = (i - 1) * 8 + j
Load Label1(k)
Label1(k).BackColor = IIf((i + j) Mod 2 = 0, QBColor(0), QBColor(15))
Label1(k).Visible = True
Label1(k).Top = mtop
Label1(k).Left = mleft
mleft = mleft + Label1(0).Width
Next j
mtop = mtop + Label1(0).Height
Next i

End Sub

Private Sub Label1_Click(index As Integer)
Dim tag As Boolean
Label1(index) = index
For i = 1 To 8
For j = 1 To 8
k = (i - 1) * 8 + j
If Label1(k).BackColor = &H0& Then
Label1(k).BackColor = &HFFFFFF
Else
Label1(k).BackColor = &H0&
End If
Next j
Next i

End Sub
上面是源程序,不知道该怎么改
resize知道,但是还不会用,版主的那一段我直接加上去了,没有什么变化


测比表面积及孔径分布http://www./modules/contents_5/front/Product_info.asp?leaf_id=205
2006-12-31 17:03
快速回复:[求助]窗体(请教)
数据加载中...
 
   



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

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