home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / redtop / error.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-11-27  |  2.4 KB  |  85 lines
  1. VERSION 2.00
  2. Begin Form frmError 
  3.    BorderStyle     =   3  'Fixed Double
  4.    ClientHeight    =   2175
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   4515
  8.    Height          =   2580
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2175
  14.    ScaleWidth      =   4515
  15.    Top             =   1140
  16.    Width           =   4635
  17.    Begin Timer Timer1 
  18.       Enabled         =   0   'False
  19.       Interval        =   30000
  20.       Left            =   3420
  21.       Top             =   1620
  22.    End
  23.    Begin CommandButton cmdOK 
  24.       Cancel          =   -1  'True
  25.       Caption         =   "OK"
  26.       Default         =   -1  'True
  27.       Height          =   435
  28.       Left            =   1500
  29.       TabIndex        =   2
  30.       Top             =   1560
  31.       Width           =   1215
  32.    End
  33.    Begin Image Image1 
  34.       Height          =   480
  35.       Left            =   180
  36.       Picture         =   ERROR.FRX:0000
  37.       Top             =   240
  38.       Width           =   480
  39.    End
  40.    Begin Label Label2 
  41.       Caption         =   "Check your screen saver password and try again."
  42.       Height          =   495
  43.       Left            =   840
  44.       TabIndex        =   1
  45.       Top             =   780
  46.       Width           =   3555
  47.    End
  48.    Begin Label Label1 
  49.       Caption         =   "Incorrect Password;"
  50.       Height          =   255
  51.       Left            =   840
  52.       TabIndex        =   0
  53.       Top             =   300
  54.       Width           =   3015
  55.    End
  56. Option Explicit
  57. ' This form could be a Message box, however in order for
  58. ' for it to appear above the main screen and be System Modal
  59. ' we need to make it a form
  60. Sub cmdOK_Click ()
  61.     Unload Me
  62. End Sub
  63. Sub Form_Load ()
  64. Dim i As Integer
  65.     'Enable the Timer
  66.     timer1.Enabled = True
  67.     caption = SaverName
  68.     CentreForm Me
  69.     ' Set the Form to be TopMost
  70.     SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3
  71.     ' Set the Form to be System Modal (Ouch!)
  72.     i = SetSysModalWindow(hWnd)
  73. End Sub
  74. Sub Form_Unload (Cancel As Integer)
  75.     'Disable the Timer
  76.     timer1.Enabled = False
  77. End Sub
  78. Sub Timer1_Timer ()
  79.     '
  80.     ' if we have had no activity for 30 seconds then
  81.     ' let the screen saver get on with it.
  82.     '
  83.     Unload Me
  84. End Sub
  85.