VB中的fontsize 设置中文字号

答案:2 悬赏:0 手机版

解决时间 2021-11-19 20:44

提问者网友：疯孩纸
2021-11-18 19:49

VB中的fontsize 设置中文字号

最佳答案

五星知识达人网友：底特律间谍
2021-11-18 21:14

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

全部回答

1楼网友：洒脱疯子
2021-11-18 21:57

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息