📄 styler~1.ctl

📁 近期下载过的用户: yueshan1020 孙江波王洪贵成长林健张见 chenhaocheng 胡云龙 yms sdfsd zhong 陈晨 lee 戴友情 [查看上载者韩悦的更多信息]
💻 CTL
📖 第 1 页 / 共 4 页
字号:
    UserControl.CurrentY = lonStartHeight
    UserControl.Print TextString

Else
    If CTE = Normal Then
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    ElseIf CTE = Engraved Then
        UserControl.ForeColor = CEC
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.Print TextString
        UserControl.ForeColor = RGB(128, 128, 128)
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.ForeColor = oleForeColor
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        
    ElseIf CTE = Embossed Then
        UserControl.ForeColor = CEC
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight - 1
        UserControl.Print TextString
        UserControl.ForeColor = RGB(128, 128, 128)
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.Print TextString
        UserControl.ForeColor = oleForeColor
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    ElseIf CTE = OutLine Then
        UserControl.ForeColor = CEC
        UserControl.CurrentX = lonStartWidth + 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.CurrentX = lonStartWidth - 1
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        UserControl.CurrentY = lonStartHeight - 1
        UserControl.CurrentX = lonStartWidth
        UserControl.Print TextString
        UserControl.CurrentY = lonStartHeight + 1
        UserControl.CurrentX = lonStartWidth
        UserControl.Print TextString
        UserControl.ForeColor = oleForeColor
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
        
    ElseIf CTE = Shadow Then
        UserControl.ForeColor = CEC
        UserControl.CurrentX = lonStartWidth + CByte(SOX)
        UserControl.CurrentY = lonStartHeight + CByte(SOY)
        UserControl.Print TextString
        UserControl.ForeColor = oleForeColor
        UserControl.CurrentX = lonStartWidth
        UserControl.CurrentY = lonStartHeight
        UserControl.Print TextString
    End If
End If

    'UserControl.CurrentX = lonStartWidth
    'UserControl.CurrentY = lonStartHeight
    'UserControl.Print TextString





End Sub


'Draw the dotted focus rect on the button.
Private Sub DrawDottedFocusRect()
Dim lonLoop As Long

    'Draw the top focus dotted line.
For lonLoop = 3 To (UserControl.ScaleWidth - 5) Step 2
    UserControl.PSet (lonLoop, 2), 0
Next lonLoop

    'Draw the left focus dotted line.
For lonLoop = 4 To (UserControl.ScaleHeight - 4) Step 2
    UserControl.PSet (2, lonLoop), 0
Next lonLoop

    'Draw the bottom focus dotted line.
For lonLoop = 3 To (UserControl.ScaleWidth - 5) Step 2
    UserControl.PSet (lonLoop, ScaleHeight - 4), 0
Next lonLoop

    'Draw the right focus dotted line.
For lonLoop = 4 To (UserControl.ScaleHeight - 4) Step 2
    UserControl.PSet (ScaleWidth - 4, lonLoop), 0
Next lonLoop


End Sub

'Draw the control.
Private Sub PaintControl()
On Error Resume Next

Dim lonRect As Long
Dim strName As String

'Shape control.
If lonRoundValue <= 0 Then
    lonRoundValue = 1
End If
lonRect = CreateRoundRectRgn(0, 0, ScaleWidth, ScaleHeight, lonRoundValue - 1, lonRoundValue - 1)
SetWindowRgn UserControl.hWnd, lonRect, True




strName = fntFont.Name

If Err = 0 Then
    Set UserControl.Font = fntFont
End If

'Check what style we should be using.
If udtColorStyle = [Office 2007 1] Then

    
    If bolEnabled = False Then
        UserControl.BackColor = vbWhite
        DefineRect 3, 3, ScaleWidth - 4, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(246, 249, 251), RGB(168, 208, 229)
        DefineRect 3, ScaleHeight / 2 - 1, ScaleWidth - 4, ScaleHeight - 4
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(163, 203, 223), RGB(213, 236, 247)
        UserControl.ForeColor = RGB(161, 189, 207)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue
        RoundRect UserControl.hDC, 2, 2, ScaleWidth - 3, ScaleHeight - 3, lonRoundValue, lonRoundValue
        UserControl.PSet (3, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (3, 3), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, 3), RGB(255, 255, 255)

        
        DrawIcon
        

        UserControl.ForeColor = CapDis
        PrintText strCaption, udtCaptionAlign
        
        Exit Sub
    End If
    
        UserControl.BackColor = vbWhite
        DefineRect 3, 3, ScaleWidth - 4, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(246, 249, 251), RGB(168, 208, 229)
        DefineRect 3, ScaleHeight / 2 - 1, ScaleWidth - 4, ScaleHeight - 4
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(146, 193, 217), RGB(213, 236, 247)
        UserControl.ForeColor = RGB(161, 189, 207)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue
        RoundRect UserControl.hDC, 2, 2, ScaleWidth - 3, ScaleHeight - 3, lonRoundValue, lonRoundValue
        UserControl.PSet (3, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (3, 3), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, 3), RGB(255, 255, 255)

    If bolMouseOver = True And bolMouseDown = False Then
        UserControl.BackColor = vbWhite
        DefineRect 3, 3, ScaleWidth - 4, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(245, 249, 252), RGB(122, 183, 222)
        DefineRect 3, ScaleHeight / 2 - 1, ScaleWidth - 4, ScaleHeight - 4
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(78, 153, 200), RGB(162, 217, 252)
        UserControl.ForeColor = RGB(161, 189, 207)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue
        RoundRect UserControl.hDC, 2, 2, ScaleWidth - 3, ScaleHeight - 3, lonRoundValue, lonRoundValue
        UserControl.PSet (3, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (3, 3), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, 3), RGB(255, 255, 255)


        GoTo Office20071Done
    End If
    
    If bolHasFocus = True And bolMouseDown = False Then
        UserControl.BackColor = vbWhite
        DefineRect 3, 3, ScaleWidth - 4, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(245, 249, 252), RGB(148, 197, 222)
        DefineRect 3, ScaleHeight / 2 - 1, ScaleWidth - 4, ScaleHeight - 4
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(123, 179, 209), RGB(162, 217, 252)
        UserControl.ForeColor = RGB(161, 189, 207)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue
        RoundRect UserControl.hDC, 2, 2, ScaleWidth - 3, ScaleHeight - 3, lonRoundValue, lonRoundValue
        UserControl.PSet (3, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (3, 3), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, 3), RGB(255, 255, 255)
        If bolFocusDottedRect = True Then
            'Draw dotted focus rect.
            DrawDottedFocusRect
        End If
        GoTo Office20071Done
    
    End If
    
    If bolMouseDown = True Then
        UserControl.BackColor = vbWhite
        DefineRect 3, 3, ScaleWidth - 4, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(239, 245, 251), RGB(97, 162, 214)
        DefineRect 3, ScaleHeight / 2 - 1, ScaleWidth - 4, ScaleHeight - 4
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(78, 149, 205), RGB(162, 202, 235)
        UserControl.ForeColor = RGB(161, 189, 207)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue
        RoundRect UserControl.hDC, 2, 2, ScaleWidth - 3, ScaleHeight - 3, lonRoundValue, lonRoundValue
        UserControl.PSet (3, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (3, 3), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, ScaleHeight - 5), RGB(255, 255, 255)
        UserControl.PSet (ScaleWidth - 5, 3), RGB(255, 255, 255)

        If bolHasFocus = True And bolFocusDottedRect = True Then
            DrawDottedFocusRect
        End If
        
        GoTo Office20071Done
    End If
    
Office20071Done:

    DrawIcon

    UserControl.ForeColor = oleForeColor
    PrintText strCaption, udtCaptionAlign
    
    Exit Sub


ElseIf udtColorStyle = [Media Player 11] Then

    
    If bolEnabled = False Then
    DefineRect 0, 0, ScaleWidth, ScaleHeight / 2
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(182, 193, 195), RGB(85, 100, 119)
    DefineRect 0, ScaleHeight / 2, ScaleWidth, ScaleHeight
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(0, 0, 0), RGB(50, 50, 54)


    DrawIcon
        
        
        UserControl.ForeColor = CapDis
        PrintText strCaption, udtCaptionAlign
        
        Exit Sub
    End If
    
    DefineRect 0, 0, ScaleWidth, ScaleHeight / 2
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(196, 204, 204), RGB(85, 100, 119)
    DefineRect 0, ScaleHeight / 2, ScaleWidth, ScaleHeight - (ScaleHeight / 3)
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(0, 0, 0), RGB(13, 29, 51)
    DrawGradientFourColour UserControl.hDC, 0, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(13, 29, 51), RGB(13, 29, 51), RGB(9, 20, 35), RGB(25, 79, 111)
    DrawGradientFourColour UserControl.hDC, ScaleWidth / 4, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(13, 29, 51), RGB(13, 29, 51), RGB(25, 79, 111), RGB(25, 79, 111)
    DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 2) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(13, 29, 51), RGB(13, 29, 51), RGB(25, 79, 111), RGB(25, 79, 111)
    DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 4) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(13, 29, 51), RGB(13, 29, 51), RGB(25, 79, 111), RGB(9, 20, 35)


    If bolMouseOver = True And bolMouseDown = False Then
        DefineRect 0, 0, ScaleWidth, ScaleHeight / 2
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(196, 204, 204), RGB(85, 100, 119)
        DefineRect 0, ScaleHeight / 2, ScaleWidth, ScaleHeight - (ScaleHeight / 3)
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(10, 39, 52), RGB(16, 64, 84)
        DrawGradientFourColour UserControl.hDC, 0, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(10, 39, 52), RGB(84, 172, 188)
        DrawGradientFourColour UserControl.hDC, ScaleWidth / 4, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(84, 172, 188), RGB(84, 172, 188)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 2) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(84, 172, 188), RGB(84, 172, 188)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 4) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(84, 172, 188), RGB(10, 39, 52)

        GoTo MediaPlayer11Done
    End If
    
    If bolHasFocus = True And bolMouseDown = False Then
        DefineRect 0, 0, ScaleWidth, ScaleHeight / 2
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(196, 204, 204), RGB(85, 100, 119)
        DefineRect 0, ScaleHeight / 2, ScaleWidth, ScaleHeight - (ScaleHeight / 3)
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(10, 39, 52), RGB(16, 64, 84)
        DrawGradientFourColour UserControl.hDC, 0, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(10, 39, 52), RGB(52, 128, 160)
        DrawGradientFourColour UserControl.hDC, ScaleWidth / 4, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(52, 128, 160), RGB(52, 128, 160)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 2) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(52, 128, 160), RGB(52, 128, 160)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 4) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(16, 64, 84), RGB(16, 64, 84), RGB(52, 128, 160), RGB(10, 39, 52)
        If bolFocusDottedRect = True Then
            'Draw dotted focus rect.
            DrawDottedFocusRect
        End If
        GoTo MediaPlayer11Done
    
    End If
    
    If bolMouseDown = True Then
        DefineRect 0, 0, ScaleWidth, ScaleHeight / 2
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(182, 193, 195), RGB(85, 100, 119)
        DefineRect 0, ScaleHeight / 2, ScaleWidth, ScaleHeight - (ScaleHeight / 3)
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(0, 0, 0), RGB(17, 39, 70)
        DrawGradientFourColour UserControl.hDC, 0, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(17, 39, 70), RGB(17, 39, 70), RGB(9, 20, 35), RGB(44, 141, 196)
        DrawGradientFourColour UserControl.hDC, ScaleWidth / 4, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(17, 39, 70), RGB(17, 39, 70), RGB(44, 141, 196), RGB(44, 141, 196)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 2) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(17, 39, 70), RGB(17, 39, 70), RGB(44, 141, 196), RGB(44, 141, 196)
        DrawGradientFourColour UserControl.hDC, ScaleWidth - (ScaleWidth / 4) - 1, ScaleHeight - (ScaleHeight / 3), ScaleWidth / 4, ScaleHeight / 3, RGB(17, 39, 70), RGB(17, 39, 70), RGB(44, 141, 196), RGB(9, 20, 35)


        If bolHasFocus = True And bolFocusDottedRect = True Then
            DrawDottedFocusRect
        End If
        
        GoTo MediaPlayer11Done
    End If
    

MediaPlayer11Done:

    DrawIcon

    UserControl.ForeColor = oleForeColor
    PrintText strCaption, udtCaptionAlign
    
    Exit Sub

ElseIf udtColorStyle = [Vista 1] Then

    
    If bolEnabled = False Then
        DefineRect 0, 0, ScaleWidth, ScaleHeight
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(238, 238, 238), RGB(238, 238, 238)
        UserControl.ForeColor = RGB(178, 178, 178)
        RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue
        UserControl.ForeColor = RGB(255, 255, 255)
        RoundRect UserControl.hDC, 1, 1, ScaleWidth - 2, ScaleHeight - 2, lonRoundValue, lonRoundValue



        DrawIcon
        
        
        UserControl.ForeColor = CapDis
        PrintText strCaption, udtCaptionAlign
        
        Exit Sub
    End If
    DrawGradientFourColour UserControl.hDC, 1, 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(213, 213, 214), RGB(239, 239, 239), RGB(193, 194, 195), RGB(234, 234, 234)
    DrawGradientFourColour UserControl.hDC, 1, ScaleHeight / 2 - 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(178, 177, 180), RGB(228, 229, 228), RGB(195, 195, 198), RGB(236, 236, 236)
    DrawGradientFourColour UserControl.hDC, ScaleWidth / 2, 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(239, 239, 239), RGB(213, 213, 214), RGB(234, 234, 234), RGB(193, 194, 195)
    DrawGradientFourColour UserControl.hDC, ScaleWidth / 2, ScaleHeight / 2 - 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(228, 229, 228), RGB(178, 177, 180), RGB(236, 236, 236), RGB(195, 195, 198)
    DefineRect 0, 0, 2, ScaleHeight / 2 - 1
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(251, 251, 251), RGB(226, 226, 226)
    DefineRect 0, ScaleHeight / 2 - 1, 2, ScaleHeight
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(219, 220, 220), RGB(221, 242, 248)
    DefineRect ScaleWidth - 3, 0, ScaleWidth, ScaleHeight / 2 - 1
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(251, 251, 251), RGB(226, 226, 226)
    DefineRect ScaleWidth - 3, ScaleHeight / 2 - 1, ScaleWidth, ScaleHeight
    DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(219, 220, 220), RGB(221, 242, 248)
    DefineRect 0, ScaleHeight - 3, ScaleWidth / 2, ScaleHeight
    DrawGradientTwoColour UserControl.hDC, [Left to Right], RGB(200, 200, 202), RGB(255, 255, 255)
    DefineRect ScaleWidth / 2, ScaleHeight - 3, ScaleWidth, ScaleHeight
    DrawGradientTwoColour UserControl.hDC, [Left to Right], RGB(255, 255, 255), RGB(200, 200, 202)
    DefineRect 0, 1, ScaleWidth / 2, 2
    DrawGradientTwoColour UserControl.hDC, [Left to Right], RGB(200, 200, 202), RGB(255, 255, 255)
    DefineRect ScaleWidth / 2, 1, ScaleWidth, 2
    DrawGradientTwoColour UserControl.hDC, [Left to Right], RGB(255, 255, 255), RGB(200, 200, 202)
    UserControl.ForeColor = RGB(99, 99, 99)
    RoundRect UserControl.hDC, 0, 0, ScaleWidth - 1, ScaleHeight - 1, lonRoundValue, lonRoundValue



    If bolMouseOver = True And bolMouseDown = False Then
        DrawGradientFourColour UserControl.hDC, 1, 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(183, 226, 249), RGB(220, 244, 248), RGB(153, 216, 250), RGB(228, 253, 254)
        DrawGradientFourColour UserControl.hDC, 1, ScaleHeight / 2 - 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(128, 207, 250), RGB(220, 253, 254), RGB(161, 221, 254), RGB(224, 255, 252)
        DrawGradientFourColour UserControl.hDC, ScaleWidth / 2, 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(220, 244, 248), RGB(183, 226, 249), RGB(228, 253, 254), RGB(153, 216, 250)
        DrawGradientFourColour UserControl.hDC, ScaleWidth / 2, ScaleHeight / 2 - 1, ScaleWidth / 2, ScaleHeight / 2 - 1, RGB(220, 253, 254), RGB(128, 207, 250), RGB(224, 255, 252), RGB(161, 221, 254)
        DefineRect 0, 0, 2, ScaleHeight / 2 - 1
        DrawGradientTwoColour UserControl.hDC, [Top to Bottom], RGB(254, 254, 254), RGB(196, 231, 250)
💿 文件大小 326 K
👤 上传用户 zhoubin2048
📂 所属分类压缩解压
🏷️ 相关标签

#chenhaocheng #yueshan #sdfsd #zhong
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -