用VB设计能适应各种显示属性的界面

用VB设计能适应各种显示属性的界面用VB设计能适应各种显示属性的界面考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程在设计一般应用软件时，总希望设计的软件,无论显示器分辨率设置是640X480,800X600还是1024X768,无论显示器设置是在大字体还是小字体软件都能正常运行，并且有美观一致的界面。本人在用VB5.0设计《英语集成训练系统V2.0》时，亦遇到这样的麻烦。下面解释克服这一问题的方法。一:使界面居中为了使界面元素能在各种显示分辨率下均有合理的布局，一种方法就是获取当前显示分辨率...

用VB设计能适应各种显示属性的界面考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程在设计一般应用软件时，总希望设计的软件,无论显示器分辨率设置是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事件中调用下列子程序，调整各控件的位置与大小: 专业提供提供各大机构考研、公务员、四六级辅导视频课考研屋 www.kaoyanwu.com 提供各大机构考研、公务员、四六级辅导视频课程 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 考研屋www.kaoyanwu.com :提供各大机构考研、公务员、四六级辅导视频课程专业提供提供各大机构考研、公务员、四六级辅导视频课

                    本文档为【用VB设计能适应各种显示属性的界面】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

用VB设计能适应各种显示属性的界面

你可能还喜欢