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 email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.