yfskin.ctl

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

End Property

Public Property Let MaxFlag(ByVal vNewValue As Boolean)
    mMaxFlag = Not vNewValue
    imgTitleButton_Click 1
End Property


'*************************************************************************
'**函 数 名：Caption
'**输    入：无
'**输    出：(Long) -
'**功能描述：限制放缩标志
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:54:06
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Property Get Caption() As String
   Caption = mCaption
End Property

Public Property Let Caption(ByVal vNewValue As String)
    mCaption = vNewValue
    lblTitle.Caption = mCaption
End Property

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

Public Property Let LanguageNo(ByVal vNewValue As Long)
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    If vNewValue > -1 And vNewValue < lngLanguageNum Then
       lngLanguageNo = vNewValue
       strSelectLanguageFile = strLanguageFiles(lngLanguageNo)
       SkinLoadImage
    End If
    '------------------------------------------------
    Exit Property
    '----------------
ToExit:
    Resume Next
End Property

'*************************************************************************
'**函 数 名：MaxWindowFlag
'**输    入：无
'**输    出：(Long) -
'**功能描述： 窗体最大化标志
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:54:06
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Property Get MaxWindowFlag() As Boolean
   MaxWindowFlag = mMaxWindowFlag
End Property

Public Property Let MaxWindowFlag(ByVal vNewValue As Boolean)
   mMaxWindowFlag = vNewValue
End Property



'*************************************************************************
'**函 数 名：ToolTipText
'**输    入：无
'**输    出：(Long) -
'**功能描述：窗体控制按钮提示
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 13:54:06
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Public Property Get MinToolTipText() As String
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
   MaxToolTipText = imgTitleButton0.ToolTipText
    '------------------------------------------------
    Exit Property
    '----------------
ToExit:
    Resume Next
End Property

Public Property Let MinToolTipText(ByVal vNewValue As String)
    imgTitleButton0.ToolTipText = vNewValue
End Property

Public Property Get MaxToolTipText() As String
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
    MaxToolTipText = imgTitleButton1.ToolTipText
    '------------------------------------------------
    Exit Property
    '----------------
ToExit:
    Resume Next
End Property

Public Property Let MaxToolTipText(ByVal vNewValue As String)
    imgTitleButton1.ToolTipText = vNewValue
End Property

Public Property Get CloseToolTipText() As String
    On Error GoTo ToExit '打开错误陷阱
    '------------------------------------------------
   MaxToolTipText = imgTitleButton2.ToolTipText
    '------------------------------------------------
    Exit Property
    '----------------
ToExit:
    Resume Next
End Property

Public Property Let CloseToolTipText(ByVal vNewValue As String)
    imgTitleButton2.ToolTipText = vNewValue
End Property

Public Property Get SelectLanguageFile() As String
   SelectLanguageFile = strSelectLanguageFile
End Property

Public Property Get SkinPath() As String
   SkinPath = strSkinPath
End Property


'*************************************************************************
'**函 数 名：imgCorner_MouseDown
'**输    入：Index(Integer)  -
'**        ：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2003年04月29日
'**修 改 人：
'**日    期：
'**版    本：V1.0
'*************************************************************************
Private Sub imgCorner_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
     If frmWindow.MaxButton = False Or mMaxWindowFlag = True Then
        Exit Sub
     End If
    If frmWindow.WindowState <> 0 Then Exit Sub
    
    Dim intFlag As Long
    If Button = 1 And frmWindow.WindowState = 0 Then
        Dim ReturnVal As Long
        X = ReleaseCapture()
        Select Case index
          Case 0
            intFlag = HTTOPLEFT
          Case 1
            intFlag = HTTOPRIGHT
          Case 2
            intFlag = HTBOTTOMLEFT
          Case 3
            intFlag = HTBOTTOMRIGHT
          Case 10
            intFlag = HTLEFT
          Case 11
            intFlag = HTRIGHT
          Case 12
            intFlag = HTBOTTOM
          Case 13
            intFlag = HTTOP
        End Select

        ReturnVal = SendMessage(frmWindow.hwnd, WM_NCLBUTTONDOWN, intFlag, 0)

    End If
End Sub

'*************************************************************************
'**函 数 名：imgCorner_MouseMove
'**输    入：Index(Integer)  -
'**        ：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2003年04月29日
'**修 改 人：
'**日    期：
'**版    本：V1.0
'*************************************************************************
Private Sub imgCorner_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If frmWindow.MaxButton = False Or mMaxWindowFlag = True Then
        Exit Sub
    End If
    If frmWindow.WindowState <> 0 Then Exit Sub
    Dim intFlag As Long, mIndex As Integer
    If frmWindow.WindowState = 0 Then
        Dim ReturnVal As Long
        Select Case index
          Case 0
            mIndex = 8
          Case 1
            mIndex = 6
          Case 2
            mIndex = 6
          Case 3
            mIndex = 8
          Case 10
            mIndex = 9
          Case 11
            mIndex = 9
          Case 12
            mIndex = 7
          Case 13
            mIndex = 7
        End Select

        If index < 10 Then
            Select Case index
              Case 0: imgCorner0.MousePointer = mIndex
              Case 1: imgCorner1.MousePointer = mIndex
              Case 2: imgCorner2.MousePointer = mIndex
              Case 3: imgCorner3.MousePointer = mIndex
            End Select

        End If
        If index >= 10 And index < 13 Then
            Select Case index
              Case 10: imgBorder0.MousePointer = mIndex
              Case 11: imgBorder1.MousePointer = mIndex
              Case 12: imgBorder2.MousePointer = mIndex
            End Select
        End If
        If index > 12 Then imgTitle.MousePointer = mIndex
    End If
End Sub


'*************************************************************************
'**函 数 名：frmWindow_Resize
'**输    入：无
'**输    出：无
'**功能描述：大小调整
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-29 08:30:35
'**修 改 人：
'**日    期：
'**版    本：V1.0.10
'*************************************************************************
Private Sub frmWindow_Resize()
    '图片位置调整
    SkinDisposal
End Sub

'*************************************************************************
'**函 数 名：imgCorner0_MouseDown
'**输    入：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 14:43:28
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Private Sub imgCorner0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(0, Button, Shift, X, Y)
End Sub
Private Sub imgCorner1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(1, Button, Shift, X, Y)
End Sub
Private Sub imgCorner2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(2, Button, Shift, X, Y)
End Sub
Private Sub imgCorner3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(3, Button, Shift, X, Y)
End Sub

'*************************************************************************
'**函 数 名：imgCorner0_MouseMove
'**输    入：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 14:42:54
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Private Sub imgCorner0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(0, Button, Shift, X, Y)
End Sub
Private Sub imgCorner1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(1, Button, Shift, X, Y)
End Sub
Private Sub imgCorner2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(2, Button, Shift, X, Y)
End Sub
Private Sub imgCorner3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(3, Button, Shift, X, Y)
End Sub

'*************************************************************************
'**函 数 名：imgimgBorder0_MouseDown
'**输    入：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 14:43:28
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Private Sub imgimgBorder0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(10, Button, Shift, X, Y)
End Sub
Private Sub imgimgBorder1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(11, Button, Shift, X, Y)
End Sub
Private Sub imgimgBorder2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Call imgCorner_MouseDown(12, Button, Shift, X, Y)
End Sub

'*************************************************************************
'**函 数 名：imgimgBorder0_MouseMove
'**输    入：Button(Integer) -
'**        ：Shift(Integer)  -
'**        ：X(Single)       -
'**        ：Y(Single)       -
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2005-03-27 14:42:54
'**修 改 人：
'**日    期：
'**版    本：V1.0.3
'*************************************************************************
Private Sub imgimgBorder0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(10, Button, Shift, X, Y)
End Sub
Private Sub imgimgBorder1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(11, Button, Shift, X, Y)
End Sub
Private Sub imgimgBorder2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call imgCorner_MouseMove(12, Button, Shift, X, Y)
End Sub

'*************************************************************************
'**函 数 名：imgTitleButton_Click
'**输    入：Index(Integer) - 0 min； 1 Max； 2 Close
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：
'**作    者：刘洪峰
'**日    期：2003年04月24日
'**修 改 人：
'**日    期：
'