Archiv der Kategorie: Notes2u

Ausgabe der Bildschirmauflösung in ein Feld über API

Type RECTANGLE
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type

[Declarations]

Declare Function GetDesktopWindow Lib “User32″ () As Long
Declare Function GetWindowRect Lib “User32″ (Byval hWindow As Long, r As RECTANGLE) As Long

[Click]

Dim s As New NotesSession
Dim R As RECTANGLE
Dim hWindow As Long
Dim RC As Long
Dim WindowResolution As String
hWindow = GetDesktopWindow ()
RC = GetWindowRect(hWindow, R)
WindowResolution = (R.x2 – R.x1) & “x” & (R.y2 – R.y1)

Call Source.FieldSetText(“AUSGABEFELD”,WindowResolution)