以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义函数设置表字体  (http://foxtable.com/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
--  
 好了!谢谢老师!