home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / VISDATA / ERRORS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-08  |  2.9 KB  |  104 lines
  1. VERSION 5.00
  2. Begin VB.Form frmErrors 
  3.    Caption         =   "
  4.    ClientHeight    =   2640
  5.    ClientLeft      =   3210
  6.    ClientTop       =   2385
  7.    ClientWidth     =   6630
  8.    Height          =   3105
  9.    HelpContextID   =   2016081
  10.    Icon            =   "ERRORS.frx":0000
  11.    Left            =   3150
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   2640
  16.    ScaleWidth      =   6630
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   1980
  19.    Width           =   6750
  20.    Begin VB.ListBox lstErrors 
  21.       Height          =   2040
  22.       Left            =   105
  23.       TabIndex        =   3
  24.       Top             =   75
  25.       Width           =   6435
  26.    End
  27.    Begin VB.PictureBox picButtons 
  28.       Align           =   2  'Align Bottom
  29.       Appearance      =   0  'Flat
  30.       BorderStyle     =   0  'None
  31.       ForeColor       =   &H80000008&
  32.       Height          =   400
  33.       Left            =   0
  34.       ScaleHeight     =   405
  35.       ScaleWidth      =   6630
  36.       TabIndex        =   0
  37.       Top             =   2235
  38.       Width           =   6630
  39.       Begin VB.CommandButton cmdClose 
  40.          Cancel          =   -1  'True
  41.          Caption         =   "
  42. (&C)"
  43.          Height          =   330
  44.          Left            =   2040
  45.          MaskColor       =   &H00000000&
  46.          TabIndex        =   2
  47.          Top             =   45
  48.          Width           =   1695
  49.       End
  50.       Begin VB.CommandButton cmdRefresh 
  51.          Caption         =   "
  52. (&R)"
  53.          Height          =   330
  54.          Left            =   240
  55.          MaskColor       =   &H00000000&
  56.          TabIndex        =   1
  57.          Top             =   40
  58.          Width           =   1695
  59.       End
  60.    End
  61. Attribute VB_Name = "frmErrors"
  62. Attribute VB_Base = "0{6F48C49D-C9E4-11CF-9ED2-00AA00574745}"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_TemplateDerived = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Attribute VB_Customizable = False
  69. Option Explicit
  70. '>>>>>>>>>>>>>>>>>>>>>>>>
  71. Const FORMCAPTION = "
  72. Const BUTTON1 = "
  73. (&R)"
  74. Const BUTTON2 = "
  75. (&C)"
  76. '>>>>>>>>>>>>>>>>>>>>>>>>
  77. Private Sub cmdClose_Click()
  78.   Unload Me
  79. End Sub
  80. Private Sub cmdRefresh_Click()
  81.   RefreshErrors
  82. End Sub
  83. Private Sub Form_Load()
  84.   On Error GoTo LErr
  85.   Me.Caption = FORMCAPTION
  86.   cmdRefresh.Caption = BUTTON1
  87.   cmdClose.Caption = BUTTON2
  88.   Me.Height = 3105
  89.   Me.Width = 6750
  90.   Me.Top = 1000
  91.   Me.Left = 1000
  92.   Screen.MousePointer = vbDefault
  93.   Exit Sub
  94. LErr:
  95.   ShowError
  96.   Unload Me
  97. End Sub
  98. Private Sub Form_Resize()
  99.   On Error Resume Next
  100.   If Me.WindowState = 1 Then Exit Sub
  101.   lstErrors.Width = Me.ScaleWidth - (lstErrors.Left * 2)
  102.   lstErrors.Height = Me.Height - 970
  103. End Sub
  104.