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

📄 mainstart.frm

📁 本系统是给大庆油田做的一个示例程序
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form MainStart 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00FF0000&
   BorderStyle     =   0  'None
   ClientHeight    =   11520
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   12
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MousePointer    =   1  'Arrow
   ScaleHeight     =   11520
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   10
      Left            =   90
      Top             =   5940
   End
   Begin Threed.SSPanel mimap 
      Height          =   1845
      Left            =   405
      TabIndex        =   0
      ToolTipText     =   "按ESC键退出,其它键进入主程序!"
      Top             =   8070
      Width           =   4665
      _Version        =   65536
      _ExtentX        =   8229
      _ExtentY        =   3254
      _StockProps     =   15
      ForeColor       =   -2147483630
      BackColor       =   8388608
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BevelInner      =   2
      Alignment       =   5
      MouseIcon       =   "MainStart.frx":0000
      Begin VB.TextBox mimaT 
         BackColor       =   &H00E0E0E0&
         Height          =   315
         IMEMode         =   3  'DISABLE
         Left            =   1440
         MaxLength       =   15
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   630
         Width           =   2220
      End
      Begin Threed.SSCommand quxc 
         Height          =   330
         Left            =   2685
         TabIndex        =   4
         Top             =   1110
         Width           =   975
         _Version        =   65536
         _ExtentX        =   1720
         _ExtentY        =   582
         _StockProps     =   78
         Caption         =   "取 消"
         ForeColor       =   16512
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin Threed.SSCommand qtdy 
         Default         =   -1  'True
         Height          =   330
         Left            =   1440
         TabIndex        =   3
         Top             =   1110
         Width           =   975
         _Version        =   65536
         _ExtentX        =   1720
         _ExtentY        =   582
         _StockProps     =   78
         Caption         =   "确 定"
         ForeColor       =   16512
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label mimatiui 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "请 输 入 密 码"
         ForeColor       =   &H0000FFFF&
         Height          =   240
         Left            =   1710
         TabIndex        =   5
         Top             =   165
         Width           =   1680
      End
      Begin VB.Label mimashow 
         BackStyle       =   0  'Transparent
         Caption         =   "密  码:"
         ForeColor       =   &H0000FFFF&
         Height          =   285
         Left            =   450
         TabIndex        =   2
         Top             =   660
         Width           =   855
      End
      Begin VB.Label mimatishi 
         Caption         =   "请输入密码!"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   1470
         TabIndex        =   1
         Top             =   -2160
         Width           =   2265
      End
   End
   Begin VB.Timer Timer2 
      Interval        =   100
      Left            =   90
      Top             =   5520
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   90
      Top             =   5100
   End
   Begin MCI.MMControl MMControl1 
      Height          =   330
      Left            =   390
      TabIndex        =   7
      Top             =   6840
      Visible         =   0   'False
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   582
      _Version        =   393216
      PrevEnabled     =   -1  'True
      NextEnabled     =   -1  'True
      PlayEnabled     =   -1  'True
      PauseEnabled    =   -1  'True
      BackEnabled     =   -1  'True
      StepEnabled     =   -1  'True
      StopEnabled     =   -1  'True
      Shareable       =   -1  'True
      DeviceType      =   ""
      FileName        =   ""
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   3960
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   3360
      Width           =   990
   End
   Begin VB.Image Picture1 
      Height          =   600
      Left            =   675
      Top             =   3060
      Width           =   600
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   0
      Left            =   0
      Picture         =   "MainStart.frx":001C
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   1
      Left            =   0
      Picture         =   "MainStart.frx":0326
      Top             =   540
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   2
      Left            =   0
      Picture         =   "MainStart.frx":0630
      Top             =   1080
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   3
      Left            =   0
      Picture         =   "MainStart.frx":093A
      Top             =   1620
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   4
      Left            =   0
      Picture         =   "MainStart.frx":0C44
      Top             =   2160
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   5
      Left            =   0
      Picture         =   "MainStart.frx":0F4E
      Top             =   2700
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   6
      Left            =   0
      Picture         =   "MainStart.frx":1258
      Top             =   3240
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   7
      Left            =   0
      Picture         =   "MainStart.frx":1562
      Top             =   3780
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   8
      Left            =   0
      Picture         =   "MainStart.frx":186C
      Top             =   4320
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 
      Height          =   480
      Index           =   9
      Left            =   540
      Picture         =   "MainStart.frx":1B76
      Top             =   0
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.Image Image1 

⌨️ 快捷键说明

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