A. VB中 如何复制Text1.text的字体到剪贴板 如何剪切
'复制
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