以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  上个版本代码可用，现在不能用了如何改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159376)

--  作者：kgdce --  发布时间：2020/12/24 10:06:00 --  上个版本代码可用，现在不能用了如何改？ Dim s As New Windows.Forms.FontDialog ‘此句在以前的版本中可用，现在最新版本中就不能用了，如何解决？ s.ShowColor = True s.Font = e.Form.Controls("TextBox1").Font s.Color = e.Form.Controls("TextBox1").ForeColor If s.ShowDialog = DialogResult.OK Then     e.Form.Controls("TextBox1").Font = s.Font     e.Form.Controls("TextBox1").ForeColor = s.Color End If

--  作者：有点蓝 --  发布时间：2020/12/24 10:11:00 --   Dim s As New system.Windows.Forms.FontDialog