| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.19 GetCursor
Mit dieser Funktion kann man den sichtbaren Cursor an den leistungsfähigeren nichtsichtbaren Cursor übergeben. Function GetCursor( oDoc As Object ) As Object ' Übernahme des sichtbaren Cursors in eine TextRangeobject Dim oRange As Object, oRangeCursor As Object oRange = oDoc.CurrentController.Selection.getbyIndex(0) oRangeCursor = oDoc.Text.createTextCursorByRange( oRange ) GetCursor = oRangeCursor End Function |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009