📄 frmpaint.frm
字号:
End
Begin VB.Label lblColor
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 1
Left = 850
TabIndex = 2
Top = 495
Width = 255
End
Begin VB.Label lblColor
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Height = 255
Index = 0
Left = 850
TabIndex = 1
Top = 225
Width = 255
End
End
Begin MSComctlLib.StatusBar sta
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 54
Top = 7140
Width = 7440
_ExtentX = 13123
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 9051
MinWidth = 2
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 1764
MinWidth = 1764
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 1764
MinWidth = 1764
EndProperty
EndProperty
End
Begin VB.PictureBox picPaint
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 6030
Left = 840
MousePointer = 99 'Custom
ScaleHeight = 398
ScaleMode = 3 'Pixel
ScaleWidth = 411
TabIndex = 49
Top = 15
Width = 6225
Begin VB.PictureBox picClipboard
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 630
Left = 1200
ScaleHeight = 42
ScaleMode = 3 'Pixel
ScaleWidth = 41
TabIndex = 62
Top = 120
Visible = 0 'False
Width = 615
End
Begin VB.TextBox txtText
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 120
TabIndex = 52
Top = 180
Visible = 0 'False
Width = 120
End
Begin VB.PictureBox picBuffer
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 615
Index = 0
Left = 2040
ScaleHeight = 37
ScaleMode = 3 'Pixel
ScaleWidth = 37
TabIndex = 51
Top = 120
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox picSelect
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 630
Left = 480
ScaleHeight = 42
ScaleMode = 3 'Pixel
ScaleWidth = 41
TabIndex = 50
Top = 120
Width = 615
End
Begin VB.Image imgBezier
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 60
Index = 0
Left = 2880
Top = 240
Visible = 0 'False
Width = 60
End
Begin VB.Image imgBezier
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 60
Index = 3
Left = 3240
Top = 600
Visible = 0 'False
Width = 60
End
Begin VB.Image imgBezier
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 60
Index = 2
Left = 3240
Top = 240
Visible = 0 'False
Width = 60
End
Begin VB.Image imgBezier
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 60
Index = 1
Left = 2880
Top = 600
Visible = 0 'False
Width = 60
End
Begin VB.Label lblTextSize
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 330
TabIndex = 53
Top = 240
Visible = 0 'False
Width = 45
End
End
Begin VB.PictureBox picPaintResize
Appearance = 0 'Flat
BackColor = &H00800000&
ForeColor = &H80000008&
Height = 70
Index = 0
Left = 7080
MousePointer = 9 'Size W E
ScaleHeight = 45
ScaleWidth = 45
TabIndex = 58
Top = 3000
Width = 70
End
Begin VB.PictureBox picPaintResize
Appearance = 0 'Flat
BackColor = &H00800000&
ForeColor = &H80000008&
Height = 70
Index = 2
Left = 7080
MousePointer = 8 'Size NW SE
ScaleHeight = 45
ScaleWidth = 45
TabIndex = 60
Top = 6045
Width = 70
End
Begin VB.PictureBox picPaintResize
Appearance = 0 'Flat
BackColor = &H00800000&
ForeColor = &H80000008&
Height = 70
Index = 1
Left = 3930
MousePointer = 7 'Size N S
ScaleHeight = 45
ScaleWidth = 45
TabIndex = 59
Top = 6045
Width = 70
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuNew
Caption = "&New"
Shortcut = ^N
End
Begin VB.Menu mnuOpen
Caption = "&Open"
Shortcut = ^O
End
Begin VB.Menu mnuSave
Caption = "&Save"
Shortcut = ^S
End
Begin VB.Menu mnuSaveAs
Caption = "Save &As..."
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuPrint
Caption = "&Print"
Shortcut = ^P
End
Begin VB.Menu mnuSep2
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "&Exit"
End
End
Begin VB.Menu mnuEdit
Caption = "&Edit"
Begin VB.Menu mnuUndo
Caption = "&Undo"
Enabled = 0 'False
Shortcut = ^Z
End
Begin VB.Menu mnuRedo
Caption = "&Redo"
Enabled = 0 'False
Shortcut = ^Y
End
Begin VB.Menu mnuSep3
Caption = "-"
End
Begin VB.Menu mnuCut
Caption = "Cu&t"
Enabled = 0 'False
Shortcut = ^X
End
Begin VB.Menu mnuCopy
Caption = "&Copy"
Enabled = 0 'False
Shortcut = ^C
End
Begin VB.Menu mnuPaste
Caption = "&Paste"
Enabled = 0 'False
Shortcut = ^V
End
Begin VB.Menu mnuDelete
Caption = "&Delete"
Enabled = 0 'False
Shortcut = {DEL}
End
Begin VB.Menu mnuSep4
Caption = "-"
End
Begin VB.Menu mnuCrop
Caption = "C&rop"
Enabled = 0 'False
End
End
Begin VB.Menu mnuFormat
Caption = "F&ormat"
Begin VB.Menu mnuBorderStyle
Caption = "&Border Style"
Begin VB.Menu mnuBS
Caption = "&Solid"
Checked = -1 'True
Index = 0
End
Begin VB.Menu mnuBS
Caption = "&Dash"
Index = 1
End
Begin VB.Menu mnuBS
Caption = "D&ot"
Index = 2
End
Begin VB.Menu mnuBS
Caption = "D&ashDot"
Index = 3
End
Begin VB.Menu mnuBS
Caption = "Da&shDotDot"
Index = 4
End
End
Begin VB.Menu mnuFillStyle
Caption = "Fi&ll Style"
Begin VB.Menu mnuFS
Caption = "&Solid"
Checked = -1 'True
Index = 0
End
Begin VB.Menu mnuFS
Caption = "&Transparent"
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuFS
Caption = "&Horizontal Line"
Index = 2
End
Begin VB.Menu mnuFS
Caption = "&Vertical Line"
Index = 3
End
Begin VB.Menu mnuFS
Caption = "&Downward Diagonal"
Index = 4
End
Begin VB.Menu mnuFS
Caption = "&Upward Diagonal"
Index = 5
End
Begin VB.Menu mnuFS
Caption = "&Cross"
Index = 6
End
Begin VB.Menu mnuFS
Caption = "Diagona&l Cross"
Index = 7
End
End
Begin VB.Menu mnuSep5
Caption = "-"
End
Begin VB.Menu mnuForegroundColor
Caption = "F&oreground Color..."
End
Begin VB.Menu mnuFillColor
Caption = "Fi&ll Color..."
End
Begin VB.Menu mnuFont
Caption = "&Font..."
Shortcut = ^F
End
End
Begin VB.Menu mnuEffect
Caption = "Effec&t"
Begin VB.Menu mnuResize
Caption = "Re&size"
Begin VB.Menu mnuResize25
Caption = "25%"
End
Begin VB.Menu mnuResize50
Caption = "50%"
End
Begin VB.Menu mnuResize75
Caption = "75%"
End
Begin VB.Menu mnuResize125
Caption = "125%"
End
Begin VB.Menu mnuResize150
Caption = "150%"
End
Begin VB.Menu mnuResize175
Caption = "175%"
End
Begin VB.Menu mnuResize200
Caption = "200%"
End
Begin VB.Menu mnuSep6
Caption = "-"
End
Begin VB.Menu mnuResizeBoth
Caption = "&Both"
Checked = -1 'True
End
Begin VB.Menu mnuResizeWidth
Caption = "&Width"
End
Begin VB.Menu mnuResizeHeight
Caption = "&Height"
End
End
Begin VB.Menu mnuFlip
Caption = "&Flip"
Begin VB.Menu mnuFlipHorizontal
Caption = "&Horizontal"
End
Begin VB.Menu mnuFlipVertical
Caption = "&Vertical"
End
End
Begin VB.Menu mnuRotate
Caption = "&Rotate"
Begin VB.Menu mnuRotate45
Caption = "By 45⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -