以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 遍历所有窗口 所有表并设置字体  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180155)
--  作者：建筑人生
--  发布时间：2022/9/30 17:57:00
--  [求助] 遍历所有窗口 所有表并设置字体

窗口表字体

For Each wf As WinForm.Form In Forms
   For Each c As WinForm.Control In wf.Controls  
               If TypeOf C Is WinForm.Table Then \'判断控件是否是表  
              Dim tb As WinForm.Table = C \'使用特定类型的变量引用控件 
                  tb.Table.Font = New Font("宋体", bg_ziti, FontStyle.Regular) 
       End If
  Next   
Next

 红色位置出错

[此贴子已经被作者于2022/9/30 18:02:10编辑过]
--  作者：有点蓝
--  发布时间：2022/10/4 8:32:00
--  
窗口必须打开，才能使用里面的控件

For Each wf As WinForm.Form In Forms
if wf.opened then
   For Each c As WinForm.Control In wf.Controls