Foxtable(狐表)用户栏目专家坐堂 → 代码无法修改按钮字体颜色


  共有2633人关注过本帖树形打印复制链接

主题:代码无法修改按钮字体颜色

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3360 积分:24780 威望:0 精华:0 注册:2012/3/26 21:47:00
代码无法修改按钮字体颜色  发帖心情 Post By: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)    

以上代码能改变按钮背景色 但是字体颜色一直都是默认的

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109678 积分:558082 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/13 20:30:00 [只看该作者]

去掉样式
btn.Theme = "(none)"

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3360 积分:24780 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2021/6/14 10:23:00 [只看该作者]

端午安康!感谢蓝版

 回到顶部