VB中 如何复制Text1.text的字体到剪贴板? 如何剪切?

来源：百度知道 编辑：UC知道 时间：2024/06/25 07:33:29

'复制
Clipboard.Clear
Clipboard.SetText (Text1.SelText)

'剪切
Clipboard.Clear
Clipboard.SetText (Text1.SelText)
tmp = Text1.SelText
Text1.Text = Replace(Text1.Text, tmp, "")

'粘贴
tmp = Text2.SelText
tmp1 = Left(Text2.Text, Text2.SelStart)
tmp2 = Replace(Right(Text2.Text, Len(Text2.Text) - Text2.SelStart), tmp, "")
Text2.Text = tmp1 & Clipboard.GetText & tmp2

你可以模拟一个剪贴板 啊 你可以在复制按钮的代码中写 cut=text1.text
text1.text=""
复制到另一个文本框就是text2.text=cut
ok!!
好了！！！

Clipboard.Clear '清空剪贴板
Clipboard.SetText (Text1.Text) '复制到剪贴板

如何复制Text1.text的字体到剪贴板

是复制字符串还是字体啊？？？