有关根据分辨率自动调整窗口大小问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 有关根据分辨率自动调整窗口大小问题。

共有7820人关注过本帖树形打印复制链接主题：有关根据分辨率自动调整窗口大小问题。

baoxyang

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

等级：狐精帖子：3313 积分：23134 威望：0 精华：1 注册：2009/3/31 11:25:00

有关根据分辨率自动调整窗口大小问题。 发帖心情

Post By：2011/9/6 10:27:00 [只看该作者]

之前狐爸代码：

例如用1024*768的分辨率设计了一个独立或模式窗口，希望在不同分辨率下，能自动缩放窗口，可以设置窗口的AfterLoad事件：

Dim w As Integer = sysinfo.ScreenWidth
Dim h As Integer = Sysinfo.ScreenHeight
With e.Form.BaseForm ‘这行会报错’

.Width = .Width / 1024 * w
.Height = .Height /768 * h
End With

以上代码With e.Form.BaseForm 改成 e.form 但窗口不会随分辨率变化而变化。

请教，哪里有问题？

狐狸爸爸

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

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/9/6 10:29:00 [只看该作者]

用这个看看:

jacksn

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

等级：幼狐帖子：106 积分：1002 威望：0 精华：0 注册：2012/9/6 14:13:00

Post By：2013/5/28 14:55:00 [只看该作者]

可是如果我的窗口是共享窗口呢，怎么处理呢？

主题：有关根据分辨率自动调整窗口大小问题。