DIAdemヘルプ

Method: GetSelectionEnd for EditBox <XTable>

  • 更新日2024-09-12
  • 5分で読める

Method: GetSelectionEnd for EditBox <XTable>

Returns in extended tables in user dialog boxes the position after which the selection in an entry field ends. If no text is selected, the method returns the value 1.

iGetSelectionEnd = Object.GetSelectionEnd
ObjectEditBox <XTable>
Object with this method
iGetSelectionEndLongInteger
Contains the position after the end of the selection.

The following example displays in an entry field the text of the field and the selected text, and the beginning and end of the selection in the text field Text1.

Dim sOutPut
sOutPut = "Text: " & This.Text & VBCrLf
sOutPut = sOutPut & "Selected text: " & Cell.GetSelectedText & VBCrLf
sOutPut = sOutPut & "Selection begin: " & Cell.GetSelectionBegin & VBCrLf
sOutPut = sOutPut & "Selection end: " & Cell.GetSelectionEnd & VBCrLf
Text1.Text = sOutPut
Call Text1.RefreshText