一键变更为webbutton按钮风格

//本代码放到所有窗口的基类中,本窗口必须是 webbutton 风格的扁平窗口
//WebButton_AttachButtonWindow(handle(this))

uo_webbutton ibtn
commandbutton btn_obj

this.backcolor = RGB(255,255,255)

Integer li_count
Integer li_i

// 窗口内控件数
li_count = upperbound(this.control[])

// 循环记录各控件大小与窗口大小的比例
FOR li_i = 1 TO li_count
    CHOOSE CASE this.control[li_i].typeof()
    
        CASE checkbox!
            icbx_obj = this.control[li_i]
            icbx_obj.backcolor = this.backcolor
            
        CASE radiobutton!
            irb_obj = this.control[li_i]
            
        CASE commandbutton!
            btn_obj = this.control[li_i]
            ibtn.WebButton_AttachButton(handle(btn_obj))
            //gf_set_button_style(btn_obj,this.backcolor)
            long nBackColor,nBorderColor,nTextColor,clr
            //nBackColor = RGB(255,255,240)
            nBorderColor = RGB(70,90,110)
            nBackColor = nBorderColor
            nTextColor = RGB(255,255,255)
            clr = this.backcolor
            ibtn.sendmessage( handle(btn_obj), ibtn.wm_setbutton_windowcolor , 0, clr)            
            ibtn.sendmessage( handle(btn_obj), ibtn.WM_SETBUTTON_BORDERCOLOR , 0, nBorderColor)
            ibtn.sendmessage( handle(btn_obj), ibtn.WM_SETBUTTON_TEXTCOLOR , 0, nTextColor)
            ibtn.sendmessageString( handle(btn_obj), ibtn.WM_SETBUTTON_FONTINFO , "宋体", 12)
            ibtn.sendmessage( handle(btn_obj), ibtn.wm_setbutton_ellipse , 6, 6)
            long li_char
            li_char = 0
            choose case mid(trim(btn_obj.text),1,2)
                case "打印"
                    li_char = 983208
                case "检索"
                    li_char = 64913
                case "导出"
                    li_char = 983553
                case "导入"
                    li_char = 983475
                case "关闭"
                    li_char = 983219
                    nBackColor = RGB(120,0,0)
                case "退出"
                    li_char = 983219                    
                case "查询"
                    li_char = 57920
                case "保存"
                    li_char = 57714
                case "另存"
                    li_char = 57714
                case "放弃"
                    li_char = 61914
                case "计算"
                    li_char = 61687
                case "刷新"
                    li_char = 983388
                    
                case "清空"
                    li_char = 57604
                case "插入"
                    li_char = 983280
                case "删除"
                    li_char = 983278
                case "确定"
                    li_char = 64786
                    nBackColor = RGB(0,120,0)
                case "查找"
                    li_char = 983340
                case "增加"
                    li_char = 64791
                case "结算"
                    li_char = 983090
                case "更新"
                    li_char = 64817
                case "显示"
                    li_char = 983222
            end choose
            ibtn.SendMessage(handle(btn_obj),ibtn.WM_SETBUTTON_ICON_CHAR,0,li_char)
            ibtn.sendmessage( handle(btn_obj), ibtn.wm_setbutton_backcolor , 0, nBackColor)            
            
        CASE statictext!
            ist_obj = this.control[li_i]
            ist_obj.backcolor = this.backcolor
            
    End Choose
    
Next
 

部分按钮效果参考：