Question

VB中的fontsize 设置中文字号

请解释一下 谢谢

Answer 1

Sub 设置中文字号(x As Object, 中文字号$)
Const ZWFS$ = "初号小初一号小一二号小二三号小三四号小四五号小五六号小六七号八号"
Dim p&: p = InStr(ZWFS, 中文字号)
If (Len(中文字号) = 2) And p And (p Mod 2) Then
x.FontSize = Array(42, 36, 26, 24, 22, 18, 16, 15, 14, 12, 10.5, 9, 7.5, 6.5, 5.5, 5)(p \ 2)
Exit Sub
End If
MsgBox "中文字号 " & 中文字号 & " 不存在！", 16, "错误"
End Sub

'测试代码
Private Sub Command1_Click()
设置中文字号 Me, "小四"
Print "这是小四号字"
设置中文字号 Me, "初号"
Print "这是初号字"
End Sub

Answer 2

Private Sub Command1_Click()
Label1.FontName = "宋体"'字体名
Label1.FontSize = 12'数值越大，字越大
End Sub