Es gibt structs die aus einer Sammlung von PropertyValues bestehen. Um hier schnell
einen
Wert zu erhalten kann man eine Funktion verwenden.
Function GetProperty( searchProperties, cPropertie
As String ) As
com.sun.star.beans.PropertyValue
For i = LBound( searchProperties ) To UBound( searchProperties )
oCheckProp = searchProperties(i)
If oCheckProp.Name = cPropertie Then
GetProperty() = oCheckProp
Exit Function
EndIf
Next
End Function
Mit dieser Funktion kann man den gesuchten Wert schnelle als eigenes Objekt erhalten.
Als Beispiel dient hier die Abfrage ob der Drucker frei ist.
sub main
myDoc=ThisComponent
myProperties=mydoc.getprinter()
oPrinterStatus = GetProperty( myProperties, "IsBusy" )
if oPrinterStatus.Value=false then msgbox "OK"
End Sub