⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmmain.frm

📁 一款开源的完整矢量绘图控件源码,支持直线、弧线、矩形、圆角矩形、椭圆、多边形、星形、文本和图片等的绘制
💻 FRM
📖 第 1 页 / 共 5 页
字号:
            Caption         =   "顶点数目:"
            Height          =   285
            Left            =   90
            TabIndex        =   31
            Top             =   1500
            Width           =   1215
         End
         Begin VB.Label Label3 
            BackStyle       =   0  'Transparent
            Caption         =   "填充样式:"
            Height          =   255
            Left            =   90
            TabIndex        =   27
            Top             =   510
            Width           =   885
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "边框大小:"
            Height          =   255
            Left            =   90
            TabIndex        =   26
            Top             =   90
            Width           =   915
         End
         Begin VB.Label Label1 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "旋转角度:"
            Height          =   195
            Index           =   0
            Left            =   150
            TabIndex        =   25
            Top             =   870
            Width           =   1995
         End
      End
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   10
      Top             =   8745
      Width           =   14070
      _ExtentX        =   24818
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   6
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   10583
            MinWidth        =   10583
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.ToolTipText     =   "鼠标位置"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   6491
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   1411
            MinWidth        =   1411
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Alignment       =   1
            Object.Width           =   1411
            MinWidth        =   1411
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   2
            Object.Width           =   1764
            MinWidth        =   1764
            TextSave        =   "22:00"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList2 
      Left            =   5220
      Top             =   7860
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6CBB
            Key             =   "Select"
            Object.Tag             =   "Select"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6DCD
            Key             =   "Line"
            Object.Tag             =   "Line"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6EDF
            Key             =   "Arc"
            Object.Tag             =   "Arc"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":6FF1
            Key             =   "Rectangle"
            Object.Tag             =   "Rectangle"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7103
            Key             =   "RoundRectangle"
            Object.Tag             =   "RoundRectangle"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7215
            Key             =   "Ellipse"
            Object.Tag             =   "Ellipse"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7327
            Key             =   "Polygon"
            Object.Tag             =   "Polygon"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7679
            Key             =   "Star"
            Object.Tag             =   "Star"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":79CB
            Key             =   "Text"
            Object.Tag             =   "Text"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":7ADD
            Key             =   "Picture"
            Object.Tag             =   "Picture"
         EndProperty
      EndProperty
   End
   Begin ComCtl3.CoolBar CoolBar2 
      Align           =   3  'Align Left
      Height          =   7995
      Left            =   0
      TabIndex        =   8
      Top             =   750
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   14102
      BandCount       =   1
      Orientation     =   1
      _CBWidth        =   375
      _CBHeight       =   7995
      _Version        =   "6.7.9782"
      Child1          =   "Toolbar4"
      MinHeight1      =   315
      Width1          =   2640
      NewRow1         =   0   'False
      Begin MSComctlLib.Toolbar Toolbar4 
         Height          =   3300
         Left            =   30
         TabIndex        =   9
         Top             =   30
         Width           =   315
         _ExtentX        =   556
         _ExtentY        =   5821
         ButtonWidth     =   609
         ButtonHeight    =   582
         Style           =   1
         ImageList       =   "ImageList2"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   10
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Select"
               Object.ToolTipText     =   "选择对象"
               Object.Tag             =   "Select"
               ImageIndex      =   1
               Style           =   2
               Value           =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Line"
               Object.ToolTipText     =   "绘制直线"
               Object.Tag             =   "Line"
               ImageIndex      =   2
               Style           =   2
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Arc"
               Object.ToolTipText     =   "绘制弧线"
               Object.Tag             =   "Arc"
               ImageIndex      =   3
               Style           =   2
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Rectangle"
               Object.ToolTipText     =   "绘制矩形"
               Object.Tag             =   "Rectangle"
               ImageIndex      =   4
               Style           =   2
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "RoundRectangle"
               Object.ToolTipText     =   "绘制圆角矩形"
               Object.Tag             =   "RoundRectangle"
               ImageIndex      =   5
               Style           =   2
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Ellipse"
               Object.ToolTipText     =   "绘制椭圆"
               Object.Tag             =   "Ellipse"
               ImageIndex      =   6
               Style           =   2
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Polygon"
               Object.ToolTipText     =   "绘制多边形"
               Object.Tag             =   "Polygon"
               ImageIndex      =   7
               Style           =   2
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Star"
               Object.ToolTipText     =   "绘制星形"
               Object.Tag             =   "Star"
               ImageIndex      =   8
               Style           =   2
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Text"
               Object.ToolTipText     =   "绘制文本"
               Object.Tag             =   "Text"
               ImageIndex      =   9
               Style           =   2
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Picture"
               Object.ToolTipText     =   "插入图片"
               Object.Tag             =   "Picture"
               ImageIndex      =   10
               Style           =   2
            EndProperty
         EndProperty
      End
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Align           =   1  'Align Top
      Height          =   750
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   14070
      _ExtentX        =   24818
      _ExtentY        =   1323
      _CBWidth        =   14070
      _CBHeight       =   750
      _Version        =   "6.7.9782"
      Child1          =   "Toolbar1"
      MinWidth1       =   9405
      MinHeight1      =   330
      Width1          =   9405
      NewRow1         =   0   'False
      Child2          =   "Toolbar3"
      MinWidth2       =   1200
      MinHeight2      =   330
      Width2          =   7995
      NewRow2         =   0   'False
      Child3          =   "Toolbar2"
      MinWidth3       =   5595
      MinHeight3      =   330
      Width3          =   4005
      NewRow3         =   -1  'True
      AllowVertical3  =   0   'False
      Begin MSComctlLib.Toolbar Toolbar3 
         Height          =   330
         Left            =   9795
         TabIndex        =   7
         Top             =   30
         Width           =   4185
         _ExtentX        =   7382
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         AllowCustomize  =   0   'False
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   3
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "UnZoom"
               Object.ToolTipText     =   "还原"
               Object.Tag             =   "UnZoom"
               ImageIndex      =   33
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Zoom-"
               Object.ToolTipText     =   "缩小-"
               Object.Tag             =   "Zoom-"
               ImageIndex      =   34
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "Zoom+"
               Object.ToolTipText     =   "放大+"
               Object.Tag             =   "Zoom+"
               ImageIndex      =   35
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar2 
         Height          =   330
         Left            =   165
         TabIndex        =   6
         Top             =   390
         Width           =   13815
         _ExtentX        =   24368
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         AllowCustomize  =   0   'False
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   18
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "SelectAll"

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -