📄 frmmain.frm
字号:
Object.Tag = "TextRight"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8E59
Key = "Bold"
Object.Tag = "Bold"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8F6B
Key = "Italic"
Object.Tag = "Italic"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":907D
Key = "Underline"
Object.Tag = "Underline"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":918F
Key = "Strikethru"
Object.Tag = "Strikethru"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":92A1
Key = "SelectAll"
Object.Tag = "SelectAll"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":95F3
Key = "UnselectAll"
Object.Tag = "UnselectAll"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9945
Key = "AlignLeft"
Object.Tag = "AlignLeft"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9C97
Key = "AlignCenterVertical"
Object.Tag = "AlignCenterVertical"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9FE9
Key = "AlignRight"
Object.Tag = "AlignRight"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A33B
Key = "AlignTop"
Object.Tag = "AlignTop"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A68D
Key = "AlignCenterHorizontal"
Object.Tag = "AlignCenterHorizontal"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A9DF
Key = "AlignBottom"
Object.Tag = "AlignBottom"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":AD31
Key = "AlignCenterVerticalHorizontal"
Object.Tag = "AlignCenterVerticalHorizontal"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B083
Key = "BringToFront"
Object.Tag = "BringToFront"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B195
Key = "SendToBack"
Object.Tag = "SendToBack"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B2A7
Key = "BringForward"
Object.Tag = "BringForward"
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B3B9
Key = "SendBackward"
Object.Tag = "SendBackward"
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B4CB
Key = "Group"
Object.Tag = "Group"
EndProperty
BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B5DD
Key = "Ungroup"
Object.Tag = "Ungroup"
EndProperty
BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B6EF
Key = "Zoom100"
Object.Tag = "Zoom100"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BA41
Key = "Zoom-"
Object.Tag = "Zoom-"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BD93
Key = "Zoom+"
Object.Tag = "Zoom+"
EndProperty
EndProperty
End
Begin VB.PictureBox PicLoad
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 585
Left = 1350
ScaleHeight = 525
ScaleWidth = 375
TabIndex = 1
Top = 5820
Visible = 0 'False
Width = 435
End
Begin MSComDlg.CommonDialog cDialog
Left = 480
Top = 7920
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin ObjectDraw.ObjDraw ObjDraw1
Height = 6900
Left = 600
TabIndex = 0
Top = 930
Width = 10080
_extentx = 17780
_extenty = 12171
canvaswidth = 800
canvasheight = 600
undobuffersize = 20
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu SmnuFile
Caption = "新建(&N)"
Index = 0
End
Begin VB.Menu SmnuFile
Caption = "打开(&O)"
Index = 1
End
Begin VB.Menu SmnuFile
Caption = "保存(&S)"
Index = 2
End
Begin VB.Menu SmnuFile
Caption = "导出图片(&E)"
Index = 3
End
Begin VB.Menu SmnuFile
Caption = "-"
Index = 4
End
Begin VB.Menu SmnuFile
Caption = "打印(&P)"
Index = 5
End
Begin VB.Menu SmnuFile
Caption = "-"
Index = 6
End
Begin VB.Menu SmnuFile
Caption = "退出(&X)"
Index = 7
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu SmnuEdit
Caption = "撤销(&U)"
Index = 0
Shortcut = ^Z
End
Begin VB.Menu SmnuEdit
Caption = "恢复(&R)"
Index = 1
Shortcut = ^Y
End
Begin VB.Menu SmnuEdit
Caption = "-"
Index = 2
End
Begin VB.Menu SmnuEdit
Caption = "剪切(&X)"
Index = 3
Shortcut = ^X
End
Begin VB.Menu SmnuEdit
Caption = "复制(&C)"
Index = 4
Shortcut = ^C
End
Begin VB.Menu SmnuEdit
Caption = "粘贴(&P)"
Index = 5
Shortcut = ^V
End
Begin VB.Menu SmnuEdit
Caption = "-"
Index = 6
End
Begin VB.Menu SmnuEdit
Caption = "删除(&D)"
Index = 7
Shortcut = {DEL}
End
Begin VB.Menu SmnuEdit
Caption = "-"
Index = 8
End
Begin VB.Menu SmnuEdit
Caption = "全选(&A)"
Index = 9
Shortcut = ^A
End
Begin VB.Menu SmnuEdit
Caption = "-"
Index = 10
End
Begin VB.Menu SmnuEdit
Caption = "分组(&G)"
Index = 11
End
Begin VB.Menu SmnuEdit
Caption = "撤销分组(&V)"
Index = 12
End
End
Begin VB.Menu mnuZoom
Caption = "缩放(&Z)"
Begin VB.Menu SmnuZoom
Caption = "10%"
Index = 0
End
Begin VB.Menu SmnuZoom
Caption = "25%"
Index = 1
End
Begin VB.Menu SmnuZoom
Caption = "50%"
Index = 2
End
Begin VB.Menu SmnuZoom
Caption = "100%"
Checked = -1 'True
Index = 3
End
Begin VB.Menu SmnuZoom
Caption = "150%"
Index = 4
End
Begin VB.Menu SmnuZoom
Caption = "200%"
Index = 5
End
Begin VB.Menu SmnuZoom
Caption = "400%"
Index = 6
End
End
Begin VB.Menu mnuOptions
Caption = "选项(&O)"
Begin VB.Menu SmnuOptions
Caption = "画布大小(&S)"
Index = 0
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'http://www.cnpopsoft.com [华普软件汉化]
'发布日期：2007/08/07
'描 述：矢量绘图控件示例
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit
Dim doNothing As Boolean
Dim Answer As VbMsgBoxResult
Dim Modified As Boolean
Dim mTxtAlign As AlignmentConstants
Dim mBold As Boolean
Dim mItalic As Boolean
Dim mUnderline As Boolean
Dim mStrikethru As Boolean
Dim ColorIndex As Integer
Dim bFillColor As Long
Dim bBorderColor As Long
Dim bBackColor As Long
Dim bPtsQty As Integer
Private Function FileExist(ByVal MyFile As String) As Boolean
FileExist = (Dir(MyFile) <> "")
End Function
Private Sub CboFill_Click()
If doNothing = True Then Exit Sub
If ObjDraw1.CurrentObject > -1 Then
ObjDraw1.ModifyObject , , , , , bFillColor, CboFill.ListIndex, bBorderColor
End If
End Sub
Private Sub CboFontName_Click()
On Error Resume Next
If doNothing = True Then Exit Sub
If ObjDraw1.ObjectType = mText And doNothing = False Then
ObjDraw1.ModifyObject , , , , , , , , , , CboFontName.Text
End If
ObjDraw1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -