Dim fSize
Private Sub Form_Load()
fSize = Array(42, 36, 26, 24, 22, 18, 16, 15, 14, 12, 10.5, 9, 7.5,
6.5, 5.5, 5)
tmp$ = "初号小初一号小一二号小二三号小三四号小四五号小五六号小六七号八号"
For i = 1 To Len(tmp) Step 2
Combo1.AddItem Mid$(tmp, i, 2)
Next
End Sub
Private Sub Combo1_Click()
Text1.FontSize = fSize(Combo1.ListIndex)
End Sub
郑重声明：资讯 【combo 字号设置_萍儿_新浪博客】由 发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权， 请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。
—— 相关资讯 ——
![龙井[中国新闻网]电视背景墙硬包](https://pic17_2.qiyeku.com/qiyeku_pic/2017/6/28/mnkzs/news/news_pic/image/2017_08_22/20170822022936326.jpg)
