📄 form1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Form1
Caption = "画图软件"
ClientHeight = 4350
ClientLeft = 165
ClientTop = 855
ClientWidth = 5520
LinkTopic = "Form1"
ScaleHeight = 4350
ScaleWidth = 5520
StartUpPosition = 3 'Windows Default
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 495
Left = 0
TabIndex = 2
Top = 3855
Width = 5520
_ExtentX = 9737
_ExtentY = 873
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-06-30"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Picture = "Form1.frx":0000
TextSave = "17:15"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 120
Top = 3120
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 2040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 2520
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0752
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0BA4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0CB6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0DC8
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0EDA
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":132C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":177E
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1BD0
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":2022
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
FillStyle = 0 'Solid
Height = 3135
Left = 720
ScaleHeight = 3075
ScaleWidth = 4515
TabIndex = 1
Top = 120
Width = 4575
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 3 'Align Left
Height = 3855
Left = 0
TabIndex = 0
Top = 0
Width = 420
_ExtentX = 741
_ExtentY = 6800
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 9
EndProperty
EndProperty
Begin MSComCtl2.Animation Animation1
Height = 495
Left = 2400
TabIndex = 3
Top = 960
Width = 255
_ExtentX = 450
_ExtentY = 873
_Version = 393216
FullWidth = 17
FullHeight = 33
End
End
Begin MSComCtl2.Animation Animation2
Height = 615
Left = 960
TabIndex = 4
Top = 3240
Width = 735
_ExtentX = 1296
_ExtentY = 1085
_Version = 393216
FullWidth = 49
FullHeight = 41
End
Begin VB.Menu filemenu
Caption = "文件(&F)"
Begin VB.Menu filenew
Caption = "新建"
End
Begin VB.Menu fileopen
Caption = "打开..."
End
Begin VB.Menu filesave
Caption = "保存"
End
Begin VB.Menu connection1
Caption = "-"
Index = 1
End
Begin VB.Menu fileprint
Caption = "打印"
End
Begin VB.Menu connection2
Caption = "-"
End
Begin VB.Menu stop
Caption = "退出"
End
End
Begin VB.Menu edit
Caption = "编辑(E)"
Begin VB.Menu copy
Caption = "复制"
End
Begin VB.Menu past
Caption = "粘贴"
End
End
Begin VB.Menu colour
Caption = "颜色(&C)"
Begin VB.Menu pen
Caption = "画笔色"
End
Begin VB.Menu backlocor
Caption = "背景色"
End
Begin VB.Menu inner
Caption = "填充色"
End
End
Begin VB.Menu board
Caption = "画板"
Begin VB.Menu comm
Caption = "普通效果"
End
Begin VB.Menu special
Caption = "网格效果"
End
End
Begin VB.Menu drawwidth
Caption = "大小(S)"
Begin VB.Menu small
Caption = "细"
End
Begin VB.Menu commen
Caption = "中"
End
Begin VB.Menu big
Caption = "粗"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu dtail
Caption = "关于 画图程序"
End
End
Begin VB.Menu exit
Caption = "退出"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim time
Dim i, drawact As Integer
Dim canline, canpen, canrubber, canenlarge, canellipse, canrectangle, canflood, canget, canbrush As Boolean
Dim x0, y0, xnow, ynow, radius0, radius As Single
Dim Filename As String
Private Sub backlocor_Click()
CommonDialog1.Action = 3
Picture1.BackColor = CommonDialog1.Color
End Sub
Private Sub big_Click()
Picture1.drawwidth = 15
End Sub
Private Sub comm_Click()
'Dim zcolor
'CommonDialog1.ShowColor
'zcolor = CommonDialog1.Color
Picture1.BackColor = Picture1.BackColor
End Sub
Private Sub commen_Click()
Picture1.drawwidth = 7
End Sub
Private Sub copy_Click()
Clipboard.SetData Picture1.Image
End Sub
Private Sub cut_Click()
Picture1.Picture = Clipboard.GetData()
End Sub
Private Sub dtail_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -