老师帮忙看一下,组合框ComboBoxViewFontSize是字体设置, Args(1)这是要设置的表
不设置自定义函数,正常使用没有问题
作为自定义函数这个代码就无法保存,显示出错
Dim e = Args(0)
If CInt(Args(0).Form.Controls("ComboBoxViewFontSize").text) > 9 Then
Dim fnt As New Font(Args(1).Font.Name, CInt(Args(0).Form.Controls("ComboBoxViewFontSize").text), Args(1).Font.Style)
Args(1).Font = fnt
Else
Dim fnt As New Font(Args(1).Font.Name, 9, Args(1).Font.Style)
Args(1).Font = fnt
End If