改变字体的核心代码给你,其它自己搞定
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
温馨提示:答案为网友推荐,仅供参考