Read-only. Returns an instance of the Window object, corresponding to the active library window.
Applies to: Application object
[[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. |
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.
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 |