如何判断屏幕分辨率？

在能判断出屏幕分辨率的前提下，你可以使你的界面自动适应屏幕的分辨率。不会因为分辨率的改变而影响界面的美观。即首先多做几个分辨率下的，比如做一个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)