ActiveLibWnd Property

Read-only. Returns an instance of the Window object, corresponding to the active library window.

Applies to: Application object

Syntax

[[Set] libWindowRet =] object.ActiveLibWnd

The ActiveLibWnd property syntax has these parts:

Part Description
object Required. An expression returning an .Application object.
libWindowRet Optional. A Window type variable.

Remarks

If ActiveLibWnd returns Nothing, there is no active library window in the application, and no active library.However, it doesn't mean that there are no open libraries in the application. Note, that an active library window always contains an active library.

Example

This example contains an application-level script. It demonstrates an attempt to find a bug in ConceptDraw Basic by using the fact that the active library window always contains the active library.

' Declare variables
Dim lib_wnd as Window
Dim m_lib as Library

' Get active library window
Set lib_wnd = thisApp.ActiveLibWnd

If lib_wnd <> Nothing Then
	' Get active library in the active library window
	Set m_lib = lib_wnd.Library
	if m_lib <> thisApp.ActiveLib Then
		MsgBox("Oh, NO! You ve found a BUG! Please report this at www.conceptdraw.com as soon as you can!")
	else
		MsgBox("Wanna find some bugs? No, our company cannot help you.")
	End If
Else
	MsgBox("There is no active library window now!")
End If

 

See Also

Window object, Library object