danger.frm

主从报警系统

VERSION 5.00
Begin VB.Form danger 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hurry up!!! Attack!!!"
   ClientHeight    =   8970
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   11025
   FillStyle       =   7  'Diagonal Cross
   FontTransparent =   0   'False
   ForeColor       =   &H00000000&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "danger.frx":0000
   ScaleHeight     =   8970
   ScaleWidth      =   11025
   StartUpPosition =   1  '所有者中心
   Visible         =   0   'False
   Begin VB.CommandButton Dstop 
      DownPicture     =   "danger.frx":F14A
      Height          =   735
      Left            =   6120
      Picture         =   "danger.frx":12BA6
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   7920
      Width           =   1575
   End
   Begin VB.CommandButton Drest 
      DownPicture     =   "danger.frx":1690C
      Height          =   735
      Left            =   3360
      Picture         =   "danger.frx":1A368
      Style           =   1  'Graphical
      TabIndex        =   9
      Top             =   7920
      Width           =   1575
   End
   Begin VB.PictureBox Dname 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   1185
      Left            =   3480
      Picture         =   "danger.frx":1DF3C
      ScaleHeight     =   1185
      ScaleWidth      =   4170
      TabIndex        =   4
      Top             =   240
      Width           =   4170
   End
   Begin VB.PictureBox head4 
      BackColor       =   &H00C0C0FF&
      Height          =   1680
      Left            =   8280
      Picture         =   "danger.frx":2414D
      ScaleHeight     =   1620
      ScaleWidth      =   1620
      TabIndex        =   3
      Top             =   2760
      Width           =   1680
   End
   Begin VB.PictureBox head3 
      BackColor       =   &H00C0C0FF&
      FillColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   1680
      Left            =   5880
      Picture         =   "danger.frx":24BDB
      ScaleHeight     =   1620
      ScaleWidth      =   1620
      TabIndex        =   2
      Top             =   2760
      Width           =   1680
   End
   Begin VB.PictureBox head2 
      BackColor       =   &H00C0C0FF&
      Height          =   1680
      Left            =   3480
      Picture         =   "danger.frx":256F2
      ScaleHeight     =   1620
      ScaleWidth      =   1620
      TabIndex        =   1
      Top             =   2760
      Width           =   1680
   End
   Begin VB.PictureBox head1 
      BackColor       =   &H00C0C0FF&
      Height          =   1680
      Left            =   1080
      Picture         =   "danger.frx":2611D
      ScaleHeight     =   1620
      ScaleWidth      =   1620
      TabIndex        =   0
      Top             =   2760
      Width           =   1680
   End
   Begin VB.Image T4 
      Height          =   2460
      Left            =   8520
      Picture         =   "danger.frx":26A58
      Top             =   5040
      Width           =   1500
   End
   Begin VB.Image T3 
      Height          =   2460
      Left            =   6120
      Picture         =   "danger.frx":27C22
      Top             =   5040
      Width           =   1500
   End
   Begin VB.Image T2 
      Height          =   2460
      Left            =   3480
      Picture         =   "danger.frx":28DEC
      Top             =   5040
      Width           =   1500
   End
   Begin VB.Image T1 
      Height          =   2460
      Left            =   1080
      Picture         =   "danger.frx":29FB6
      Top             =   5040
      Width           =   1500
   End
   Begin VB.Label dn4 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "毒气"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   540
      Left            =   8880
      TabIndex        =   8
      Top             =   1800
      Width           =   960
   End
   Begin VB.Label dn3 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "火警"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   540
      Left            =   6480
      TabIndex        =   7
      Top             =   1800
      Width           =   960
   End
   Begin VB.Label dn2 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "辐射"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   540
      Left            =   4080
      TabIndex        =   6
      Top             =   1800
      Width           =   960
   End
   Begin VB.Label dn1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "触电"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   540
      Left            =   1680
      TabIndex        =   5
      Top             =   1800
      Width           =   960
   End
End
Attribute VB_Name = "danger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Drest_Click()
welcome.MSComm1.Output = Chr$(&H2&)
danger.Hide
rest.Show
RunFlag = False
End Sub

Private Sub Dstop_Click()
welcome.MSComm1.Output = Chr$(&H2&)
danger.Hide
welcome.Show
RunFlag = False
End Sub