ISOutputWindow.AddText

Description

This function adds the text to the output window.

Syntax

object.AddText(owLine)

Part	Attribute	Type	Description
`object`	Required	ISOutputWindow	The `object` always implements the ISOutputWindow interface
`owLine`	In, Required	string	The text value to be added into the output window

Return Value

int

The ordinal number of the added string.

Example

Create the output window with some added information about the selected patient.

Dim aPatient
Dim aOutputWindow

Set aPatient = Profile.SelectPatient
set aOutputWindow = Profile.CreateOutputWindow 

aOutputWindow.Caption = "Information about " & aPatient.SurnameFirstName 
aOutputWindow.Height = 300 
aOutputWindow.Width = 400

aOutputWindow.AddText("First Name:" & vbTab & aPatient.FirstName) 
aOutputWindow.AddText("Surname:" & vbTab & vbTab & aPatient.Surname)
aOutputWindow.AddText("DOB:" & vbTab & vbTab & aPatient.DOB)
aOutputWindow.AddText("Sex:" & vbTab & vbTab & aPatient.Sex)

Note:

Version information

Added in v7.8.0