PdcWindows.ActiveWindow

Declaration

ActiveWindow as PdcWindow

Description

Returns the window object of the active window

Notes

This property returns the window object for the active window in Plan-de-CAMpagne.

Code example

Loop through the selected rows of the active window if it is the calculationlist and shows the calculation text.

dim activewindow
dim intTel
dim objCalc
dim KeyValues

    set ActiveWindow = pdc.Windows.ActiveWindow
    if ActiveWindow.WindowKey = "32" then 'Calculationlist
      set KeyValues = ActiveWindow.KeyValues
      for intTel = 0 to KeyValues.Count -1
        set objCalc = pdc.OpenCalculation(KeyValues(intTel))
        if IsValid(objCalc) then
          MsgBox objCalc.Text
        end if
      Next
    else
      msgbox "This script does not work with the opened window in PdC (Windowkey " & ActiveWindow.WindowKey & ")." & vbCrLf & _
             "You have to open the calculationlist (Windowkey 32)."
    end if
    set KeyValues = nothing
    set objCalc = nothing
    set ActiveWindow = nothing

Availability

Available from 4.0 onwards.