meta data for this page
  •  

EDIT-Control

Uur allgemeinen Verwendung siehe die Beschreibung zum Dialogeditor

Enthält das EDIT-Control bereits Text und soll weiterer Text an der Cursorposition eingefügt werden, ist dies mit der folgenden Prozedur möglich.

VBScript

  1. 'Fügt Text in ein Textfeld an Cursorposition ein
  2. Sub InsertInTextBox(sDlg, sControl, sText)
  3. Const EM_GETSEL = &H00B0
  4. Dim lPos
  5. Dim lSelStart
  6. Dim lSelEnd
  7. Dim sControlText
  8.  
  9. lPos = CLng(FF_SendControl(sDlg, sControl, EM_GETSEL, 0, 0))
  10. lSelStart = lPos And &HFFFF&
  11. lSelEnd = (lPos \ &HFFFF&)
  12. sControlText = FF_GetControl(sDlg, sControl)
  13. FF_SetControl sDlg, sControl, Left(sControlText, lSelStart) & sText & Mid(sControlText, lSelEnd + 1)
  14. End Sub