Страница 1 из 1

Вопрос по Clipboard

СообщениеДобавлено: 15.02.2010 (Пн) 8:06
mastersmit
В опщем, хочу сделать копирование/вставку текста. С копирование разобрался:

Код: Выделить всё
Private Sub MenuItem15_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
Clipboard.SetDataObject(TextBox1.SelectedText)
End Sub


А вот как сделать, чтобы еще и вставка работала? Есть такой вариант:

Код: Выделить всё
Private Sub MenuItem16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem16_Click
Dim iData As IDataObject = Clipboard.GetDataObject()

If iData.GetDataPresent(DataFormats.Text) Then
TextBox1.Text = CType(iData.GetData(DataFormats.Text), String)
End If

End Sub


Да только вот такой вариант при вставке не просто вставляет скопированный текст в нужное место (как в любом текстовом редакторе), а полностью заменяет весь текст в текстбоксе. И вот не могу понять как сделать енто.. ( Может кто подскажет?

Re: Вопрос по Clipboard

СообщениеДобавлено: 15.02.2010 (Пн) 14:31
BION
Если вставить туда где курсор, то наверно так
Код: Выделить всё
TextBox1.SelText = ...