以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有关根据分辨率自动调整窗口大小问题。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12516)
--  作者：baoxyang
--  发布时间：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  但窗口不会随分辨率变化而变化。

请教，哪里有问题？

 
--  作者：狐狸爸爸
--  发布时间：2011/9/6 10:29:00
--  

用这个看看:

http://www.foxtable.com/help/topics/2312.htm

 
--  作者：jacksn
--  发布时间：2013/5/28 14:55:00
--  
可是如果我的窗口是共享窗口呢，怎么处理呢？