2008年07月20日星期天 [集日]　[旧版首页]

我不介意你恨我	啵一个	一首歌	真爱地图	相反词	来跳舞吧
爱在现实面前	雨霖铃	树叶的崇拜	日不落	完美故事	冰冰
快乐童话	嘟嘟娃娃	路太弯	差一点	让我看着你	客串情人

当前位置：首页 >> VFP专区 >> FOXPRO 创建根据屏幕分辩率自动调整的表单

在线连续剧免费播放: 五星大饭店奋斗血色浪漫家有儿女荣归大明天子连城诀

FOXPRO 创建根据屏幕分辩率自动调整的表单

作者:　发布时间:2006-03-26 >>　 -收藏本页-

　　在一种分辩率下开发的屏幕在另一种分辩率下运行时, 可能与你期望的不同. 一种方案是开发不同分辩率下的多个不同的屏幕, 并在某一分辩率下运行相应的屏幕.在 Visual FoxPro 中, 可以根据当前分辩率动态调整屏幕大小并重新安排对象.
　　在 640x480 分辩率下创建一个新表单. 添加一些文本框, 命令按钮和标签这样的控件到表单.
　　将以下代码放入表单的 Init 事件中和表单中的任何窗口任何容器对象(如页框中的页)的 Init 事件中:(参见代码内容)
　　在表同分辩率下运行表单. 可以观察到它们的自动适应.

·添加到565key网摘 ·添加到vivi收藏 ·添加到网摘中国

·相关代码：

** 假定屏幕是在 640x480 下创建的  
LOCAL lnHeight, lnWidth, lnHeightdiff, lnWidthdiff  
  
lnHeight = 480   && 原分辩率下的控件高度  
lnWidth = 640    && 原分辩率下的控件宽度  
lnHeightdiff = 0 && 保存不同高度的变量  
lnWidthdiff = 0  && 保存不同宽度的变量  
  
IF SYSMETRIC(2) <> lnHeight && 如果目前不是运行于 640x480 分辩率下  
   lnHeightDiff = SYSMETRIC(2) / lnHeight  
   lnWidthDiff = SYSMETRIC(1) / lnWidth  
  
** 如果是在容器对象(如页框中的页等非表单且具有 ControlsCount 属性的容器)的 Init 事件中, 你需要注  
** 释掉以下代码直到 ENDIF 代码行.  
  
   This.Height = This.Height * lnHeightDiff  
   This.Width = This.Width * lnWidthDiff  
   This.Top = This.Top * lnHeightDiff  
   This.Left = This.Left * lnHeightDiff  
  
** 遍历各对象, 重新调整和安排它们.  
  
   FOR i = 1 TO This.ControlCount  
      WITH This.Controls(i)  
         .Height = .Height * lnHeightdiff  
         .Width = .Width * lnWidthdiff  
         .Top = .Top * lnHeightdiff  
         .Left = .Left * lnWidthdiff  
  
** 你也可以在这里修改 FontSize 属性来重调字体  
** IF TYPE(".FontSize") # "U"  
**    && IF 用于确保控件具有 FontSize 属性  
**    .FontSize = .FontSize * ((.5 * lnWidthdiff) + (.5 * lnHeightdiff))  
** ENDIF  
** 但是, 一些较高的屏幕分辩率会适当地修改字体外观, 因此在试以上代码前应进行测试.  
  
      ENDWITH  
   ENDFOR  
ENDIF  
  
ThisForm.Refresh()