Question

1）在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本 框中的初始。。。

1）在名称为Form1的窗体上绘制一个文本框，名称为Txt1，字体为“宋体”，文本
框中的初始内容为“二级Visual Basic”；再绘制一个命令按钮，名称为Cmd1，标题为“改
变字体为楷体”。请编写适当事件过程，使得在运行时，单击命令按钮，则把文本框中文
字的字体改为楷体，如图50-1所示。

Answer 1

改变字体的核心代码给你，其它自己搞定

Private Sub Form_Load()
Command1.Caption = "直接调用WinRAR并传递参数"

Combo1.AddItem "宋体"
Combo1.AddItem "楷体"
Combo1.AddItem "黑体"
Combo1.AddItem "华文中宋"

End Sub

Private Sub Combo1_Click()
Text1.Font = Combo1.Text '这里就是了。
Text1.FontSize = 20: Text1.Height = TextHeight(Text1.Text) + 100: Text1.Width = Len(Text1.Text) * 2000
End Sub