home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / nagscrn / frmtimer.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-06-15  |  8.9 KB  |  262 lines
  1. VERSION 4.00
  2. Begin VB.Form frmTimer 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000005&
  5.    Caption         =   "Opening Nag Screen"
  6.    ClientHeight    =   4380
  7.    ClientLeft      =   1560
  8.    ClientTop       =   1560
  9.    ClientWidth     =   6525
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   1
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   4785
  22.    Left            =   1500
  23.    LinkTopic       =   "Form1"
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   4380
  27.    ScaleWidth      =   6525
  28.    Top             =   1215
  29.    Width           =   6645
  30.    Begin VB.Timer Timer1 
  31.       Interval        =   500
  32.       Left            =   60
  33.       Top             =   4410
  34.    End
  35.    Begin Threed.SSPanel pnlMain 
  36.       Height          =   4365
  37.       Left            =   0
  38.       TabIndex        =   0
  39.       Top             =   0
  40.       Width           =   6525
  41.       _version        =   65536
  42.       _extentx        =   11509
  43.       _extenty        =   7699
  44.       _stockprops     =   15
  45.       backcolor       =   -2147483633
  46.       bevelouter      =   0
  47.       Begin Threed.SSPanel pnlExit 
  48.          Height          =   630
  49.          Left            =   4440
  50.          TabIndex        =   6
  51.          Top             =   3225
  52.          Width           =   1710
  53.          _version        =   65536
  54.          _extentx        =   3016
  55.          _extenty        =   1111
  56.          _stockprops     =   15
  57.          backcolor       =   -2147483633
  58.          bevelouter      =   0
  59.          bevelinner      =   1
  60.          alignment       =   0
  61.          Begin Threed.SSCommand btnTimer 
  62.             Height          =   495
  63.             Index           =   1
  64.             Left            =   75
  65.             TabIndex        =   7
  66.             Top             =   60
  67.             Width           =   1560
  68.             _version        =   65536
  69.             _extentx        =   2752
  70.             _extenty        =   873
  71.             _stockprops     =   78
  72.             caption         =   "Exit"
  73.             BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  74.                name            =   "MS Sans Serif"
  75.                charset         =   1
  76.                weight          =   400
  77.                size            =   8.25
  78.                underline       =   0   'False
  79.                italic          =   0   'False
  80.                strikethrough   =   0   'False
  81.             EndProperty
  82.          End
  83.       End
  84.       Begin Threed.SSPanel pnlCont 
  85.          Height          =   630
  86.          Left            =   360
  87.          TabIndex        =   4
  88.          Top             =   3255
  89.          Width           =   1710
  90.          _version        =   65536
  91.          _extentx        =   3016
  92.          _extenty        =   1111
  93.          _stockprops     =   15
  94.          caption         =   "Panel3D1"
  95.          backcolor       =   -2147483633
  96.          bevelouter      =   0
  97.          bevelinner      =   1
  98.          alignment       =   0
  99.          Begin Threed.SSCommand btnTimer 
  100.             Height          =   510
  101.             Index           =   0
  102.             Left            =   60
  103.             TabIndex        =   5
  104.             Top             =   60
  105.             Width           =   1575
  106.             _version        =   65536
  107.             _extentx        =   2778
  108.             _extenty        =   900
  109.             _stockprops     =   78
  110.             caption         =   "Continue"
  111.             BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  112.                name            =   "MS Sans Serif"
  113.                charset         =   1
  114.                weight          =   400
  115.                size            =   8.25
  116.                underline       =   0   'False
  117.                italic          =   0   'False
  118.                strikethrough   =   0   'False
  119.             EndProperty
  120.          End
  121.       End
  122.       Begin Threed.SSFrame fraCopy 
  123.          Height          =   630
  124.          Left            =   345
  125.          TabIndex        =   2
  126.          Top             =   2175
  127.          Width           =   5880
  128.          _version        =   65536
  129.          _extentx        =   10372
  130.          _extenty        =   1111
  131.          _stockprops     =   14
  132.          Begin VB.Label lblCopy 
  133.             Appearance      =   0  'Flat
  134.             BackColor       =   &H80000005&
  135.             Caption         =   "Put Copyright and Trademark information inside this frame."
  136.             BeginProperty Font 
  137.                name            =   "MS Sans Serif"
  138.                charset         =   1
  139.                weight          =   400
  140.                size            =   8.25
  141.                underline       =   0   'False
  142.                italic          =   0   'False
  143.                strikethrough   =   0   'False
  144.             EndProperty
  145.             ForeColor       =   &H80000008&
  146.             Height          =   195
  147.             Left            =   870
  148.             TabIndex        =   3
  149.             Top             =   270
  150.             Width           =   4095
  151.          End
  152.       End
  153.       Begin Threed.SSPanel pnlMssg 
  154.          Height          =   1590
  155.          Left            =   480
  156.          TabIndex        =   1
  157.          Top             =   315
  158.          Width           =   5610
  159.          _version        =   65536
  160.          _extentx        =   9895
  161.          _extenty        =   2805
  162.          _stockprops     =   15
  163.          caption         =   $"FRMTIMER.frx":0000
  164.          backcolor       =   -2147483633
  165.          BeginProperty font {FB8F0823-0164-101B-84ED-08002B2EC713} 
  166.             name            =   "MS Sans Serif"
  167.             charset         =   1
  168.             weight          =   400
  169.             size            =   8.25
  170.             underline       =   0   'False
  171.             italic          =   0   'False
  172.             strikethrough   =   0   'False
  173.          EndProperty
  174.          bevelouter      =   0
  175.          bevelinner      =   1
  176.          alignment       =   0
  177.          Begin VB.Label lblMessage 
  178.             Appearance      =   0  'Flat
  179.             BackColor       =   &H80000005&
  180.             Caption         =   $"FRMTIMER.frx":00BF
  181.             BeginProperty Font 
  182.                name            =   "MS Sans Serif"
  183.                charset         =   1
  184.                weight          =   400
  185.                size            =   8.25
  186.                underline       =   0   'False
  187.                italic          =   0   'False
  188.                strikethrough   =   0   'False
  189.             EndProperty
  190.             ForeColor       =   &H80000008&
  191.             Height          =   585
  192.             Left            =   120
  193.             TabIndex        =   10
  194.             Top             =   870
  195.             Width           =   5325
  196.             WordWrap        =   -1  'True
  197.          End
  198.       End
  199.       Begin VB.Label lblTime2 
  200.          Alignment       =   2  'Center
  201.          Appearance      =   0  'Flat
  202.          BackColor       =   &H00000000&
  203.          ForeColor       =   &H0000FF00&
  204.          Height          =   300
  205.          Left            =   3090
  206.          TabIndex        =   9
  207.          Top             =   3480
  208.          Width           =   375
  209.       End
  210.       Begin VB.Label lblTime 
  211.          Appearance      =   0  'Flat
  212.          BackColor       =   &H00000000&
  213.          ForeColor       =   &H80000008&
  214.          Height          =   765
  215.          Left            =   2700
  216.          TabIndex        =   8
  217.          Top             =   3210
  218.          Width           =   1170
  219.       End
  220.    End
  221. Attribute VB_Name = "frmTimer"
  222. Attribute VB_Creatable = False
  223. Attribute VB_Exposed = False
  224. 'Flash Windows title bar.
  225. Private Declare Function FlashWindow Lib "User" (ByVal hWnd%, ByVal bInvert%) As Integer
  226. 'Variable for timer event.
  227. Dim C As Double
  228. Private Sub btnTimer_Click(Index As Integer)
  229. Select Case Index
  230.     Case 0
  231.         Unload Me
  232.     Case 1
  233.         Unload Me
  234.         Unload frmNag
  235.     End Select
  236. End Sub
  237. Private Sub Form_Load()
  238.     ' Appearance settings of introductory nag screen.
  239.     btnTimer(0).Visible = False
  240.     btnTimer(1).Visible = False
  241.     pnlCont.Visible = False
  242.     pnlExit.Visible = False
  243.     C = Now
  244.     Left = (Screen.Width - Width) \ 2
  245.     Top = (Screen.Height - Height) \ 2
  246. End Sub
  247. Private Sub Timer1_Timer()
  248. ' Flash title bar of nag screen.
  249. I = FlashWindow(frmTimer.hWnd, 1)
  250. ' Display timer for 10 seconds. After 10 seconds
  251. ' buttons are available to user.
  252. Const TM_STOP = 10 'Changing this number will change the length of time a screen stays up.
  253. lblTime2.Caption = Format$(Now - C, "ss")
  254. If Val(Format$(Now - C, "ss")) >= TM_STOP Then
  255. Timer1.Enabled = False
  256. btnTimer(0).Visible = True
  257. btnTimer(1).Visible = True
  258. pnlCont.Visible = True
  259. pnlExit.Visible = True
  260. End If
  261. End Sub
  262.