Question

vb中怎样将Text1的字体设置成任意字体？就是在Text2中打出“黑体”“幼圆”等等，Text1

vb中怎样将Text1的字体设置成任意字体？就是在Text2中打出“黑体”“幼圆”等等，Text1中，文字字体就是text2里打出的“黑体”“幼圆”等等？可以Text1.Fontname=text2.text吗？还是只能text1.fontname="黑体"这样固定的？

Answer 1

Private Sub Combo1_Click()
Text1.Font.Name = Combo1.Text
Text1.Font.Size = 18
Text1.ForeColor = vbRed
Text1.BackColor = vbGrayed
Text1.Font.Bold = True
End Sub
Private Sub Form_Load()
Dim i As Integer
'Combo1.Sorted = True '启动前先手动设置属性
Combo1.Clear
For i = 0 To Screen.FontCount - 1 '取屏幕字型名称
Combo1.AddItem Screen.Fonts(i) '放到ComboBox控件
Next i
'Combo1.Text = Combo1.List(i - 1) '预设一个字型
Text1.Text = "屏幕字型"
Text1.FontSize = 24
End Sub

追问

这么复杂啊？！

我们计算机2级还没考呢，还有combo也没学，是不是题出错了呀

追答

妈妈问小明：一包糖果有8颗，这6包共多少颗？
小明：8+8=16 16+8=24 ...40+8=48 共加了5次
妈妈：你三岁就教你背九九乘法混瓜烂熟了呀，6X8=48呀
小明：老师说，我们下学期才开始教乘法除法呀，现在只能用加法。

Answer 2

你在text2的change事件中写。

if text2="黑体" then
text1.fontname="黑体"
elseif text2="宋体" then
text1.fontname="宋体"
else
text1.fontname="默认字体"
end if

追问

您看，就是这种情况→_→

追答

Private Sub Command1_Click() '设置字体按钮代码
Text1.FontName = Text2
End Sub

追问

不行⊙▽⊙

〒_〒好桑心啊

追答

这个是你自己系统问题。“属性值无效”，说明你的系统中没有该字体。如果有的话，检查你的输入是否有空格。

Answer 3

可以Text1.Fontname=trim(text2.text)