以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码新增按钮问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157696)

--  作者:ykhgj
--  发布时间:2020/10/26 11:07:00
--  代码新增按钮问题
用代码新增的按钮不能将按钮边框变为0了吗,原来用的FOXTABLE2018的,升级2020后都失效了
Dim chk As WinForm.button
chk = e.Form.CreateControl("chk1",ControlTypeEnum.button)
chk.text =""
chk.left = 22
chk.Top = 12
chk.Width=25
chk.Height=24
chk.ImageAlign=ContentAlignment.MiddleCenter
chk.FlatStyle=FlatStyle.Flat
chk.BorderSize=0
chk.BackColor=Color.FromARGB(206, 222, 237)
chk.MouseOverBackColor=Color.red
chk.MouseDownBackColor=Color.red
e.form.Controls("SplitContainer1").Panel1.addControl(chk)
chk.Image=GetImage("arrow_blue_next_resultset_right_16px_178_easyicon.net.ico")

BorderSize设置为0无效,还是有边框

--  作者:有点蓝
--  发布时间:2020/10/26 11:09:00
--  
吧样式改为”无“

chk.Theme = "(none)"