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

📄 frmgridtest.frm

📁 一款Grid表格控件源代码,非常棒.不下你一定会后悔
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "*\A..\prjvhGrid.vbp"
Begin VB.Form frmGridTest 
   BackColor       =   &H00F6F6F6&
   Caption         =   "vhGrid - Features Demonstration"
   ClientHeight    =   9810
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   15840
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   9810
   ScaleWidth      =   15840
   StartUpPosition =   2  'CenterScreen
   Begin vhGrid.ucVHGrid ucVHGrid1 
      Height          =   7125
      Left            =   225
      TabIndex        =   96
      Top             =   270
      Width           =   9870
      _ExtentX        =   17410
      _ExtentY        =   12568
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      AlphaBarTransparency=   70
      ForeColor       =   0
      GridLines       =   0
      HeaderDragDrop  =   0   'False
      BeginProperty HeaderFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      HeaderForeColor =   0
      HeaderForeColorFocused=   0
      HeaderForeColorPressed=   0
      HeaderHeight    =   20
      HeaderHeightSizable=   -1  'True
   End
   Begin VB.Frame frmProp 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Method Demos"
      Height          =   1860
      Index           =   6
      Left            =   6030
      TabIndex        =   91
      Top             =   7515
      Width           =   2580
      Begin VB.CommandButton cmdDemo 
         Caption         =   "SubCell Controls"
         Height          =   285
         Index           =   3
         Left            =   225
         TabIndex        =   95
         Top             =   1395
         Width           =   2085
      End
      Begin VB.CommandButton cmdDemo 
         Caption         =   "Virtual Mode"
         Height          =   285
         Index           =   0
         Left            =   225
         TabIndex        =   94
         Top             =   315
         Width           =   2085
      End
      Begin VB.CommandButton cmdDemo 
         Caption         =   "Unicode (NT/2K/XP)"
         Height          =   285
         Index           =   1
         Left            =   225
         TabIndex        =   93
         Top             =   675
         Width           =   2085
      End
      Begin VB.CommandButton cmdDemo 
         Caption         =   "OwnerDrawn Cells"
         Height          =   285
         Index           =   2
         Left            =   225
         TabIndex        =   92
         Top             =   1035
         Width           =   2085
      End
   End
   Begin VB.Frame fmExtended 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Extended Styles"
      Height          =   1860
      Left            =   225
      TabIndex        =   7
      Top             =   7515
      Width           =   5640
      Begin VB.PictureBox Picture2 
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         Height          =   1545
         Left            =   90
         ScaleHeight     =   1545
         ScaleWidth      =   5505
         TabIndex        =   8
         Top             =   270
         Width           =   5505
         Begin VB.PictureBox picThemeClr 
            Appearance      =   0  'Flat
            BackColor       =   &H00F1DDCF&
            ForeColor       =   &H80000008&
            Height          =   240
            Left            =   1125
            ScaleHeight     =   210
            ScaleWidth      =   390
            TabIndex        =   24
            Top             =   585
            Width           =   420
         End
         Begin VB.OptionButton optStyles 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Azure"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Index           =   0
            Left            =   90
            TabIndex        =   21
            Top             =   225
            Value           =   -1  'True
            Width           =   780
         End
         Begin VB.OptionButton optStyles 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Classic"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Index           =   1
            Left            =   945
            TabIndex        =   20
            Top             =   225
            Width           =   825
         End
         Begin VB.OptionButton optStyles 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Gloss"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Index           =   2
            Left            =   1845
            TabIndex        =   19
            Top             =   225
            Width           =   735
         End
         Begin VB.OptionButton optStyles 
            BackColor       =   &H00FFFFFF&
            Caption         =   "Metal"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Index           =   3
            Left            =   2655
            TabIndex        =   18
            Top             =   225
            Width           =   735
         End
         Begin VB.OptionButton optStyles 
            BackColor       =   &H00FFFFFF&
            Caption         =   "XP"
            BeginProperty Font 
               Name            =   "Arial"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   210
            Index           =   4
            Left            =   3420
            TabIndex        =   17
            Top             =   225
            Width           =   510
         End
         Begin VB.PictureBox Picture1 
            Appearance      =   0  'Flat
            BackColor       =   &H80000005&
            BorderStyle     =   0  'None
            ForeColor       =   &H80000008&
            Height          =   690
            Left            =   0
            ScaleHeight     =   690
            ScaleWidth      =   6045
            TabIndex        =   10
            Top             =   810
            Width           =   6045
            Begin VB.OptionButton optRowDec 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Checker"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   210
               Index           =   3
               Left            =   2295
               TabIndex        =   33
               Top             =   405
               Width           =   960
            End
            Begin VB.OptionButton optRowDec 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Column"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   210
               Index           =   2
               Left            =   1440
               TabIndex        =   23
               Top             =   405
               Width           =   825
            End
            Begin VB.OptionButton optRowDec 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Row"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   210
               Index           =   0
               Left            =   90
               TabIndex        =   14
               Top             =   405
               Value           =   -1  'True
               Width           =   645
            End
            Begin VB.OptionButton optRowDec 
               BackColor       =   &H00FFFFFF&
               Caption         =   "Split"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   210
               Index           =   1
               Left            =   765
               TabIndex        =   13
               Top             =   405
               Width           =   645
            End
            Begin VB.TextBox txtDepth 
               Appearance      =   0  'Flat
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   270
               Left            =   3780
               TabIndex        =   12
               Text            =   "2"
               Top             =   360
               Width           =   240
            End
            Begin VB.CommandButton cmdReset 
               Caption         =   "Reset"
               BeginProperty Font 
                  Name            =   "Arial"
                  Size            =   8.25
                  Charset         =   0
                  Weight          =   700
                  Underline       =   -1  'True
                  Italic          =   0   'False
                  Strikethrough   =   0   'False

⌨️ 快捷键说明

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