checkbox.ctl
来自「非常漂亮的VB控件」· CTL 代码 · 共 621 行 · 第 1/2 页
CTL
621 行
VERSION 5.00
Object = "{27395F88-0C0C-101B-A3C9-08002B2F49FB}#1.1#0"; "PICCLP32.OCX"
Begin VB.UserControl NiceCheck
AccessKeys = "&H00C0C0FF&"
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
ClientHeight = 3060
ClientLeft = 0
ClientTop = 0
ClientWidth = 8385
FillStyle = 0 'Solid
ScaleHeight = 3060
ScaleWidth = 8385
ToolboxBitmap = "checkbox.ctx":0000
Begin VB.Timer Timer1
Interval = 10
Left = 240
Top = 960
End
Begin VB.PictureBox p
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 240
Left = 240
ScaleHeight = 16
ScaleMode = 3 'Pixel
ScaleWidth = 16
TabIndex = 1
Top = 120
Width = 240
End
Begin PicClip.PictureClip pc
Index = 0
Left = 120
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":0312
End
Begin PicClip.PictureClip pc
Index = 1
Left = 360
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1BC4
End
Begin PicClip.PictureClip pc
Index = 2
Left = 600
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":3476
End
Begin PicClip.PictureClip pc
Index = 3
Left = 840
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":4D28
End
Begin PicClip.PictureClip pc
Index = 4
Left = 1080
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":65DA
End
Begin PicClip.PictureClip pc
Index = 5
Left = 1320
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":7E8C
End
Begin PicClip.PictureClip pc
Index = 6
Left = 1560
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":973E
End
Begin PicClip.PictureClip pc
Index = 7
Left = 1800
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":AFF0
End
Begin PicClip.PictureClip pc
Index = 8
Left = 2040
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":C8A2
End
Begin PicClip.PictureClip pc
Index = 9
Left = 2280
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":E154
End
Begin PicClip.PictureClip pc
Index = 10
Left = 2520
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":FA06
End
Begin PicClip.PictureClip pc
Index = 11
Left = 2760
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":112B8
End
Begin PicClip.PictureClip pc
Index = 12
Left = 3000
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":12B6A
End
Begin PicClip.PictureClip pc
Index = 13
Left = 3240
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1441C
End
Begin PicClip.PictureClip pc
Index = 15
Left = 3720
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":15CCE
End
Begin PicClip.PictureClip pc
Index = 14
Left = 3480
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":17580
End
Begin PicClip.PictureClip pc
Index = 16
Left = 3960
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":18E32
End
Begin PicClip.PictureClip pc
Index = 17
Left = 4200
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1A6E4
End
Begin PicClip.PictureClip pc
Index = 18
Left = 4440
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1BF96
End
Begin PicClip.PictureClip pc
Index = 19
Left = 4680
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1D848
End
Begin PicClip.PictureClip pc
Index = 20
Left = 4920
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":1F0FA
End
Begin PicClip.PictureClip pc
Index = 21
Left = 5160
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":209AC
End
Begin PicClip.PictureClip pc
Index = 22
Left = 5400
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":2225E
End
Begin PicClip.PictureClip pc
Index = 23
Left = 5640
Top = 480
_ExtentX = 344
_ExtentY = 4128
_Version = 393216
Rows = 12
Picture = "checkbox.ctx":23B10
End
Begin VB.Label lbl
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Check1"
ForeColor = &H80000008&
Height = 180
Left = 480
TabIndex = 0
Top = 120
Width = 540
End
End
Attribute VB_Name = "NiceCheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT_API) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINT_API) As Long
Private Type POINT_API
X As Long
Y As Long
End Type
Public Enum State
Unchecked = 0
Checked = 1
Mixed = 2
End Enum
Dim m_Font As Font
Dim m_Value As State
Dim m_BackColor As OLE_COLOR
Dim m_ForeColor As OLE_COLOR
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?