AuthenticRange.FirstXMLDataOffset
Siehe auch
Eigenschaft: FirstXMLDataOffset als Long
Beschreibung
Setzt oder holt den Cursorpositions-Offset im FirstXMLData-Element für den Anfang des Bereichs. Die Offset-Positionen basieren auf den von der Text-Eigenschaft zurückgegebenen Zeichen und beginnen mit dem Wert 0. Verwenden Sie beim Setzen eines neuen Offset den Wert -1, um den Offset an die letzte mögliche Position im Element zu setzen. Seien Sie besonders in den folgenden Fällen vorsichtig:
•Die Textform von Einträgen in Auswahllisten, Kontrollkästchen und ähnlichen Steuerelementen unterscheidet sich unter Umständen von dem, was auf dem Bildschirm angezeigt wird. Der Daten-Offset basiert zwar auf diesem Text, doch gibt es nur zwei gültige Offset-Positionen, eine am Anfang und eine am Ende des Eintrags. Wenn Sie versuchen, den Offset in die Mitte des Eintrags zu positionieren, wird der Offset an das Ende des Eintrags gesetzt.
•Die Textform von XML Entities kann sich in ihrer Darstellung von der auf dem Bildschirm dargestellten Länge unterscheiden. Der Offset basiert auf der Textform der Entities.
Wenn FirstXMLData / FirstXMLDataOffset eine Position hinter dem aktuellen LastXMLData / LastXMLDataOffset auswählt, wird letzteres an die neue Anfangsposition verschoben.
Fehler
2001 | Das Authentic Range-Objekt oder das dazugehörige View-Objekt ist nicht mehr gültig. | |
2005 | Es wurde ein ungültiger Offset-Wert angegeben. Für den zurückgegebenen Parameter wurde eine ungültige Adresse angegeben. |
Beispiele
' ---------------------------------------------
' VBScript
' Select the complete text of an XMLData element
' using XMLData based selection and ExpandTo
' ---------------------------------------------
Dim objAuthenticView
Set objAuthenticView = objPlugin.AuthenticView
' first we use the XMLData based range properties
' to select all text of the first XMLData element
' in the current selection
Dim objRange
Set objRange = objAuthenticView.Selection
objRange.FirstXMLDataOffset = 0 ' start at beginning of element text
objRange.LastXMLData = objRange.FirstXMLData ' select only one element
objRange.LastXMLDataOffset = -1 ' select till its end
' the same can be achieved with the ExpandTo method
Dim objRange2
Set objRange2 = objAuthenticView.Selection.ExpandTo(spyAuthenticTag)
' were we successful?
If objRange.IsEqual(objRange2) Then
objRange.Select()
Else
MsgBox "Ooops"
End If