如何判断屏幕分辨率？

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > 编程语言 > LOTUS > 开发心得

如何判断屏幕分辨率？

作者:未知时间:2005-07-22 13:38 出处:Lotus中文技术站责编:chinaitpower

摘要：在能判断出屏幕分辨率的前提下，你可以使你的界面自动适应屏幕的分辨率。不会因为分辨率的改变而影响界面的美观。即首先多做几个分辨率下的，比如做一个640*480的界面，在做一个800*600的界面，然后判断屏幕分辨率，根据不同的分辨率调用不同的导航器或页面。

在能判断出屏幕分辨率的前提下，你可以使你的界面自动适应屏幕的分辨率。不会因为分辨率的改变而影响界面的美观。即首先多做几个分辨率下的，比如做一个640*480的界面，在做一个800*600的界面，然后判断屏幕分辨率，根据不同的分辨率调用不同的导航器或页面。

首先定义：

Declare Function GetSystemMetrics&Lib"user32"(Byval nindex As Long)

然后，在你的脚本中添加下面的程序

    Dim x As Integer
    Dim y As Integer
    Dim z As String
    x =GetSystemMetrics(SM_CXSCREEN)
    y =GetSystemMetrics(SM_CYSCREEN)
    z=Cstr(x)
    If z="640" Then
        z1=z+"*480"
    Else
        z1=z+"*600"
    End If
    Messagebox ("屏幕的分辨率为" & z1)

关闭本页