home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / errors.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.1 KB  |  112 lines
  1. VERSION 4.00
  2. Begin VB.Form frmErrors 
  3.    Caption         =   "Errors"
  4.    ClientHeight    =   2640
  5.    ClientLeft      =   1200
  6.    ClientTop       =   1995
  7.    ClientWidth     =   6630
  8.    Height          =   3045
  9.    HelpContextID   =   2016081
  10.    Icon            =   "ERRORS.frx":0000
  11.    Left            =   1140
  12.    LinkTopic       =   "Form1"
  13.    LockControls    =   -1  'True
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   2640
  16.    ScaleWidth      =   6630
  17.    Top             =   1650
  18.    Width           =   6750
  19.    Begin VB.PictureBox picButtons 
  20.       Align           =   2  'Align Bottom
  21.       Appearance      =   0  'Flat
  22.       BorderStyle     =   0  'None
  23.       ForeColor       =   &H80000008&
  24.       Height          =   400
  25.       Left            =   0
  26.       ScaleHeight     =   405
  27.       ScaleWidth      =   6630
  28.       TabIndex        =   0
  29.       Top             =   2235
  30.       Width           =   6630
  31.       Begin VB.CommandButton cmdClose 
  32.          Cancel          =   -1  'True
  33.          Caption         =   "&Close"
  34.          Height          =   330
  35.          Left            =   2040
  36.          TabIndex        =   2
  37.          Top             =   45
  38.          Width           =   1695
  39.       End
  40.       Begin VB.CommandButton cmdRefresh 
  41.          Caption         =   "&Refresh"
  42.          Height          =   330
  43.          Left            =   240
  44.          TabIndex        =   1
  45.          Top             =   40
  46.          Width           =   1695
  47.       End
  48.    End
  49.    Begin MSGrid.Grid grdErrors 
  50.       Height          =   2055
  51.       Left            =   120
  52.       TabIndex        =   3
  53.       Top             =   120
  54.       Width           =   6375
  55.       _Version        =   65536
  56.       _ExtentX        =   11245
  57.       _ExtentY        =   3625
  58.       _StockProps     =   77
  59.       BackColor       =   16777215
  60.       Cols            =   3
  61.       FixedCols       =   0
  62.    End
  63. Attribute VB_Name = "frmErrors"
  64. Attribute VB_Creatable = False
  65. Attribute VB_Exposed = False
  66. Option Explicit
  67. Private Sub cmdClose_Click()
  68.   Unload Me
  69. End Sub
  70. Private Sub cmdRefresh_Click()
  71.   RefreshErrors
  72. End Sub
  73. Private Sub Form_Load()
  74.   On Error GoTo LErr
  75.   CenterMe Me, gnMDIFORM
  76.   With grdErrors
  77.     .Row = 0
  78.     .Col = 0
  79.     .Text = "Number"
  80.     .Col = 1
  81.     .Text = "Source"
  82.     .Col = 2
  83.     .Text = "Description"
  84.     .FixedRows = 1
  85.     .ColWidth(0) = 1500
  86.     .ColWidth(1) = 1500
  87.     .ColWidth(2) = .Width - 3600
  88.   End With
  89.   Screen.MousePointer = vbDefault
  90.   Exit Sub
  91. LErr:
  92.   ShowError
  93.   Unload Me
  94.   Exit Sub
  95. End Sub
  96. Private Sub Form_Resize()
  97.   On Error Resume Next
  98.   If Me.WindowState = 1 Then Exit Sub
  99.   grdErrors.Width = Me.Width - 375
  100.   grdErrors.Height = Me.Height - 970
  101.   grdErrors.ColWidth(2) = grdErrors.Width - 3600
  102. End Sub
  103. Private Sub grdErrors_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
  104.   On Error GoTo PErr
  105.   If Button <> 2 Then Exit Sub
  106.   MsgBox "There is no Properties collection on the Error Object!", 48
  107.   Exit Sub
  108. PErr:
  109.   ShowError
  110.   Exit Sub
  111. End Sub
  112.