yfskin.ctl

OCX DLL注册工具 OCX DLL注册工具

    Else
        imgTitleControl.Visible = False
    End If

    '最小化按钮
    If frmWindow.MinButton = False Then
        strFile = SkinGetFilePath("TitleMin4.bmp", strPath)
        If Len(strFile) = 0 Then strFile = SkinGetFilePath("TitleMin3.bmp", strPath)
        imgTitleButton0.Enabled = False
    Else
        strFile = SkinGetFilePath("TitleMin1.bmp", strPath)
        imgTitleButton0.Enabled = True
    End If
    If Len(Dir(strFile)) > 0 Then
        imgTitleButton0.Picture = LoadPicture(strFile)
    Else
        imgTitleButton0.Picture = LoadPicture()
    End If

    If SkinGetData("Title", "TitleMinFlag") = 1 Then
        imgTitleButton0.Visible = True
    Else
        imgTitleButton0.Visible = False
    End If

    '最大化按钮
    If frmWindow.MaxButton = False Then
        strFile = SkinGetFilePath("TitleMax7.bmp", strPath)
        If Len(strFile) = 0 Then strFile = SkinGetFilePath("TitleMax3.bmp", strPath)
        imgTitleButton1.Enabled = False
    Else
        If mMaxWindowFlag = False Then
            strFile = SkinGetFilePath("TitleMax1.bmp", strPath)

        Else
            If mMaxFlag = True Then
                strFile = SkinGetFilePath("TitleMax6.bmp", strPath)
            Else
                strFile = SkinGetFilePath("TitleMax1.bmp", strPath)
            End If
        End If

        imgTitleButton1.Enabled = True
    End If
    If Len(Dir(strFile)) > 0 Then
        imgTitleButton1.Picture = LoadPicture(strFile)
    Else
        imgTitleButton1.Picture = LoadPicture()
    End If

    If SkinGetData("Title", "TitleMaxFlag") = 1 Then
        imgTitleButton1.Visible = True
    Else
        imgTitleButton1.Visible = False
    End If

    '关闭按钮
    strFile = SkinGetFilePath("TitleClose1.bmp", strPath)
    If Len(Dir(strFile)) > 0 Then
        imgTitleButton2.Picture = LoadPicture(strFile)
    Else
        imgTitleButton2.Picture = LoadPicture()
    End If

    If SkinGetData("Title", "TitleCloseFlag") = 1 Then
        imgTitleButton2.Visible = True
    Else
        imgTitleButton2.Visible = False
    End If

    '标题
    If Len(Dir(strSelectLanguageFile)) > 0 Then
        lngCaptionNo = Val(ReadIniOne(strSelectLanguageFile, "Info", "TitleCaption", "0"))
        strFile = SkinGetFilePath("TitleCaption" & Format(lngCaptionNo, "0") & ".bmp", strPath)
    Else
        strFile = SkinGetFilePath("TitleCaption0.bmp", strPath)
    End If

    If Len(Dir(strFile)) > 0 Then
        imgTitleCaption.Picture = LoadPicture(strFile)
    Else
        imgTitleCaption.Picture = LoadPicture()
    End If

    If SkinGetData("Title", "TitleCaptionFlag") = 1 Then
        imgTitleCaption.Visible = True
    Else
        imgTitleCaption.Visible = False
    End If

    '背景色
    frmWindow.BackColor = SkinGetData("Bar", "BackColor", , strPath)

    '-------------------------------------
    '图片的叠放次序
    '三边图片
    imgBorder0.ZOrder 0
    imgBorder1.ZOrder 0
    imgBorder2.ZOrder 0

    '标题底
    imgTitle.ZOrder 0

    '标题头
    imgTitleBegin.ZOrder 0

    '标题尾
    imgTitleEnd.ZOrder 0

    '四角图片
    imgCorner0.ZOrder 0
    imgCorner1.ZOrder 0
    imgCorner2.ZOrder 0
    imgCorner3.ZOrder 0

    '标题控制区
    imgTitleControl.ZOrder 0

    '最小化按钮
    imgTitleButton0.ZOrder 0

    '最大化按钮
    imgTitleButton1.ZOrder 0

    '关闭按钮
    imgTitleButton2.ZOrder 0

    '标题
    imgTitleCaption.ZOrder 0

    '标题图标
    imgIcon.ZOrder 0

    '标题条
    lblTitle.ZOrder 0

    '------------------------------------------------
    '位置调整
    SkinDisposal strSkinPath

    '------------------------------------------------

    SkinLoadImage = 0

Exit Function

    '----------------
ToExit:
    Resume Next
End Function

'*************************************************************************
'**函 数 名：GetLanguageFile
'**输    入：index(Long) -
'**输    出：(String) -
'**功能描述：获得语言路径信息
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-28 13:30:50
'**修 改 人：
'**日    期：
'**版    本：V1.0.8
'*************************************************************************
Public Function GetLanguageFile(index As Long) As String
    If index > -1 And index < lngLanguageNum Then
       GetLanguageFile = strLanguageFiles(index)
    End If
End Function


'*************************************************************************
'**函 数 名：GetSkinPath
'**输    入：index(Long) -
'**输    出：(String) -
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-28 13:31:59
'**修 改 人：
'**日    期：
'**版    本：V1.0.8
'*************************************************************************
Public Function GetSkinPath(index As Long) As String
    If index > -1 And index < lngSkinNum Then
       GetSkinPath = strSkinFiles(index)
    End If
End Function

'*************************************************************************
'**函 数 名：GetSkinImgName
'**输    入：index(Long) -
'**输    出：(String) -
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-28 13:31:59
'**修 改 人：
'**日    期：
'**版    本：V1.0.8
'*************************************************************************
Public Function GetSkinImgName(index As Long) As String
    If index > -1 And index < lngSkinNum Then
       GetSkinImgName = strSkinFiles(index) & "\" & "Interface.jpg"
    End If
End Function

'*************************************************************************
'**函 数 名：SkinDisposal
'**输    入：frmBar(Form)                  - 窗体
'**        ：Optional strPath(String = "") - Skin路径
'**输    出：(Long) -
'**功能描述：位置调整
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-07 16:37:08
'**修 改 人：
'**日    期：
'**版    本：V1.0.2
'*************************************************************************
Public Function SkinDisposal(Optional strPath As String = "", Optional lngFlag As Long = 0) As Long
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    Dim strFile As String
    Dim lngWidth As Long
    Dim lngHeight As Long
    Dim lngLeft As Long
    Dim lngTop As Long
    Dim lngTemp1 As Long
    Dim lngTemp2 As Long
    Dim i As Long, j As Long
    Static bRunFlag As Boolean

    If bRunFlag = True Then
        Exit Function
    End If

    bRunFlag = True

    If Len(strPath) = 0 Then
        strPath = strSkinPath
    End If

    If Len(strPath) = 0 Then
        strPath = App.Path & "\skins\Default"
        strSkinPath = strPath
    End If

    strFile = SkinGetFilePath("Skin.ini", strPath)

    If Len(Dir(strFile)) = 0 Then
        SkinDisposal = -1
        bRunFlag = False
        Exit Function
    End If

    '------------------------------------------------------------------
    '基本界面
    '------------------------------------------------------------------
    lngLeft = SkinGetData("Bar", "ClientLT", lngTop)
    lngRight = SkinGetData("Bar", "ClientRB", lngBottom)

    If frmWindow.Tag <> strSkinFiles(lngSkinNo) Then
        frmWindow.Tag = strSkinFiles(lngSkinNo)
        frmWindow.Move frmWindow.Left, frmWindow.Top, lngWindowW + (lngLeft + lngRight) * 15, lngWindowH + (lngTop + lngBottom) * 15
        For i = 0 To frmWindow.Controls.Count - 1
            For j = 0 To UBound(strControlName)
                If frmWindow.Controls(i).Name = strControlName(j) Then
                    GoTo Continue
                End If
            Next
            If Len(frmWindow.Controls(i).Tag) = 16 Then
                frmWindow.Controls(i).Left = Val(Left(frmWindow.Controls(i).Tag, 8)) + lngLeft
                frmWindow.Controls(i).Top = Val(Right(frmWindow.Controls(i).Tag, 8)) + lngTop
            End If
Continue:
        Next
    End If

    '-------------------------------------
    DoEvents
    lngLeft = 0
    lngTop = 0
    lngWidth = frmWindow.ScaleWidth
    lngHeight = frmWindow.ScaleHeight
    '---------------------------------------

    If frmWindow.WindowState = 1 Then
        SkinDisposal = -2
        bRunFlag = False
        Exit Function
    End If

    '四角图片
    lngTemp1 = SkinGetData("Corner", "CornerLT0", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If
    imgCorner0.Left = lngTemp1
    imgCorner0.Top = lngTemp2

    lngTemp1 = SkinGetData("Corner", "CornerLT1", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If
    imgCorner1.Left = lngTemp1
    imgCorner1.Top = lngTemp2

    lngTemp1 = SkinGetData("Corner", "CornerLT2", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If
    imgCorner2.Left = lngTemp1
    imgCorner2.Top = lngTemp2

    lngTemp1 = SkinGetData("Corner", "CornerLT3", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If
    imgCorner3.Left = lngTemp1
    imgCorner3.Top = lngTemp2

    '三边图片
    lngTemp1 = SkinGetData("Border", "BorderLT0", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgBorder0.Left = lngTemp1
    imgBorder0.Top = lngTemp2
    lngTemp1 = SkinGetData("Border", "BorderWH0", lngTemp2, strPath)
    imgBorder0.Width = lngTemp1

    lngTemp1 = SkinGetData("Border", "BorderLT1", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgBorder1.Left = lngTemp1
    imgBorder1.Top = lngTemp2
    lngTemp1 = SkinGetData("Border", "BorderWH1", lngTemp2, strPath)
    imgBorder1.Width = lngTemp1

    lngTemp1 = SkinGetData("Border", "BorderLT2", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgBorder2.Left = lngTemp1
    imgBorder2.Top = lngTemp2
    lngTemp1 = SkinGetData("Border", "BorderWH2", lngTemp2, strPath)
    imgBorder2.Height = lngTemp2

    imgBorder0.Height = lngHeight
    imgBorder1.Height = lngHeight
    imgBorder2.Width = lngWidth

    '叶帆标志
    lngTemp1 = SkinGetData("Title", "TitleIconLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgIcon.Left = lngTemp1
    imgIcon.Top = lngTemp2
    lngTemp1 = SkinGetData("Title", "TitleIconWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgIcon.Stretch = False
    Else
        imgIcon.Stretch = True
        imgIcon.Width = lngTemp1
        imgIcon.Height = lngTemp2
    End If

    '标题底
    lngTemp1 = SkinGetData("Title", "TitleBarLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If