Question

问一个VB问题。请大家帮忙下

要求：command1对text1（左边）字体样式和大小进行修改，2.按复制按钮对任意选择的文字进行复制，包括字体样式和大小。我的编程如下
rivate Sub Command2_Click()
Text2.Text = Text1.SelText
End Sub

Private Sub Command1_Click()
Text1.FontSize = 25
Text1.FontName = "隶书"

End Sub
运行后发现复制不了字体样式和大小，我要怎么修改

Answer 1

Private Sub Command2_Click()
Text2.Text = Text1.SelText
Text2.FontName = Text1.FontName
Text2.FontSize = Text1.FontSize
End Sub

Private Sub Command1_Click()
Text1.FontSize = 25
Text1.FontName = "隶书"

End Sub

Answer 2

文本框是一个最基本的控件，只能显示纯文本，虽然显示属性可使字体变大但复制是不能带上TEXT1这个控件的属性的（字体大小是控件的属性，而不是文本的属性）

你可以用richbox控件，富文本格式的文本框
如何使用可以参考
http://wenda.tianya.cn/wenda/thread?tid=0e8e00f6d8c7265f

富文本格式中，虽然显示的只是文字，但您在复制时，会同时复制您看不到的控制字符，粘贴到可以识别控制字符的编辑器时，可以还原字型字号等信息。

Answer 3

Private Sub Command1_Click()
text2.text = text1.seltext
text2.fontsize = 25
text2.fontname = "隶书"
end sub