分辨率的问题（800*600和1024*768）

[wjzmy]

在lotus中大家可能会遇到和我一样的问题，就是分辨率的问题，听朋友说了种方法，就是利用api函数，在使用lotus 前自动检测系统分辨率，但是本人愚笨，不会实现，希望各位给予帮助

[pafeikt]

[转贴]计算屏幕的分辨率,并转到相应的帧结构

计算屏幕的分辨率,并转到相应的帧结构

数据库打开时的script
默认得可以是打开800*600的帧结构
Type Rect
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindowRect Lib "user32" (Byval hwnd As Long, lpRect As RECT) As Long

Sub Postopen(Source As Notesuidatabase)
'计算屏幕的分辨率,并转到相应的帧结构
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim r As RECT
Dim hWnd As Long
Dim RetVal As Long
Dim result As String
hWnd=GetDesktopWindow()
RetVal=GetWindowRect(hWnd,r)
result=r.x2-r.x1 & "x" & r.y2-r.y1
If result="1024x768" Then
Set uidoc=ws.currentdocument
Call uidoc.close
Call ws.openframeset("main1")
Exit Sub
End If
End Sub

[wjzmy]

我怎么样做才能实现呢！？
把这段话考到哪里？需要什么修改吗？