您的位置：程序门 -> vb -> 基础类

frame适应界面大小的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

frame适应界面大小的问题[已结贴,结贴人:no001]

发表于：2007-01-16 14:59:12 楼主

我想让界面上的frame随着界面大小的变化而自适应大小

好像不能用resize（)

请大侠指教

发表于：2007-01-16 15:13:061楼得分:0

在resize里写代码来控制尺寸

发表于：2007-01-16 15:17:492楼得分:0

关键是frame里没有resize（)这个方法

发表于：2007-01-16 15:27:573楼得分:5

在form 的 resize 中控制 frame 的大小

发表于：2007-01-16 16:43:024楼得分:5

例子
private sub form_resize（)
on error resume next
'当窗体调整时会调整网格

datagrid1.width = me.scalewidth - 200
datagrid1.height = me.scaleheight - 1100
command1.left = me.scalewidth - command1.width - 100
command1.top = me.scaleheight - 400
end sub

发表于：2007-01-16 17:36:055楼得分:5

下面这组代码你试试,偶也正在用:
private sub form_load（)
'窗体高度等于屏幕高度的六分之一
form1.height = screen.height / 6
'窗体宽度等于屏幕宽度的六分之一
form1.width = screen.width / 6
end sub

private sub form_resize（)
frame1.move 0, 0, scalewidth, scaleheight
end sub

发表于：2007-01-16 17:54:046楼得分:5

option explicit

private sub form_resize（)
frame1.left = 0
frame1.top = 0
frame1.width = me.scalewidth
frame1.height = me.scaleheight
end sub

下一篇：奇怪现象：分页设置怎么不好使呀？
上一篇：如何加快listview读取数据的速度！

其他资讯