以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  代码无法修改按钮字体颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169364)

--  作者：rjh4078 --  发布时间：2021/6/13 18:19:00 --  代码无法修改按钮字体颜色 dim dr as datarow=datatables("test").datarows(0) Dim btn As WinForm.button       btn = e.Form.CreateControl("test“, ControlTypeEnum.button)     btn.width=100     btn.height=40     btn.text=dr("库位号")         Dim cps As Integer= DataTables("库位明细").Compute("sum(数量)","库位号=\'" & dr("库位号") & "\'")     If cps>0 Then         btn.BackColor = ColorTranslator.FromHtml("#e2e2e2")         btn.ForeColor=Color.red     Else         btn.BackColor = ColorTranslator.FromHtml("#009688")         btn.ForeColor=Color.white     End If  e.Form.Controls("panel1").AddControl(btn)     以上代码能改变按钮背景色 但是字体颜色一直都是默认的

--  作者：有点蓝 --  发布时间：2021/6/13 20:30:00 --   去掉样式 btn.Theme = "(none)"

--  作者：rjh4078 --  发布时间：2021/6/14 10:23:00 --   端午安康！感谢蓝版