计算机分辨率

【www.zhuodaoren.com--百科】

计算机分辨率一:根据显示器分辨率设置窗口显示位置

软考网权威发布根据显示器分辨率设置窗口显示位置，更多根据显示器分辨率设置窗口显示位置相关信息请访问计算机软件水平考试网。
　　函数名：　change_systemmetrics　　Written by Vial.Z　　参数： w_1 窗口变量 作用： 根据显示器分辨率设置窗口显示位置 调用方法: 在窗口的Open事件中，输入代码change_systemmetrics(this), 如果窗口是继承的，请注意调用的位置。(在父窗口的open调用 可能失效)-----------------------------------------------------*/ integer li_1024bc = 50 /*1024分辨率下的编差值*/integer li_800bc = 50 /*800分辨率下的编差值*/
Integer li_WS_Width /*工作区宽度*/Integer li_WS_Height /*工作区高度*/Integer li_my_Width /*当前窗口宽度*/Integer li_my_Height /*当前窗口高度*/
integer li_system_metrics /*系统分辨率*/
/*w_main是MDI中的主窗口，这里取得其客户显示区的大小(做了适当调整)*/li_WS_Width = w_main.WorkSpaceWidth() -8li_WS_Height = w_main.WorkSpaceHeight() - w_main.dw_statebar.height -8 li_my_Width = w_1.Widthli_my_Height = w_1.Heightli_system_metrics = getsystemmetrics(0) /*取系统分辨率 */choose case li_system_metrics case 640 /* 640×480 下所有窗口有最大化*/ w_1.WindowState = maximized! case 800 /* 800×600*/ if li_my_Width + li_800bc >= li_WS_Width or li_my_Height + li_800bc >= li_WS_Height then w_1.WindowState = maximized!else w_1.WindowState = normal! /*居中*/ w_1.X = ( li_WS_Width - li_my_Width) /2 w_1.Y = (li_WS_Height - li_my_Height ) /2 end ifcase else /* 1024×768 ...*/ if li_my_Width +li_1024bc >= li_WS_Width or li_my_Height +li_1024bc >= li_WS_Height thenw_1.WindowState = maximized!elsew_1.WindowState = normal! /*居中*/ w_1.X = ( li_WS_Width - li_my_Width) /2 w_1.Y = (li_WS_Height - li_my_Height ) /2end ifend choose

计算机分辨率二:显示器的分辨率是如何表示的

职称计算机网权威发布显示器的分辨率是如何表示的，更多显示器的分辨率是如何表示的相关信息请访问职称计算机考试网。
显示器的分辨率用光点的行数和每行的光点数之乘积来表示。

计算机分辨率三:如何确定当前屏幕分辨率

计算机等级网权威发布如何确定当前屏幕分辨率，更多如何确定当前屏幕分辨率相关信息请访问计算机等级考试网。
　　Microsoftaccess2000
　　本文说明如何创建用户定义的样例VisualBasicforApplications函数以确定当前屏幕分辨率。您可以使用本函数确定是在标准VGA模式(640x480)还是在SuperVGA模式（800x600、1024x768或1600x1200）下运行。
　　正文：
　　下面的示例说明如何创建并使用样例GetScreenResolution()函数。
　　备注：您可能有某些在现有Microsoftaccess库中定义的MicrosoftWindowsAPI函数；因此，您的声明可能被重复。如果您收到重复过程名称错误消息，请在代码中删除或注释出声明语句。
　　新建模块，然后键入下列“声明”和函数：
　　"*****************************************************************
　　"DECLARATIONSSECTION
　　"*****************************************************************
　　OptionExplicit
　　TypeRECT
　　x1AsLong
　　y1AsLong
　　x2AsLong
　　y2AsLong
　　EndType
　　"NOTE:Thefollowingdeclarestatementsarecasesensitive.
　　DeclareFunctionGetDesktopWindowLib"User32"()AsLong
　　DeclareFunctionGetWindowRectLib"User32"_
　　(ByValhWndAsLong,rectangleAsRECT)AsLong
　　"*****************************************************************

本文来源：http://www.zhuodaoren.com/shenghuo829417/