📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "*\AObjectDraw.vbp"
Object = "*\AColorPalette.vbp"
Begin VB.Form frmMain
Caption = "矢量绘图控件示例"
ClientHeight = 9060
ClientLeft = 165
ClientTop = 735
ClientWidth = 14070
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 9060
ScaleWidth = 14070
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin ComCtl3.CoolBar CoolBar3
Align = 4 'Align Right
Height = 7995
Left = 11505
TabIndex = 11
Top = 750
Width = 2565
_ExtentX = 4524
_ExtentY = 14102
BandCount = 2
Orientation = 1
_CBWidth = 2565
_CBHeight = 7995
_Version = "6.7.9782"
Child1 = "PicProperty1"
MinWidth1 = 3195
MinHeight1 = 2505
Width1 = 3195
NewRow1 = 0 'False
Child2 = "PicProperty2"
MinWidth2 = 1530
MinHeight2 = 2325
Width2 = 9000
NewRow2 = 0 'False
Begin VB.PictureBox PicProperty1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 3195
Left = 30
ScaleHeight = 3195
ScaleWidth = 2505
TabIndex = 12
Top = 165
Width = 2505
Begin VB.VScrollBar ScrCol
Height = 285
Index = 2
Left = 2100
Max = 0
Min = 255
TabIndex = 37
TabStop = 0 'False
Top = 2355
Width = 225
End
Begin VB.VScrollBar ScrCol
Height = 285
Index = 1
Left = 1350
Max = 0
Min = 255
TabIndex = 36
TabStop = 0 'False
Top = 2355
Width = 225
End
Begin VB.VScrollBar ScrCol
Height = 285
Index = 0
Left = 570
Max = 0
Min = 255
TabIndex = 35
TabStop = 0 'False
Top = 2355
Width = 225
End
Begin VB.TextBox TxtColor
Alignment = 1 'Right Justify
Height = 315
Index = 2
Left = 1650
Locked = -1 'True
TabIndex = 34
Text = "0"
Top = 2340
Width = 465
End
Begin VB.TextBox TxtColor
Alignment = 1 'Right Justify
Height = 315
Index = 1
Left = 870
Locked = -1 'True
TabIndex = 33
Text = "0"
Top = 2340
Width = 465
End
Begin VB.TextBox TxtColor
Alignment = 1 'Right Justify
Height = 315
Index = 0
Left = 120
Locked = -1 'True
TabIndex = 32
Text = "0"
Top = 2340
Width = 465
End
Begin VB.OptionButton OpColor
BackColor = &H00FFFFFF&
Height = 375
Index = 2
Left = 1350
MouseIcon = "frmMain.frx":6852
MousePointer = 99 'Custom
TabIndex = 15
Top = 1530
Width = 945
End
Begin VB.OptionButton OpColor
BackColor = &H00000000&
Height = 375
Index = 1
Left = 1350
MouseIcon = "frmMain.frx":69A4
MousePointer = 99 'Custom
TabIndex = 14
Top = 900
Width = 945
End
Begin VB.OptionButton OpColor
BackColor = &H00FF0000&
Height = 375
Index = 0
Left = 1365
MouseIcon = "frmMain.frx":6AF6
MousePointer = 99 'Custom
TabIndex = 13
Top = 270
Value = -1 'True
Width = 945
End
Begin ColorPalette.ColorPal ColorPal1
Height = 2040
Left = 120
TabIndex = 16
Top = 30
Width = 1155
_extentx = 2037
_extenty = 3598
thumbsize = 6
End
Begin VB.Label LblCol
BackStyle = 0 'Transparent
Caption = "蓝:"
Height = 225
Index = 2
Left = 1650
TabIndex = 40
Top = 2130
Width = 675
End
Begin VB.Label LblCol
BackStyle = 0 'Transparent
Caption = "绿:"
Height = 225
Index = 1
Left = 870
TabIndex = 39
Top = 2130
Width = 675
End
Begin VB.Label LblCol
BackStyle = 0 'Transparent
Caption = "红:"
Height = 225
Index = 0
Left = 120
TabIndex = 38
Top = 2130
Width = 675
End
Begin VB.Label LblColor
Alignment = 2 'Center
Height = 465
Left = 60
TabIndex = 28
Top = 2730
Width = 2385
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "背景色"
Height = 255
Index = 2
Left = 1260
TabIndex = 19
Top = 1350
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "边框色"
Height = 255
Index = 1
Left = 1290
TabIndex = 18
Top = 690
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "前景色"
Height = 255
Index = 3
Left = 1290
TabIndex = 17
Top = 90
Width = 975
End
End
Begin VB.PictureBox PicProperty2
BorderStyle = 0 'None
Height = 4380
Left = 120
ScaleHeight = 4380
ScaleWidth = 2325
TabIndex = 20
Top = 3585
Width = 2325
Begin VB.VScrollBar VScroll3
Height = 285
Left = 1920
Max = 1
Min = 200
TabIndex = 43
Top = 2100
Value = 25
Width = 255
End
Begin VB.TextBox TxtRound
Alignment = 1 'Right Justify
Height = 285
Left = 1500
TabIndex = 42
Text = "25"
Top = 2100
Width = 405
End
Begin VB.TextBox TxtPoint
Alignment = 1 'Right Justify
Height = 285
Left = 1500
Locked = -1 'True
TabIndex = 30
Text = "3"
ToolTipText = "Border Size"
Top = 1500
Width = 405
End
Begin VB.VScrollBar VScroll2
Height = 285
Left = 1920
Max = 3
Min = 30
TabIndex = 29
TabStop = 0 'False
Top = 1500
Value = 3
Width = 255
End
Begin VB.ComboBox CboFill
Height = 315
ItemData = "frmMain.frx":6C48
Left = 900
List = "frmMain.frx":6C64
Style = 2 'Dropdown List
TabIndex = 24
Top = 450
Width = 1275
End
Begin VB.VScrollBar VScroll1
Height = 285
Left = 1890
Max = 0
Min = 100
TabIndex = 23
TabStop = 0 'False
Top = 60
Value = 1
Width = 255
End
Begin VB.TextBox TxtBorder
Alignment = 1 'Right Justify
Height = 285
Left = 1470
Locked = -1 'True
TabIndex = 22
Text = "1"
ToolTipText = "Border Size"
Top = 60
Width = 405
End
Begin MSComctlLib.Slider Slider1
Height = 345
Left = 60
TabIndex = 21
TabStop = 0 'False
Top = 1080
Width = 2205
_ExtentX = 3889
_ExtentY = 609
_Version = 393216
LargeChange = 1
Max = 360
SelectRange = -1 'True
TickStyle = 3
End
Begin VB.Label Label5
Caption = "圆角大小:"
Height = 285
Left = 90
TabIndex = 41
Top = 2100
Width = 1485
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -