Private Sub form_load()
Text1 = "计算机"
Text2 = "等级考试"
Call FontFunc(Text1, Text2)
End Sub
Public Sub FontFunc(Ctr1 As TextBox, Ctr2 As TextBox)
With Ctr1
.FontSize = 16
.FontName = "宋体"
.FontItalic = True
.FontBold = False
End With
With Ctr2
.FontSize = 18
.FontName = "楷体_GB2312"
.FontItalic = False
.FontBold = False
End With
End Sub
怎么给你?
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024