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