LOUTS中如何获取分辨率

用途：用户的分辨率不同造成显示的效果不一样，所以要获取分辨率而调用不同桢结构集。（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  
'根据不同分辨率设置相应的启动桢结构集