| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3715 人关注过本帖, 1 人收藏
标题:vfp 表单大小改变
只看楼主 加入收藏
sl亮哥
Rank: 1
等 级:新手上路
帖 子:44
专家分:5
注 册:2013-4-22
结帖率:88.89%
收藏(1)
已结贴  问题点数:5 回复次数:8 
vfp 表单大小改变
vfp6.0表单大小假设从640*480变为800*600,有没有简单方法让控件同比例增大??
搜索更多相关主题的帖子: 表单 简单方法 
2013-04-29 19:58
mzq
Rank: 2
等 级:论坛游民
威 望:1
帖 子:28
专家分:95
注 册:2013-3-22
收藏
得分:3 
回复 楼主 sl亮哥
&&&&&&&&& 根据象素自动调整大小 Start .&&&&&&&&&&&
Local OldHeight ,OldWidth,ChangeHeight,ChangeWidth
OldHeight=600
OldWidth=800
ChangeHeight=0      &&新解析度与800*600解析度的高度差
ChangeWidth=0       &&新解析度与800*600解析度的宽度差
Sysmetric(1)       &&取得目前解析度的高度
Sysmetric(2)       &&取得目前解析度的宽度
If Sysmetric(1)#OldWidth
   ChangeHeight=Sysmetric(2)/OldHeight
   ChangeWidth=Sysmetric(1)/OldWidth           
   **变更每一个控件的大小
   For i=1 to This.ControlCount
       With This.Controls(I)
            .Height=.Height*ChangeHeight
            .Width=.Width*ChangeWidth
            .Top=.Top*ChangeHeight
            .Left=.Left*ChangeWidth
       EndWith
   EndFor
   **变更表单外框
   With ThisForm      
      .Height=.Height*ChangeHeight
      .Width=.Width*ChangeWidth
      *.Top=.Top*ChangeHeight
      *.Left=.Left*ChangeWidth
      *.top=abs(Sysmetric(2)-.Height)/2
      *.left=(Sysmetric(1)-.width-8*ChangeWidth)/2
      .autocenter=.t.
   EndWith
Endif
ThisForm.Refresh
2013-04-29 21:32
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:1 
用 9.0 吧。比6.0 简单很多。 将表单设为:自动居中和最大化。表单init 写入下列代码。
然后改变显示屏的显示率,看看表单怎样随显示屏大小的改变而变化。
(用鼠标拖拉缩放表单,看看有无变化)
    IF SYSMETRIC(1)<>THIS.WIDTH
   FOR I=1 TO THIS.CONTROLCOUNT  
       WITH THIS.CONTROLS(I)
            IF TYPE(".ANCHOR")#"U" && 大写 U
               .ANCHOR=240  
            ENDIF        
         IF TYPE(".FONTSIZE")#"U" && 大写 U
               .FONTSIZE=MAX(MIN(.FONTSIZE*(SYSMETRIC(1)/THIS.WIDTH),125),5)   
        ENDIF
     ENDWITH   
 ENDFOR
 ENDIF

[ 本帖最后由 qingfameng 于 2013-4-30 02:15 编辑 ]
2013-04-30 00:22
sl亮哥
Rank: 1
等 级:新手上路
帖 子:44
专家分:5
注 册:2013-4-22
收藏
得分:0 
回复 2楼 mzq
写在每个表单中的init事件中???
2013-04-30 09:22
sl亮哥
Rank: 1
等 级:新手上路
帖 子:44
专家分:5
注 册:2013-4-22
收藏
得分:0 
回复 3楼 qingfameng
呵呵,9.0确实好用,不过毕业设计老师要求我们用6.0
2013-04-30 09:23
taohua300
Rank: 12Rank: 12Rank: 12
来 自:光
等 级:贵宾
威 望:14
帖 子:1636
专家分:3906
注 册:2009-3-11
收藏
得分:1 
工具 - 选项 - 表单 - 最大设计区域

个性太多,无法显示
2013-04-30 09:45
mzq
Rank: 2
等 级:论坛游民
威 望:1
帖 子:28
专家分:95
注 册:2013-3-22
收藏
得分:0 
回复 4楼 sl亮哥
从类库中修改表单类
2013-04-30 21:00
fnxyy
Rank: 1
等 级:新手上路
帖 子:8
专家分:5
注 册:2009-3-25
收藏
得分:0 
3楼的方法简单可行,用在9.0中比2楼可靠,顶一个
2013-12-29 10:17
zhjhxygs0310
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-12-5
收藏
得分:0 
回复 楼主 sl 亮哥
vfp9.0 表单 init
FOR I=1 TO THIS.CONTROLCOUNT  
  WITH THIS.CONTROLS(I)
    IF TYPE(".ANCHOR")#"U"
      .ANCHOR=240  
    ENDIF     
     IF ATC('oup',THIS.CONTROLS(I).baseclass)>0
      FOR j=1 TO THIS.CONTROLS(I).BUTTONCOUNT
         WITH THIS.CONTROLS(I).BUTTONS(j)
          IF TYPE(".ANCHOR")#"U"
            .ANCHOR=240  
          ENDIF        
        ENDWITH
      ENDFOR
     ELSE  
    ENDIF      
  ENDWITH   
ENDFOR
2014-12-05 11:28
快速回复:vfp 表单大小改变
数据加载中...
 
   



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

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