📄 form1.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form MainForm
BorderStyle = 1 'Fixed Single
Caption = "Drawer - first edition By Jongmin Baek"
ClientHeight = 7305
ClientLeft = 1860
ClientTop = 1455
ClientWidth = 11625
ClipControls = 0 'False
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7305
ScaleWidth = 11625
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 615
Left = 0
TabIndex = 3
Top = 0
Width = 11625
_ExtentX = 20505
_ExtentY = 1085
ButtonWidth = 1402
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 8
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Line"
Key = ""
Object.ToolTipText = "Draw a straight line!"
Object.Tag = ""
Style = 2
Value = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Pencil"
Key = ""
Object.ToolTipText = "Draw as you want!"
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Eraser"
Key = ""
Object.ToolTipText = "Erase the bad things!"
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Box"
Key = ""
Object.ToolTipText = "Draw boxes you want!"
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Circle"
Key = ""
Object.ToolTipText = "Draw circles you want!"
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Picker"
Key = ""
Object.ToolTipText = "Pick color you want from the picture!"
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Enabled = 0 'False
Caption = "Paint"
Key = ""
Object.ToolTipText = "Paint the area you want! But Not available now."
Object.Tag = ""
Style = 2
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Gradation"
Key = ""
Object.ToolTipText = "Make the Gradation you want!"
Object.Tag = ""
Style = 2
EndProperty
EndProperty
End
Begin ComctlLib.ProgressBar ProgressBar1
Height = 135
Left = 0
TabIndex = 56
Top = 7200
Width = 11655
_ExtentX = 20558
_ExtentY = 238
_Version = 327682
Appearance = 1
End
Begin VB.Timer Timer1
Interval = 50
Left = 6960
Top = 3000
End
Begin VB.TextBox Text1
Height = 975
Left = 6000
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 20
Text = "Form1.frx":12FA
Top = 6120
Width = 3015
End
Begin VB.CommandButton DialogBox
Caption = "SecondColor Dialog"
Height = 495
Index = 1
Left = 7440
TabIndex = 19
Top = 3240
Width = 1575
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 5
Left = 6000
Max = 255
TabIndex = 15
Top = 5880
Value = 255
Width = 3015
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 4
Left = 6000
Max = 255
TabIndex = 14
Top = 5640
Value = 255
Width = 3015
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 3
Left = 6000
Max = 255
TabIndex = 13
Top = 5400
Value = 255
Width = 3015
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 2
Left = 6000
Max = 255
TabIndex = 11
Top = 4800
Width = 3015
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 1
Left = 6000
Max = 255
TabIndex = 10
Top = 4560
Width = 3015
End
Begin VB.HScrollBar Scroll
Height = 135
Index = 0
Left = 6000
Max = 255
TabIndex = 9
Top = 4320
Width = 3015
End
Begin VB.CommandButton DialogBox
Caption = "FrontColor Dialog"
Height = 495
Index = 0
Left = 7440
TabIndex = 8
Top = 2760
Width = 1575
End
Begin VB.PictureBox ForeColorSample
Appearance = 0 'Flat
BackColor = &H80000006&
ForeColor = &H80000008&
Height = 495
Left = 6000
ScaleHeight = 465
ScaleWidth = 585
TabIndex = 5
ToolTipText = "FrontColor"
Top = 3000
Width = 615
End
Begin VB.PictureBox BackColorSample
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
ForeColor = &H80000008&
Height = 495
Left = 6240
ScaleHeight = 465
ScaleWidth = 585
TabIndex = 6
ToolTipText = "Back Color"
Top = 3240
Width = 615
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 8280
Top = 6120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "JPEG files|*.jpg|GIF files|*.GIF|Bitmap files|*.BMP|All Files|*.*"
End
Begin VB.PictureBox ColorBoard
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1695
Left = 6000
MousePointer = 2 'Cross
Picture = "Form1.frx":1361
ScaleHeight = 1695
ScaleWidth = 3000
TabIndex = 1
ToolTipText = "Left Click - FrontColor, Right Click - BackColor"
Top = 960
Width = 3000
End
Begin VB.PictureBox MainPic
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 6375
Left = 0
MousePointer = 2 'Cross
ScaleHeight = 6315
ScaleWidth = 5835
TabIndex = 0
Top = 720
Width = 5895
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
BorderColor = &H00000000&
FillColor = &H00FFFFFF&
Height = 300
Left = 3120
Top = 2160
Visible = 0 'False
Width = 300
End
Begin VB.Shape Shape2
BorderStyle = 3 'Dot
DrawMode = 6 'Mask Pen Not
Height = 1095
Left = 720
Top = 2640
Visible = 0 'False
Width = 1935
End
Begin VB.Line Line1
BorderStyle = 3 'Dot
DrawMode = 6 'Mask Pen Not
Visible = 0 'False
X1 = 1680
X2 = 3720
Y1 = 960
Y2 = 2760
End
End
Begin VB.Frame Optionframe
Caption = "Circle or Picker or Paint Option"
Height = 6255
Index = 3
Left = 9120
TabIndex = 44
Top = 720
Visible = 0 'False
Width = 2415
Begin VB.Label Label13
Caption = "***Picker : Click the place (Left Click will pick frontcolor, Right Click will pick backcolor.)"
Height = 735
Left = 120
TabIndex = 57
Top = 1200
Width = 2175
End
Begin VB.Label Label11
Caption = "I'm sorry, but there is no option. I'll update this program. Please wait until update."
Height = 735
Left = 120
TabIndex = 45
Top = 480
Width = 2175
End
End
Begin VB.Frame Optionframe
Caption = "Gradation"
Height = 6255
Index = 4
Left = 9120
TabIndex = 46
Top = 720
Visible = 0 'False
Width = 2415
Begin VB.Frame Frame1
Caption = "Direction"
Height = 975
Left = 120
TabIndex = 52
Top = 240
Width = 2175
Begin VB.OptionButton GradationDirection
Caption = "Horizontal"
Height = 255
Index = 0
Left = 120
TabIndex = 54
Top = 240
Value = -1 'True
Width = 1935
End
Begin VB.OptionButton GradationDirection
Caption = "Vertical"
Height = 375
Index = 1
Left = 120
TabIndex = 53
Top = 480
Width = 1935
End
End
Begin VB.Frame Frame2
Caption = "Color"
Height = 1335
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -