DropDownForm窗口的尺寸怎么随单元格尺寸变化？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → DropDownForm窗口的尺寸怎么随单元格尺寸变化？

共有8171人关注过本帖树形打印复制链接主题：DropDownForm窗口的尺寸怎么随单元格尺寸变化？

gedogn

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：119 积分：963 威望：0 精华：0 注册：2012/3/30 10:09:00

DropDownForm窗口的尺寸怎么随单元格尺寸变化？ 发帖心情

Post By：2012/6/14 17:20:00 [只看该作者]

单元格拉大后，DropDownForm窗口的尺寸怎么适应单元格的尺寸？

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2012/6/14 17:24:00 [只看该作者]

试试:

SetBounds

用于设置窗口的位置和大小，仅对独立窗口和模式窗口有效。
　

语法

SetBounds(x, y, Width, Height)

x: 窗口水平位置
y: 窗口垂直位置
Width: 窗口宽度
Height: 窗口高度

上述参数的单位为像素。

gedogn

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：119 积分：963 威望：0 精华：0 注册：2012/3/30 10:09:00

Post By：2012/6/14 17:35:00 [只看该作者]

谢谢，成功！

总结：先在单元格的PrepareEdit中得到单元格的宽度，存入全局变量中：

以下内容为程序代码:

1 If e.Col.Name="目标列名称" Then
2 Vars("width")=e.Col.Width
3 End If
4

然后在DropDownForm窗口的

以下内容为程序代码:

1 e.Form.SetBounds(0, 0, Vars("width"), 100)
2

dropDownOpening事件中插入：

主题：DropDownForm窗口的尺寸怎么随单元格尺寸变化？