Jangogo :
.ActiveCaptionColor = &HFFFFFF .InActiveCaptionColor = RGB(47, 122, 151) .ActiveMenuColor = &H0& .ActiveMenuColorOver = &HFFFFFF .InActiveMenuColor = RGB(47, 122, 151) .MenuBackgroundColor = vbWhite ' RGB(123, 189, 214) Set .CaptionFont = frmAppMain.Font Set .MenuFont = frmAppMain.Font Set .Caption = frmAppMain.picResource(0).Picture Set .Borders = frmAppMain.picResource(1).Picture Set .HeaderFooter = frmAppMain.picResource(2).Picture
Skin 皮肤由 三幅图 构成:
1. Caption 标题栏(在非客户区绘制NCPaint)
.ControlButtonHasInactiveVersion = True ''是否有 非激活窗口版本 样式 .CustomControlButtonPosition = True ''控制按钮是否自定义位置,如果是则以下两个参数有效,默认是在Caption居中显示 .ControlButtonOffsetX = -6 .ControlButtonOffsetY = 5 .ButtonWidth = 11 .ButtonHeight = 11 ''特别注意:以下参数同样适合于Header和Footer .ActiveLeftEnd = 22 ' 激活状态下,Caption的左边部分的结束位置 .ActiveRightStart = 23 '激活状态下,Caption的右边部分的开始位置,这个参数和上一个参数的中间部分,就是Caption的中间连续填充的部分,相当于窗口顶部的边框线 .ActiveRightEnd = 44 '激活状态下,Caption的右边部分的开始位置 .InactiveOffset = 132 '非激活窗口版本的偏移量(开始位置),在这个参数和上一个参数之间是Button控制按钮
2.Header & Footer
.DrawTitle = False ' 如果为True 则标题输出到Caption,如果为False则输出到Header .ButtonsInFormBody = False '(暂不支持本属性值为True)如果为False则在Cation(非客户区绘制控制按钮),否则会在客户区(窗口内部)绘制控制按钮
控制按钮按照不同的输出区域使用不同的图中的Button块,即:如果Button是在非客户区绘制,则使用Caption图中的Button块,如果是在客户区(窗口内部)绘制则会使用Header&Footer图中的Button块,也就是说,Button的图例只要在Caption或者 Header和Footer中的其中一幅图中出现即可。
Header和Footer 采用对半法来分隔,即:
1. 上下对半分开即为Header(上半部分)和Footer(下半部分)
2.左右对半分隔为 激活状态和 非激活状态,当ButtonsInFormBody = True 时,还应该有对应的控制按钮的激活和非激活状态, 如下图:
3.Border
文档中心