当前位置:主页   - 电脑 - 程序设计 - VB
用VB5.0设计能适应各种显示属性下的界面
来源:网络转载   作者:未知   更新时间:2008-12-04
收藏此页】    【字号    】    【打印】    【关闭
----在设计一般应用软件时,总希望设计的软件,无论显示器分辨率设置是640X480,800X600还是1024X768,无论显示器设置是在大字体还是小字体软件都能正常运行,并且有美观一致的界面。本人在用VB5.0设计《英语集成训练系统V2.0》时,亦遇到这样的麻烦。下面解释克服这一问题的方法。

----一:使界面居中

----为了使界面元素能在各种显示分辨率下均有合理的布局,一种方法就是获取当前显示分辨率,然后根据这一分辨率计算界面各元素的位置和大小,并进行设置。这种方法虽然能解决界面元素布局问题,但需要知道每个元素的位置和大小,程序烦琐。

----我这里采用的方法是:首先设计一个具有极大化,无边界,无标题,无控制盒的窗体,然后在其上放置一个容器控件Picture,在Picture中再放置其它控件。在窗体Load事件中根据当前的显示分辨率居中Picture,从而实现了居中整个界面。具体代码如下:

PrivateSubForm_Load()
CallCenterControl(Picture1)
EndSub
PublicSubCenterControl(objAsObject)
Dimcx,cyAsSingle
cx=(Screen.Width/Screen.
TwipsPerPixelX-obj.Width)/2#
cy=(Screen.Height/Screen.
TwipsPerPixelY-obj.Height)/2#
obj.Left=cx
obj.Top=cy
EndSub

----二:使界面适应大字体与小字体

----Win95在创建控件时,会根据当前显示属性为大字体或小字体来作相应调整。尽管应用程序传送的参数(控件位置和尺寸)是一致的,但实际控件的位置和尺寸在这两种情形下并不一样。如果应用程序仅仅考虑一般小字体的情况,在大字体下界面则十分难看混乱,甚至无法操作。为解决这一问题,首先应了解当前显示器设置,这可通过系统注册表来获取。下面的程序采用了另一种方法:首先在一个映射模式为Pixel的窗体中放置一个控件,在显示属性为小字体的设计环境下首先看一下控件的初始位置x,y,然后在窗体的Load事件中计算出X和Y方向的放大比例xFac,yFac:

PrivateSubForm_Load()
xFac=400#/mmlhwnd.Left
yFac=400#/mmlhwnd.Top
EndSub

----其中,mmllhwnd为放置在窗体中的控件,初始的坐标为400,400。

----最后在各个需要调整界面的窗体Load事件中调用下列子程序,调整各控件的位置与大小:

PublicSubCorrectForm(fmAsForm)
DimCAsControl
ForEachCInfm.Controls
IfTypeOfCIsTimerThen
ElseIfTypeOfCIsCommonDialogThen
ElseIfTypeOfCIsLineThen
C.X1=C.X1*xFac
C.Y1=C.Y1*yFac
C.X2=C.X2*xFac
C.Y2=C.Y2*yFac
Else
C.Left=C.Left*xFac
C.Top=C.Top*yFac
IfTypeOfCIsSSCommandThen
C.Width=C.Width*xFac
C.Height=C.Height*yFac
C.FontSize=C.FontSize*xFac
ElseIfTypeOfCIsCommandButtonThen
C.Width=C.Width*xFac
C.Height=C.Height*yFac
C.FontSize=C.FontSize*xFac
ElseIfTypeOfCIsListBoxThen
C.Width=C.Width*xFac
C.Height=C.Height*yFac
C.FontSize=C.FontSize*xFac
ElseIfTypeOfCIsComboBoxThen
C.Width=C.Width*xFac
C.FontSize=C.FontSize*xFac
EndIf
EndIf
NextC
EndSub

----上述程序中仅列举了几个典型的控件,如果窗体中还有其它类型的控件,仿造上述程序加入对这些控件类型的处理即可。->


其它资源
来源声明

版权与免责声明
1、本站所发布的文章仅供技术交流参考,本站不主张将其做为决策的依据,浏览者可自愿选择采信与否,本站不对因采信这些信息所产生的任何问题负责。
2、本站部分文章来源于网络,其版权为原权利人所有。由于来源之故,有的文章未能获得作者姓名,署“未知”或“佚名”。对于这些文章,有知悉作者姓名的请告知本站,以便及时署名。如果作者要求删除,我们将予以删除。除此之外本站不再承担其它责任。
3、本站部分文章来源于本站原创,本站拥有所有权利。
4、如对本站发布的信息有异议,请联系我们,经本站确认后,将在三个工作日内做出修改或删除处理。
请参阅权责声明