modskinmain.bas

来自「餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段」· BAS 代码 · 共 30 行

Attribute VB_Name = "modSkinMain"
'**********************************************************************************
'**********************************************************************************
'**********************************************************************************
'   用户不能修改，为了显示漂亮界面,与酒店系统无关
'**********************************************************************************
'**********************************************************************************

Option Explicit
    Public m_cN As New cNeoCaption

Public Sub Skin(f As Form, cN As cNeoCaption)
On Error Resume Next
    cN.ActiveCaptionColor = &HFFFFFF
    cN.InActiveCaptionColor = &HC0C0C0
    cN.ActiveMenuColor = &H0&
    cN.ActiveMenuColorOver = &H0
    cN.InActiveMenuColor = &H0&
    cN.MenuBackgroundColor = RGB(207, 203, 207)
    cN.CaptionFont.Name = "宋体"
    cN.CaptionFont.Size = 9
    cN.MenuFont.Name = "宋体"
    cN.MenuFont.Size = 9
    cN.Attach f, f.PicCaption.Picture, f.PicBorder.Picture, 19, 20, 90, 140, 240, 400
    f.BackColor = RGB(207, 203, 207)
End Sub