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

📄 frmdesign.frm

📁 VB做的报表设计源程序,非常不错,可以自定义模版
💻 FRM
📖 第 1 页 / 共 5 页
字号:
         EndProperty
         Height          =   255
         Index           =   2
         Left            =   660
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   4140
         Visible         =   0   'False
         Width           =   1785
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         ForeColor       =   &H00FF8080&
         Height          =   225
         Index           =   2
         Left            =   660
         ScaleHeight     =   0.156
         ScaleMode       =   5  'Inch
         ScaleWidth      =   1.208
         TabIndex        =   36
         Top             =   4380
         Visible         =   0   'False
         Width           =   1740
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         ForeColor       =   &H00FF8080&
         Height          =   540
         Index           =   10
         Left            =   245
         ScaleHeight     =   0.375
         ScaleMode       =   5  'Inch
         ScaleWidth      =   5.708
         TabIndex        =   22
         Top             =   2580
         Width           =   8220
      End
      Begin VB.CommandButton cmdDivider 
         BackColor       =   &H8000000A&
         Caption         =   "Report Footer"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   10
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   21
         Top             =   3139
         Width           =   8445
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         ForeColor       =   &H00FF8080&
         Height          =   540
         Index           =   9
         Left            =   420
         ScaleHeight     =   0.375
         ScaleMode       =   5  'Inch
         ScaleWidth      =   5.708
         TabIndex        =   20
         Top             =   3480
         Width           =   8220
      End
      Begin VB.CommandButton cmdDivider 
         BackColor       =   &H8000000A&
         Caption         =   "Page Footer"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   9
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   19
         Top             =   2354
         Width           =   8445
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         ForeColor       =   &H00FF8080&
         Height          =   540
         Index           =   1
         Left            =   245
         ScaleHeight     =   0.375
         ScaleMode       =   5  'Inch
         ScaleWidth      =   5.708
         TabIndex        =   8
         Top             =   1030
         Width           =   8220
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         ForeColor       =   &H00FF8080&
         Height          =   540
         Index           =   5
         Left            =   245
         ScaleHeight     =   0.375
         ScaleMode       =   5  'Inch
         ScaleWidth      =   5.708
         TabIndex        =   7
         Top             =   1814
         Width           =   8220
      End
      Begin VB.CommandButton cmdDivider 
         BackColor       =   &H8000000A&
         Caption         =   "Report Header"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   0
         Width           =   8475
      End
      Begin VB.CommandButton cmdDivider 
         BackColor       =   &H8000000A&
         Caption         =   "Detail Section"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   5
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   1570
         Width           =   8445
      End
      Begin VB.CommandButton cmdDivider 
         BackColor       =   &H8000000A&
         Caption         =   "Page Header"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   0
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   785
         Width           =   8445
      End
      Begin VB.PictureBox picSection 
         Appearance      =   0  'Flat
         AutoRedraw      =   -1  'True
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         FillColor       =   &H00FFFFFF&
         FillStyle       =   0  'Solid
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF8080&
         Height          =   540
         Index           =   0
         Left            =   240
         ScaleHeight     =   0.375
         ScaleMode       =   5  'Inch
         ScaleWidth      =   5.708
         TabIndex        =   3
         Top             =   240
         Width           =   8220
      End
   End
   Begin VB.Label Field 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   " New Label 1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   75
      Index           =   0
      Left            =   11100
      TabIndex        =   35
      Top             =   1680
      Width           =   75
   End
   Begin VB.Label Label 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   " New Label 1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   75
      Index           =   0
      Left            =   10680
      TabIndex        =   34
      Top             =   1680
      Width           =   75
   End
   Begin MSForms.Image Img 
      Height          =   405
      Index           =   0
      Left            =   11490
      Top             =   1755
      Visible         =   0   'False
      Width           =   360
      SizeMode        =   3
      Size            =   "635;714"
   End
   Begin VB.Shape Shape 
      Height          =   75
      Index           =   0
      Left            =   10830
      Top             =   2055
      Visible         =   0   'False
      Width           =   75
   End
   Begin VB.Label BoundImg 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      ForeColor       =   &H80000008&
      Height          =   135
      Index           =   0
      Left            =   11160
      TabIndex        =   31
      Top             =   2040
      Visible         =   0   'False
      Width           =   135
   End
   Begin VB.Shape SelectBox 
      BorderStyle     =   3  'Dot
      FillColor       =   &H00FFFFFF&
      Height          =   285
      Left            =   11700
      Top             =   1260
      Visible         =   0   'False
      Width           =   315
   End
   Begin VB.Shape Grip 
      BackColor       =   &H8000000D&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H8000000D&
      Height          =   90
      Index           =   7
      Left            =   11280
      Top             =   1470
      Visible         =   0   'False
      Width           =   90
   End
   Begin VB.Shape Grip 
      BackColor       =   &H8000000D&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H8000000D&
      Height          =   90
      Index           =   6
      Left            =   11100
      Top             =   1470
      Visible         =   0   'False
      Width           =   90
   End
   Begin VB.Shape Grip 
      BackColor       =   &H8000000D&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H8000000D&
      Height          =   90
      Index           =   4
      Left            =   10740
      Top             =   1470
      Visible         =   0   'False
      Width           =   90
   End
   Begin VB.Shape Grip 
      BackColor       =   &H8000000D&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H8000000D&
      Height          =   90
      Index           =   5
      Left            =   10920
      Top             =   1470
      Visible         =   0   'False
      Width           =   90
   End

⌨️ 快捷键说明

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