📄 frmimageedit.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 = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmImageEdit
BackColor = &H8000000A&
BorderStyle = 1 'Fixed Single
Caption = "图像编辑"
ClientHeight = 11085
ClientLeft = 150
ClientTop = 435
ClientWidth = 10095
Icon = "frmImageEdit.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 11085
ScaleWidth = 10095
StartUpPosition = 3 'Windows Default
Begin VB.PictureBox picEdit
Align = 4 'Align Right
BorderStyle = 0 'None
Height = 10785
Left = 6825
ScaleHeight = 10785
ScaleWidth = 3270
TabIndex = 1
Top = 0
Width = 3270
Begin VB.CommandButton cmdMarkPaint
Appearance = 0 'Flat
Caption = "标注"
Height = 360
Left = 120
TabIndex = 73
Top = 10080
Width = 960
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 360
Left = 2250
TabIndex = 72
Top = 10080
Width = 960
End
Begin VB.Frame Frame1
Caption = "标注"
Height = 2355
Left = 120
TabIndex = 58
Top = 6840
Visible = 0 'False
Width = 3090
Begin VB.CheckBox chkTrans
Caption = "透明"
Height = 315
Left = 240
TabIndex = 71
Top = 1920
Width = 1215
End
Begin VB.CommandButton cmdMark
Appearance = 0 'Flat
Caption = "加入"
Height = 360
Left = 2040
TabIndex = 70
Top = 1860
Width = 960
End
Begin VB.PictureBox Picture2
Height = 255
Left = 2460
ScaleHeight = 195
ScaleWidth = 375
TabIndex = 66
Top = 1080
Width = 435
End
Begin VB.PictureBox Picture1
Height = 255
Left = 1020
ScaleHeight = 195
ScaleWidth = 375
TabIndex = 64
Top = 1080
Width = 435
End
Begin VB.TextBox txtMarkText
Height = 315
Left = 1020
TabIndex = 63
Top = 660
Width = 1875
End
Begin VB.OptionButton optShape
Caption = "文字"
Height = 375
Index = 3
Left = 180
TabIndex = 62
Top = 600
Width = 675
End
Begin VB.OptionButton optShape
Caption = "圆型"
Height = 375
Index = 2
Left = 1860
TabIndex = 61
Top = 240
Width = 675
End
Begin VB.OptionButton optShape
Caption = "矩形"
Height = 375
Index = 1
Left = 1020
TabIndex = 60
Top = 240
Width = 675
End
Begin VB.OptionButton optShape
Caption = "线段"
Height = 375
Index = 0
Left = 180
TabIndex = 59
Top = 240
Width = 675
End
Begin VB.Label Label3
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "字体示例"
Height = 315
Left = 1020
TabIndex = 69
Top = 1440
Width = 1875
End
Begin VB.Label Label1
Caption = "字体:"
Height = 255
Index = 1
Left = 240
TabIndex = 68
Top = 1500
Width = 675
End
Begin VB.Label Label2
Caption = "填充色:"
Height = 255
Left = 1680
TabIndex = 67
Top = 1080
Width = 675
End
Begin VB.Label Label1
Caption = "边框色:"
Height = 255
Index = 0
Left = 240
TabIndex = 65
Top = 1080
Width = 675
End
End
Begin VB.Frame fraCustomFilter
Caption = "定制滤镜"
Height = 1800
Left = 120
TabIndex = 47
Top = 2625
Width = 1530
Begin VB.CommandButton cmdFilter
Caption = "过滤"
Height = 315
Left = 315
TabIndex = 57
Top = 1335
Width = 900
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 0
Left = 285
TabIndex = 56
Text = "0"
Top = 270
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 1
Left = 615
TabIndex = 55
Text = "0"
Top = 270
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 2
Left = 945
TabIndex = 54
Text = "0"
Top = 270
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 3
Left = 285
TabIndex = 53
Text = "0"
Top = 600
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 4
Left = 615
TabIndex = 52
Text = "1"
Top = 600
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 5
Left = 945
TabIndex = 51
Text = "0"
Top = 600
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 6
Left = 285
TabIndex = 50
Text = "0"
Top = 930
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 7
Left = 615
TabIndex = 49
Text = "0"
Top = 930
Width = 270
End
Begin VB.TextBox txtFilter
Alignment = 2 'Center
Appearance = 0 'Flat
Height = 270
Index = 8
Left = 945
TabIndex = 48
Text = "0"
Top = 930
Width = 270
End
End
Begin VB.CommandButton cmdPrint
Caption = "打印"
Height = 360
Left = 120
TabIndex = 46
Top = 9660
Width = 960
End
Begin VB.Frame Frame3
Caption = "局部放大"
Height = 1200
Left = 120
TabIndex = 39
Top = 5580
Width = 3090
Begin VB.CommandButton cmdZoom
Caption = "查看"
Height = 360
Left = 2100
TabIndex = 44
Top = 660
Width = 900
End
Begin VB.OptionButton optZoom
Caption = "×1"
Height = 315
Index = 0
Left = 180
TabIndex = 43
Top = 315
Width = 600
End
Begin VB.OptionButton optZoom
Caption = "×2"
Height = 315
Index = 1
Left = 1140
TabIndex = 42
Top = 300
Width = 600
End
Begin VB.OptionButton optZoom
Caption = "×4"
Height = 315
Index = 2
Left = 2100
TabIndex = 41
Top = 300
Value = -1 'True
Width = 600
End
Begin VB.OptionButton optZoom
Caption = "×8"
Height = 315
Index = 3
Left = 180
TabIndex = 40
Top = 660
Width = 600
End
End
Begin VB.Frame fraZoom
Caption = "缩放"
Height = 1035
Left = 120
TabIndex = 32
Top = 4470
Width = 3090
Begin VB.OptionButton optScale
Caption = "75%"
Height = 315
Index = 2
Left = 2100
TabIndex = 38
Top = 240
Width = 810
End
Begin VB.OptionButton optScale
Caption = "50%"
Height = 315
Index = 1
Left = 1140
TabIndex = 37
Top = 240
Width = 810
End
Begin VB.OptionButton optScale
Caption = "25%"
Height = 315
Index = 4
Left = 180
TabIndex = 36
Top = 240
Width = 810
End
Begin VB.OptionButton optScale
Caption = "400%"
Height = 315
Index = 0
Left = 2100
TabIndex = 35
Top = 600
Width = 810
End
Begin VB.OptionButton optScale
Caption = "200%"
Height = 315
Index = 3
Left = 1140
TabIndex = 34
Top = 600
Width = 810
End
Begin VB.OptionButton optScale
Caption = "100%"
Height = 315
Index = 5
Left = 180
TabIndex = 33
Top = 600
Value = -1 'True
Width = 810
End
End
Begin VB.Frame frameRotate
Caption = "翻转"
Height = 1800
Left = 1920
TabIndex = 27
Top = 2625
Width = 1290
Begin VB.CommandButton cmdFlip
Caption = "翻转"
Height = 330
Left = 195
TabIndex = 31
Top = 1320
Width = 855
End
Begin VB.OptionButton optFlip
Caption = "双向"
Height = 315
Index = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -