- Код: Выделить всё
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
Да только вот такой вариант при вставке не просто вставляет скопированный текст в нужное место (как в любом текстовом редакторе), а полностью заменяет весь текст в текстбоксе. И вот не могу понять как сделать енто.. ( Может кто подскажет?
