如何复制字符串到剪贴板？

来源：百度知道 编辑：UC知道 时间：2024/05/05 19:44:55
Text1.Txt = "abc"
Text1.Font.Name = "幼圆"
Clipboard.SetText Text1.txt
之后，为何手动粘贴到一个新建的Word文件中时，显示的是abc,但字体却不是幼圆？
请问，如何才能将Text1中的内容和字体一起复制到剪切板？

其1.普通的文本框是不具备格式的..所以放到剪贴板时,也是无格式的..
其2.VB中的操作剪贴板,特别是你用的SetText ,从意义上理解,也是纯文本的,放在上面的同时,格式也就消失了..变成了纯文本

解决方法:
1.换文本框控件为richtextbox
2.换方法:

Private Sub Command1_Click()
With RichTextBox1
.Text = "this is a VB妮可's test!!"
.SelStart = 10
.SelLength = 6
.SelColor = vbRed
.SelFontName = "黑体"
.SelFontSize = 18
End With
RichTextBox1.SetFocus
DoEvents
End Sub

或是:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_COPY = &H301

Private Sub Command1_Click()
With RichTextBox1
.Text = "this is a VB妮可's test!!"
.SelStart = 10
.SelLength = 6
.SelColor = vbRed
.SelFontName = "黑体&quo