Clipboard

  • Автор темы SOFTOBZOR.ru
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SOFTOBZOR.ru

#1
Господа, стоит протенькая задача.
Есть форма на ней есть:
RichTextBox1
и кнопка Buton1.
Мне нужно что бы при клике на эту кнопку все содержимое RichTextBox1 за носилось в буфер.

Помогите кому не сложно.
 
S

SOFTOBZOR.ru

#2
Нарыл такую функцию

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = GetClipboardText()
End Sub


Public Function GetClipboardText() As String

Dim obj As IDataObject
obj = Clipboard.GetDataObject
If Not (obj Is Nothing) Then
Dim bmptype = GetType(?????????????????????)
If obj.GetDataPresent(bmptype) Then
Return obj.GetData(bmptype)
End If
End If
End Function
Чего то не соображу как ее перекрутить на Text это переделано с Picture
 
Статус
Закрыто для дальнейших ответов.