用途:用户的分辨率不同造成显示的效果不一样,所以要获取分辨率而调用不同桢结构集。(C/S中)
做法:首先设置NSF默认启动的桢结构集,在里面嵌入一空白页面,页面的POSTOPEN中写入代码如下:
1如何取得USER的屏幕分辨率呢?
在(Declarations)事件中宣告:
Declare Function GetSystemMetrics&Lib"user32"(Byval nindex As Long)
在程序中申明如下:
dim ws as new notesuiworkspace
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="800" Then
'800*600的分辨率
Call ws.openframeset("main1")
Elseif z="1024"
Call ws.openframeset("main")
End If
'根据不同分辨率设置相应的启动桢结构集