📄 xp_canvas.ctl
字号:
VERSION 5.00
Begin VB.UserControl xp_canvas
AutoRedraw = -1 'True
ClientHeight = 4980
ClientLeft = 0
ClientTop = 0
ClientWidth = 6150
ControlContainer= -1 'True
ScaleHeight = 332
ScaleMode = 3 'Pixel
ScaleWidth = 410
ToolboxBitmap = "xp_canvas.ctx":0000
Begin VB.Timer Timer2
Interval = 10
Left = 1680
Top = 3240
End
Begin VB.Timer Timer1
Interval = 10
Left = 1080
Top = 3240
End
Begin VB.PictureBox pictop
Align = 1 'Align Top
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 435
Left = 0
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 410
TabIndex = 3
Top = 0
Width = 6150
Begin VB.Label lblcaption
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Windows XP Controls"
BeginProperty Font
Name = "Trebuchet MS"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 270
Left = 390
TabIndex = 4
Top = 120
Width = 1965
End
Begin VB.Image imgicon
Height = 240
Left = 90
Picture = "xp_canvas.ctx":0312
Stretch = -1 'True
Top = 120
Width = 240
End
Begin VB.Image imgresize
Height = 135
Index = 6
Left = 6000
MousePointer = 6 'Size NE SW
Top = 0
Width = 135
End
Begin VB.Image imgresize
Height = 135
Index = 7
Left = 0
MousePointer = 8 'Size NW SE
Top = 0
Width = 135
End
Begin VB.Image imgresize
Height = 135
Index = 2
Left = 120
MousePointer = 7 'Size N S
Top = 0
Width = 5895
End
Begin VB.Label lblshadow
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Windows XP Controls"
BeginProperty Font
Name = "Trebuchet MS"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 270
Left = 480
TabIndex = 5
Top = 120
Width = 1965
End
End
Begin VB.PictureBox picbottom
Align = 2 'Align Bottom
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 135
Left = 0
MousePointer = 7 'Size N S
ScaleHeight = 9
ScaleMode = 3 'Pixel
ScaleWidth = 410
TabIndex = 2
Top = 4845
Width = 6150
Begin VB.Image imgresize
Height = 135
Index = 5
Left = 0
MousePointer = 6 'Size NE SW
Top = 0
Width = 135
End
Begin VB.Image imgresize
Height = 135
Index = 4
Left = 6000
MousePointer = 8 'Size NW SE
Top = 0
Width = 135
End
End
Begin VB.PictureBox picleft
Align = 3 'Align Left
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4410
Left = 0
MousePointer = 9 'Size W E
ScaleHeight = 294
ScaleMode = 3 'Pixel
ScaleWidth = 9
TabIndex = 1
Top = 435
Width = 135
End
Begin VB.PictureBox picright
Align = 4 'Align Right
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H00C00000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4410
Left = 6015
MousePointer = 9 'Size W E
ScaleHeight = 294
ScaleMode = 3 'Pixel
ScaleWidth = 9
TabIndex = 0
Top = 435
Width = 135
End
Begin VB.Image Image1
Height = 240
Left = 720
Picture = "xp_canvas.ctx":089C
Stretch = -1 'True
Top = 1200
Visible = 0 'False
Width = 240
End
Begin VB.Image imgtop
Height = 435
Left = 1320
Top = 960
Visible = 0 'False
Width = 990
End
Begin VB.Image imgleft
Height = 465
Left = 600
Top = 2160
Visible = 0 'False
Width = 75
End
Begin VB.Image imgright
Height = 465
Left = 4800
Top = 2160
Visible = 0 'False
Width = 75
End
Begin VB.Image imgbottom
Height = 75
Left = 2280
Top = 3360
Visible = 0 'False
Width = 735
End
Begin VB.Image imgtopmax
Height = 435
Left = 1320
Top = 1560
Visible = 0 'False
Width = 990
End
Begin VB.Image imgleft1
Height = 465
Left = 840
Picture = "xp_canvas.ctx":0E26
Top = 2160
Visible = 0 'False
Width = 75
End
Begin VB.Image imgtop1
Height = 435
Left = 2400
Picture = "xp_canvas.ctx":1360
Top = 960
Visible = 0 'False
Width = 990
End
Begin VB.Image imgright1
Height = 465
Left = 4560
Picture = "xp_canvas.ctx":1F56
Top = 2160
Visible = 0 'False
Width = 75
End
Begin VB.Image imgtopmax1
Height = 435
Left = 2400
Picture = "xp_canvas.ctx":2490
Top = 1560
Visible = 0 'False
Width = 990
End
Begin VB.Image imgbottom1
Height = 75
Left = 2280
Picture = "xp_canvas.ctx":3086
Top = 3120
Visible = 0 'False
Width = 735
End
Begin VB.Image imgtop2
Height = 435
Left = 3480
Picture = "xp_canvas.ctx":35CC
Top = 960
Visible = 0 'False
Width = 990
End
Begin VB.Image imgtopmax2
Height = 435
Left = 3480
Picture = "xp_canvas.ctx":41C2
Top = 1560
Visible = 0 'False
Width = 990
End
Begin VB.Image imgleft2
Height = 465
Left = 1080
Picture = "xp_canvas.ctx":4DB8
Top = 2160
Visible = 0 'False
Width = 75
End
Begin VB.Image imgbottom2
Height = 75
Left = 2280
Picture = "xp_canvas.ctx":52F2
Top = 2880
Visible = 0 'False
Width = 735
End
Begin VB.Image imgright2
Height = 465
Left = 4320
Picture = "xp_canvas.ctx":5838
Top = 2160
Visible = 0 'False
Width = 75
End
End
Attribute VB_Name = "xp_canvas"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Type PointAPI
X As Long
Y As Long
End Type
Dim oldcp As PointAPI
Dim newcp As PointAPI
Dim m_Icon As Picture
Dim FixedSingle As Boolean
Event Click()
Attribute Click.VB_UserMemId = -600
Event DblClick()
Attribute DblClick.VB_UserMemId = -601
Event Resize()
Event KeyDown(KeyCode As Integer, Shift As Integer)
Attribute KeyDown.VB_UserMemId = -602
Event KeyPress(KeyAscii As Integer)
Attribute KeyPress.VB_UserMemId = -603
Event KeyUp(KeyCode As Integer, Shift As Integer)
Attribute KeyUp.VB_UserMemId = -604
Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Attribute MouseDown.VB_UserMemId = -605
Event MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Attribute MouseMove.VB_UserMemId = -606
Event MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Attribute MouseUp.VB_UserMemId = -607
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -