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

📄 frmfind.frm

📁 一个把自己的东西刻成光盘后自动查询和启动的原代码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Left            =   240
                  TabIndex        =   21
                  Top             =   0
                  Width           =   1335
               End
            End
            Begin VB.PictureBox Pic6 
               BorderStyle     =   0  'None
               Height          =   855
               Left            =   2160
               ScaleHeight     =   855
               ScaleWidth      =   1815
               TabIndex        =   16
               Top             =   0
               Width           =   1815
               Begin VB.ComboBox CbxCon 
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   9.75
                     Charset         =   0
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   360
                  ItemData        =   "FrmFind.frx":030A
                  Left            =   120
                  List            =   "FrmFind.frx":0326
                  TabIndex        =   17
                  Text            =   "CbxCon"
                  Top             =   360
                  Width           =   1575
               End
               Begin VB.Label Label5 
                  Caption         =   "比较操作符"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   9.75
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Left            =   120
                  TabIndex        =   18
                  Top             =   0
                  Width           =   1335
               End
            End
            Begin VB.PictureBox Pic7 
               BorderStyle     =   0  'None
               Height          =   855
               Left            =   3960
               ScaleHeight     =   855
               ScaleWidth      =   1935
               TabIndex        =   13
               Top             =   0
               Width           =   1935
               Begin VB.TextBox TxtValue 
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   8.25
                     Charset         =   0
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   360
                  Left            =   480
                  TabIndex        =   36
                  Top             =   360
                  Visible         =   0   'False
                  Width           =   855
               End
               Begin VB.ComboBox CbxFieldValue 
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   9.75
                     Charset         =   0
                     Weight          =   400
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   360
                  Left            =   600
                  TabIndex        =   14
                  Text            =   "Combo1"
                  Top             =   360
                  Width           =   1575
               End
               Begin MSMask.MaskEdBox MaskRQ 
                  Height          =   360
                  Left            =   -360
                  TabIndex        =   37
                  Top             =   360
                  Visible         =   0   'False
                  Width           =   2415
                  _ExtentX        =   4260
                  _ExtentY        =   635
                  _Version        =   393216
                  MaxLength       =   11
                  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
                  Format          =   "yyyy/mm/dd"
                  Mask            =   "####年##月##日"
                  PromptChar      =   "?"
               End
               Begin VB.Label Label6 
                  Caption         =   "字段值"
                  BeginProperty Font 
                     Name            =   "MS Sans Serif"
                     Size            =   9.75
                     Charset         =   0
                     Weight          =   700
                     Underline       =   0   'False
                     Italic          =   0   'False
                     Strikethrough   =   0   'False
                  EndProperty
                  Height          =   255
                  Left            =   240
                  TabIndex        =   15
                  Top             =   0
                  Width           =   1335
               End
            End
         End
         Begin VB.Line Line2 
            BorderColor     =   &H00FF0000&
            X1              =   120
            X2              =   3240
            Y1              =   1800
            Y2              =   1800
         End
         Begin VB.Line Line1 
            BorderColor     =   &H00FF0000&
            X1              =   0
            X2              =   3120
            Y1              =   360
            Y2              =   360
         End
         Begin VB.Label Label3 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "查询条件输入"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   12
               Charset         =   134
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   480
            TabIndex        =   11
            Top             =   120
            Width           =   1935
         End
      End
      Begin VB.PictureBox Pic1 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   3015
         Left            =   1200
         ScaleHeight     =   2955
         ScaleWidth      =   2835
         TabIndex        =   4
         Top             =   -240
         Width           =   2895
         Begin VB.CheckBox CheckFile 
            Caption         =   "单选文件"
            Height          =   375
            Left            =   0
            TabIndex        =   41
            Top             =   0
            Width           =   1335
         End
         Begin VB.CommandButton CmdSel 
            Caption         =   "全选"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Index           =   0
            Left            =   360
            TabIndex        =   34
            Top             =   1440
            Width           =   855
         End
         Begin VB.CommandButton CmdSel 
            Caption         =   "全不选"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Index           =   1
            Left            =   1440
            TabIndex        =   33
            Top             =   1440
            Width           =   855
         End
         Begin VB.ComboBox CbxTypeCode 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            Left            =   1320
            Style           =   2  'Dropdown List
            TabIndex        =   6
            Top             =   240
            Width           =   1455
         End
         Begin VB.ComboBox CbxObject 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            ItemData        =   "FrmFind.frx":0366
            Left            =   1320
            List            =   "FrmFind.frx":0373
            Style           =   2  'Dropdown List
            TabIndex        =   5
            Top             =   720
            Width           =   1455
         End
         Begin MSComctlLib.ListView LVViewField 
            Height          =   735
            Left            =   360
            TabIndex        =   35
            Top             =   1920
            Width           =   1215
            _ExtentX        =   2143
            _ExtentY        =   1296
            View            =   3
            LabelEdit       =   1
            LabelWrap       =   -1  'True
            HideSelection   =   0   'False
            Checkboxes      =   -1  'True
            FullRowSelect   =   -1  'True
            _Version        =   393217
            Icons           =   "LVBigImg"
            SmallIcons      =   "LVSmallImg"
            ColHdrIcons     =   "LVColImg"
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BorderStyle     =   1
            Appearance      =   1
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            NumItems        =   1
            BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
               Text            =   "显示字段"
               Object.Width           =   2540
            EndProperty
         End
         Begin VB.Label Label1 
            BackStyle       =   0  'Transparent
            Caption         =   "档案类型"
            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
            Left            =   480
            TabIndex        =   8
            Top             =   360
            Width           =   735
         End
         Begin VB.Label Label2 
            BackStyle       =   0  'Transparent
            Caption         =   "对象类型"
            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
            Left            =   480
            TabIndex        =   7
            Top             =   840
            Width           =   735
         End
      End
      Begin VB.Image VImgDrag 
         Height          =   1005
         Left            =   2280
         MousePointer    =   9  'Size W E
         Top             =   840
         Width           =   120
      End
   End
   Begin VB.PictureBox Pic3 

⌨️ 快捷键说明

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