以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按钮背景色不能回到初始颜色  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153586)

--  作者:yyzlxc
--  发布时间:2020/8/15 20:56:00
--  [求助]按钮背景色不能回到初始颜色
程序升级前代码运行有效。升级后,窗口按钮背景色不能还原到初始颜色,如何解决,请各位老师指教。谢谢!!


Dim btn2 As WinForm.Button = e.Form.Controls("Button2")
If btn2.BackColor = Color.Pink Then
    btn2.Text = "修改"
    With e.Form.Controls("Button2")
         FlatStyle = FlatStyle.System     ‘还原到初始样式
    End With
End If

--  作者:有点蓝
--  发布时间:2020/8/16 20:04:00
--  
按钮样式设置为“无”:btn2.Theme = "(none)"