Hi Erel, thanks for the code. Here is an example for: Cut, Copy, and Paste.
For Cut:
Dim curSel As Int = EditText1.SelectionStart
Dim SelectedText As String = EditText1.Text.SubString2(EditText1.SelectionStart, EditText1.SelectionStart + EditText1.SelectionLength)
Clip.setText(SelectedText)
EditText1.Text = EditText1.Text.SubString2(0, EditText1.SelectionStart) & EditText1.Text.SubString(EditText1.SelectionStart + EditText1.SelectionLength)
EditText1.SelectionStart = curSel
For Copy:
Dim SelectedText As String = EditText1.Text.SubString2(EditText1.SelectionStart, EditText1.SelectionStart + EditText1.SelectionLength)
Clip.setText(SelectedText)
For Paste:
Dim curSel As Int = EditText1.SelectionStart
EditText1.Text =...
Dim prefix As String = TextField1.Text.SubString2(0, TextField1.SelectionStart)
Dim suffix As String = TextField1.Text.SubString(TextField1.SelectionStart + TextField1.SelectionLength)
TextField1.Text = prefix & suffix
Hi Erel, thanks for the code. Here is an example for: Cut, Copy, and Paste.
For Cut:
Dim curSel As Int = EditText1.SelectionStart
Dim SelectedText As String = EditText1.Text.SubString2(EditText1.SelectionStart, EditText1.SelectionStart + EditText1.SelectionLength)
Clip.setText(SelectedText)
EditText1.Text = EditText1.Text.SubString2(0, EditText1.SelectionStart) & EditText1.Text.SubString(EditText1.SelectionStart + EditText1.SelectionLength)
EditText1.SelectionStart = curSel
For Copy:
Dim SelectedText As String = EditText1.Text.SubString2(EditText1.SelectionStart, EditText1.SelectionStart + EditText1.SelectionLength)
Clip.setText(SelectedText)
For Paste:
Dim curSel As Int = EditText1.SelectionStart
EditText1.Text = EditText1.Text.SubString2(0, EditText1.SelectionStart) & Clip.getText & EditText1.Text.SubString(EditText1.SelectionStart + EditText1.SelectionLength)
EditText1.SelectionStart = curSel + Clip.getText.Length