Clipboard

[SOFTOBZOR.ru]

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

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

 

[SOFTOBZOR.ru]

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

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

 

[Pitc]

Почитай про BufferedStream class