yfskin.ctl

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

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

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

    imgTitleBegin.Left = lngTemp1
    imgTitleBegin.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleBeginWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleBegin.Stretch = False
    Else
        imgTitleBegin.Stretch = True
        imgTitleBegin.Width = lngTemp1
        imgTitleBegin.Height = lngTemp2
    End If

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

    imgTitleEnd.Left = lngTemp1
    imgTitleEnd.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleEndWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleEnd.Stretch = False
    Else
        imgTitleEnd.Stretch = True
        imgTitleEnd.Width = lngTemp1
        imgTitleEnd.Height = lngTemp2
    End If

    '标题内容
    lngTemp1 = SkinGetData("Title", "TitleCaptionsLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If
    lblTitle.Top = lngTemp2

    If SkinGetData("Title", "TitleIconFlag") = 1 Then
        lblTitle.Left = lngTemp1
    Else
        lblTitle.Left = imgIcon.Left
    End If

    lngTemp1 = SkinGetData("Title", "TitleCaptionsWH", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1 - lblTitle.Left
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    lblTitle.Width = lngTemp1
    lblTitle.Height = lngTemp2

    '标题控制区
    lngTemp1 = SkinGetData("Title", "TitleControlLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgTitleControl.Left = lngTemp1
    imgTitleControl.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleControlWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleControl.Stretch = False
    Else
        imgTitleControl.Stretch = True
        imgTitleControl.Width = lngTemp1
        imgTitleControl.Height = lngTemp2
    End If

    '最小化按钮
    lngTemp1 = SkinGetData("Title", "TitleMinLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgTitleButton0.Left = lngTemp1
    imgTitleButton0.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleMinWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleButton0.Stretch = False
    Else
        imgTitleButton0.Stretch = True
        imgTitleButton0.Width = lngTemp1
        imgTitleButton0.Height = lngTemp2
    End If

    '最大化按钮
    lngTemp1 = SkinGetData("Title", "TitleMaxLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgTitleButton1.Left = lngTemp1
    imgTitleButton1.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleMaxWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleButton1.Stretch = False
    Else
        imgTitleButton1.Stretch = True
        imgTitleButton1.Width = lngTemp1
        imgTitleButton1.Height = lngTemp2
    End If

    '关闭按钮
    lngTemp1 = SkinGetData("Title", "TitleCloseLT", lngTemp2, strPath)
    If lngTemp1 < 0 Then
        lngTemp1 = lngWidth + lngTemp1
    End If
    If lngTemp2 < 0 Then
        lngTemp2 = lngHeight + lngTemp2
    End If

    imgTitleButton2.Left = lngTemp1
    imgTitleButton2.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleCloseWH", lngTemp2, strPath)
    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleButton2.Stretch = False
    Else
        imgTitleButton2.Stretch = True
        imgTitleButton2.Width = lngTemp1
        imgTitleButton2.Height = lngTemp2
    End If

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

    imgTitleCaption.Left = lngTemp1
    imgTitleCaption.Top = lngTemp2

    lngTemp1 = SkinGetData("Title", "TitleCaptionWH", lngTemp2, strPath)

    If lngTemp1 = 0 And lngTemp2 = 0 Then
        imgTitleCaption.Stretch = False
    Else
        imgTitleCaption.Stretch = True
        imgTitleCaption.Width = lngTemp1
        imgTitleCaption.Height = lngTemp2
    End If

    If frmWindow.WindowState = 2 Then
        imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax4.bmp"))
    Else
        If frmWindow.MaxButton = False Then
            If Len(SkinGetFilePath("TitleMax7.bmp")) > 0 Then
                imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax7.bmp"))
            Else
                imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax7.bmp"))
            End If
        Else
            If mMaxWindowFlag = True Then
                If mMaxFlag = True Then
                    imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax4.bmp"))
                Else
                    imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax1.bmp"))
                End If
            Else
                imgTitleButton1.Picture = LoadPicture(SkinGetFilePath("TitleMax1.bmp"))
            End If
        End If

    End If

    '圆角处理
    Call CornerEdit(frmWindow.hwnd)
    '------------------------------------------------
    bRunFlag = False

Exit Function

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

'*************************************************************************
'**函 数 名：GetLanguageInfo
'**输    入：strLanguage()(String) -
'**输    出：(Long) -
'**功能描述：获得语言信息
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:46:29
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Function GetLanguageInfo(strLanguage() As String) As Long
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    Dim i As Long
    ReDim strLanguage(lngLanguageNum - 1)
    For i = 0 To lngLanguageNum - 1
      strLanguage(i) = strLanguageMsg(i)
    Next
    GetLanguageInfo = i
    '------------------------------------------------
    Exit Function
    '----------------
ToExit:
    GetLanguageInfo = 0
End Function

'*************************************************************************
'**函 数 名：GetSkinInfo
'**输    入：strSkin()(String) -
'**输    出：(Long) -
'**功能描述：获得界面信息
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:46:29
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Function GetSkinInfo(strSkin() As String) As Long
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    Dim i As Long
    ReDim strSkin(lngSkinNum - 1)
    
    For i = 0 To lngSkinNum - 1
      strSkin(i) = strSkinMsg(i)
    Next
    GetSkinInfo = i
    '------------------------------------------------
    Exit Function
    '----------------
ToExit:
    GetSkinInfo = 0
End Function


'*************************************************************************
'**函 数 名：system_Timer
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-29 13:10:36
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub system_Timer()
    On Error GoTo ToExit '打开错误陷阱
    Static lngW As Long
    Static lngH As Long
    '------------------------------------------------
   

    If lngW <> frmWindow.ScaleWidth Or lngH <> frmWindow.ScaleHeight Then
        lngW = frmWindow.ScaleWidth
        lngH = frmWindow.ScaleHeight
        
        SkinDisposal
    End If

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

    Exit Sub

    '----------------
ToExit:
End Sub


'*************************************************************************
'**函 数 名：UserControl_ReadProperties
'**输    入：PropBag(PropertyBag) -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-29 13:57:21
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
   If Ambient.UserMode = False Then
      system.Enabled = False
    Else
      system.Enabled = True
    End If
  
End Sub

'*************************************************************************
'**函 数 名：UserControl_Terminate
'**输    入：无
'**输    出：无
'**功能描述：关闭
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:43:54
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Private Sub UserControl_Terminate()
    ReDim Preserve strLanguageFiles(0)
    ReDim Preserve strLanguageMsg(0)
    ReDim Preserve strSkinFiles(0)
    ReDim Preserve strSkinMsg(0)
End Sub

'*************************************************************************
'**函 数 名：SkinNo
'**输    入：无
'**输    出：(Long) -
'**功能描述：皮肤索引号
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:54:06
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Property Get SkinNo() As Long
   SkinNo = lngSkinNo
End Property

Public Property Let SkinNo(ByVal vNewValue As Long)
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    
    If vNewValue > -1 And vNewValue < lngSkinNum Then
        lngSkinNo = vNewValue
        strSkinPath = strSkinFiles(lngSkinNo)
        SkinLoadImage
    End If
    '------------------------------------------------

    Exit Property

    '----------------
ToExit:
    Resume Next
End Property

'*************************************************************************
'**函 数 名：MaxFlag
'**输    入：无
'**输    出：(Boolean) -
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 22:18:35
'**修 改 人：
'**日    期：
'**版    本：V1.0.8
'*************************************************************************
Public Property Get MaxFlag() As Boolean
   MaxFlag = mMaxFlag