📄 frmmain.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 frmMain
Caption = "SEK Paint 1.0"
ClientHeight = 6840
ClientLeft = 165
ClientTop = 765
ClientWidth = 8175
LinkTopic = "Form1"
ScaleHeight = 456
ScaleMode = 3 'Pixel
ScaleWidth = 545
StartUpPosition = 3 'Windows-Standard
Begin VB.PictureBox picBCol
Height = 255
Left = 7680
ScaleHeight = 195
ScaleWidth = 315
TabIndex = 10
Top = 6600
Width = 375
End
Begin VB.PictureBox picFCol
Height = 255
Left = 7200
ScaleHeight = 195
ScaleWidth = 315
TabIndex = 9
Top = 6600
Width = 375
End
Begin ComctlLib.ProgressBar pg1
Height = 255
Left = 120
TabIndex = 6
Top = 6120
Width = 7935
_ExtentX = 13996
_ExtentY = 450
_Version = 327682
Appearance = 1
End
Begin VB.Frame fratemp
Height = 15
Left = 0
TabIndex = 5
Top = 0
Width = 8175
End
Begin VB.HScrollBar scrHorz
Height = 255
Left = 120
TabIndex = 4
Top = 5760
Width = 7695
End
Begin VB.VScrollBar scrVert
Height = 5655
Left = 7800
TabIndex = 3
Top = 120
Width = 255
End
Begin VB.PictureBox picBack
Height = 5655
Left = 120
ScaleHeight = 373
ScaleMode = 3 'Pixel
ScaleWidth = 509
TabIndex = 0
Top = 120
Width = 7695
Begin VB.PictureBox picZoom
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 375
Left = 5040
ScaleHeight = 21
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 15
Top = 3840
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picFlip
AutoRedraw = -1 'True
Height = 495
Left = 5040
ScaleHeight = 435
ScaleWidth = 2115
TabIndex = 14
Top = 3240
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picPrint
AutoRedraw = -1 'True
Height = 495
Left = 5040
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 13
Top = 2640
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picUndoTools
AutoRedraw = -1 'True
Height = 495
Left = 5040
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 12
Top = 1920
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picNew
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 495
Left = 5040
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 11
Top = 1320
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picUndo
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 495
Left = 5040
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 7
Top = 720
Visible = 0 'False
Width = 2175
End
Begin MSComDlg.CommonDialog comDiag
Left = 4320
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox picTemp
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 495
Left = 5040
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 141
TabIndex = 2
Top = 120
Visible = 0 'False
Width = 2175
End
Begin VB.PictureBox picMain
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Height = 3900
Left = 0
ScaleHeight = 256
ScaleMode = 3 'Pixel
ScaleWidth = 256
TabIndex = 1
Top = 0
Width = 3900
End
End
Begin VB.Label lblCoords
Height = 255
Left = 120
TabIndex = 8
Top = 6480
Width = 2175
End
Begin VB.Menu mnuFile
Caption = "&File"
Begin VB.Menu mnuNew
Caption = "&New"
End
Begin VB.Menu mnuOpen
Caption = "&Open"
End
Begin VB.Menu mnuSave
Caption = "&Save"
End
Begin VB.Menu mnuPrint
Caption = "&Print"
End
Begin VB.Menu mnuSep1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "E&xit"
End
End
Begin VB.Menu mnuTools
Caption = "&Tools"
Begin VB.Menu mnuPencil
Caption = "&Pencil"
End
Begin VB.Menu mnuStar
Caption = "&Star"
End
Begin VB.Menu mnuHorzLine
Caption = "&Horizontal Line"
End
Begin VB.Menu mnuVertLine
Caption = "&Vertical Line"
End
Begin VB.Menu mnuCrossND
Caption = "Cro&ss"
End
Begin VB.Menu mnuCross
Caption = "Diagonal C&ross"
End
Begin VB.Menu mnuUDefPolygon
Caption = "User-defined Polygon"
End
Begin VB.Menu mnuDiagLineRL
Caption = "Diag&onal Line (\)"
End
Begin VB.Menu mnuDiagLineLR
Caption = "Dia&gonal Line (/)"
End
Begin VB.Menu mnuText
Caption = "Te&xt"
End
Begin VB.Menu mnuStLine
Caption = "&Straight Line"
End
Begin VB.Menu mnuBrush
Caption = "&Brush"
End
Begin VB.Menu mnuErase
Caption = "E&rase"
End
Begin VB.Menu mnuFRect
Caption = "Fi&lled Rect"
End
Begin VB.Menu mnuFCircle
Caption = "&Filled Circle"
End
Begin VB.Menu mnuCircle
Caption = "&Circle"
End
Begin VB.Menu mnuRect
Caption = "&Rect"
End
Begin VB.Menu mnuPolygon
Caption = "&Polygon"
End
Begin VB.Menu mnuFillReg
Caption = "&Fill Regions"
End
Begin VB.Menu mnuSep2
Caption = "-"
End
Begin VB.Menu mnuUndoTools
Caption = "Und&o"
End
End
Begin VB.Menu mnuProps
Caption = "&Properties"
Begin VB.Menu mnuSetDW
Caption = "&Set the DrawWidth"
End
Begin VB.Menu mnuDS
Caption = "&DrawStyle"
Begin VB.Menu mnuDFilled
Caption = "&Filled"
End
Begin VB.Menu mnuDLine
Caption = "&Line"
End
Begin VB.Menu mnuDPoint
Caption = "&Point"
End
Begin VB.Menu mnuDLinPoint
Caption = "Li&ne-Point"
End
Begin VB.Menu mnuDLinPointPt
Caption = "Line&-Point-Point"
End
End
Begin VB.Menu mnuFStyle
Caption = "&FillStyle"
Begin VB.Menu mnuFilled
Caption = "&Filled"
End
Begin VB.Menu mnuFHorzLine
Caption = "&Horizontal Line"
End
Begin VB.Menu mnuFVertLine
Caption = "&Vertical Line"
End
Begin VB.Menu mnuFDiagonalRL
Caption = "Diagonal (&\)"
End
Begin VB.Menu mnuFDiagonalLR
Caption = "Diagonal (&/)"
End
Begin VB.Menu mnuFCross
Caption = "&Cross"
End
Begin VB.Menu mnuFDiagCross
Caption = "Diagonal Cr&oss"
End
End
End
Begin VB.Menu mnuFilters
Caption = "&Filters"
Begin VB.Menu mnuEmboss
Caption = "&Emboss"
End
Begin VB.Menu mnuSharpen
Caption = "&Sharpen"
End
Begin VB.Menu mnuDiffuse
Caption = "&Diffuse"
End
Begin VB.Menu mnuRects
Caption = "&Rects"
End
Begin VB.Menu mnuBright
Caption = "&Brightness"
End
Begin VB.Menu mnuIce
Caption = "&Ice"
End
Begin VB.Menu mnuDark
Caption = "&Dark"
End
Begin VB.Menu mnuHeat
Caption = "&Heat"
End
Begin VB.Menu mnuStrange
Caption = "&Strange"
End
Begin VB.Menu mnuAqua
Caption = "&Aqua"
End
Begin VB.Menu mnuNight
Caption = "&Night"
End
Begin VB.Menu mnuAfrika
Caption = "&Afrika"
End
Begin VB.Menu mnuBlur
Caption = "&Blur"
End
Begin VB.Menu mnuInvert
Caption = "&Invert"
End
Begin VB.Menu mnuBAndW
Caption = "&Greyscale"
End
Begin VB.Menu mnuComic
Caption = "C&omic"
End
Begin VB.Menu mnuBaW
Caption = "B&lack and White"
End
Begin VB.Menu mnuSep3
Caption = "-"
End
Begin VB.Menu mnuUndo
Caption = "&Undo Filter"
End
End
Begin VB.Menu mnuEffects
Caption = "&Effects"
Begin VB.Menu mnuFlip1
Caption = "Flip&1"
End
Begin VB.Menu mnuFlip2
Caption = "Flip&2"
End
Begin VB.Menu mnuFlip3
Caption = "Flip&3"
End
Begin VB.Menu mnuRepCol
Caption = "&Replace Color"
End
Begin VB.Menu mnuWave
Caption = "&Wave"
End
Begin VB.Menu mnuHammer
Caption = "&Hammer"
End
Begin VB.Menu mnuZoom
Caption = "&Zoom"
Begin VB.Menu mnuZoomIn
Caption = "&Zoom In"
Begin VB.Menu mnuP25
Caption = "+25 %"
End
Begin VB.Menu mnuP50
Caption = "+50%"
End
Begin VB.Menu mnuP75
Caption = "+75%"
End
End
Begin VB.Menu mnuZoomOut
Caption = "Z&oom Out"
Begin VB.Menu mnuM25
Caption = "-25%"
End
Begin VB.Menu mnuM50
Caption = "-50%"
End
Begin VB.Menu mnuM75
Caption = "-75%"
End
End
End
Begin VB.Menu mnuSep4
Caption = "-"
End
Begin VB.Menu mnuUndoEffects
Caption = "&Undo"
End
End
Begin VB.Menu mnuInfo
Caption = "&Info"
Begin VB.Menu mnuAbout
Caption = "&About"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
cX = picMain.ScaleWidth
cY = picMain.ScaleHeight
scrHorz.Value = 0
scrHorz.Max = picMain.Width - 5
scrVert.Value = 0
scrVert.Max = picMain.Height - 5
tColors.lBCol = vbBlue
tColors.lFCol = vbBlack
picFCol.BackColor = vbBlack
picBCol.BackColor = vbBlue
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
lblCoords.Caption = vbNullString
End Sub
Private Sub Form_Resize()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -