以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自定义函数设置表字体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179715)
--  作者：2425004926
--  发布时间：2022/9/5 14:46:00
--  [求助]自定义函数设置表字体
老师帮忙看一下，组合框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
--  作者：有点蓝
--  发布时间：2022/9/5 14:55:00
--  
提示什么错误？
--  作者：2425004926
--  发布时间：2022/9/5 15:01:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：00111.jpg
图片点击可在新窗口打开查看
 
--  作者：有点蓝
--  发布时间：2022/9/5 15:37:00
--  
Dim e = Args(0)
Dim fs As Single = CSng(e.Form.Controls("ComboBoxViewFontSize").text)
If fs < 9 Then fs = 9
msgbox(fs)
Dim t As Table = args(1)
msgbox(t..Font.Name)
msgbox(t.Font.Style)
Dim fnt As New Font(t.Font.Name, fs, t.Font.Style)
t.Font = fnt
--  作者：2425004926
--  发布时间：2022/9/5 16:54:00
--  
 好了!谢谢老师！