Domino Code Fragment

Code Name* API Call to NNOTESWS.DLL to get and Set Active Window Title	Date* 04/28/2024	Source (or email address if you prefer)* Rlatulippe@romac.com IP address:.18.118.145.114
Description* This example demonstrates the declaration of the NEMSetWindowText function located in NNOTESWS.DLL file:	Type* LotusScript	Categories* (Misc)

Implementation:	Required Client:	Server:
Limitations:	Comments:

Files/Graphics attachments (if applicable): Code:
This example demonstrates the declaration of the NEMSetWindowText function located in NNOTESWS.DLL file:

Declare Function NEMSetWindowText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval sText As String) As Integer

Where globalnameis NEMSetWindowText.
NNOTESWS.DLL is the libname$.
The aliasname is not used.
And the argument is the window handle and a text string

The NEMSetWindowText function uses the window handle to change the window's title. The handle of the current window was returned from the function NEMGetCurrentSubprogramWindow.

NEMGetCurrentSubprogramWindow. Get the handle of the current window.
NEMSetWindowText. Using the window handle set the title.

(Declarations)
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
Declare Function NEMSetWindowText Lib "nnotesws.dll" (Byval hwnd As Long, Byval sText As String) As Integer

Sub Click(Source As Button)
Dim wHandle As Long
Dim sTextw As String
sTextw = "This is a test of an API call"
wHandle = NEMGetCurrentSubprogramWindow
Call NEMSetWindowText(wHandle, sTextw)
End Sub