Ever wanted to start a navigator depending on screen resolution ? Well, here's
Just copy the script to DatabaseScript and put the formula in the PostOpen
event of the DatabaseScript.
Replace "Nav800$" and "Nav1024$" with your navigators.
have a lot of fun !!
x1 As Long
y1 As Long
x2 As Long
y2 As Long
Left As Long
Top As Long
Right As Long
Bottom As Long
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" (Byval hWnd As Long, rectangle As
Rect) As Long
Dim session As New NotesSession
Function GetScreenResolution As String
Dim R As Rect
Dim hWnd As Long
Dim RetVal As Long
hWnd = GetDesktopWindow ()
RetVal = GetWindowRect(hWnd, R)
GetScreenResolution = (R.x2 - R.x1) & "x" & R.y2 - R.y1)
By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.