www.pudn.com > sqlserverdbfz.rar > frm0Error.frm

VERSION 5.00 
Begin VB.Form frm0Error  
   Caption         =   "Error" 
   ClientHeight    =   6675 
   ClientLeft      =   60 
   ClientTop       =   345 
   ClientWidth     =   9480 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   6675 
   ScaleWidth      =   9480 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.TextBox txtError  
      BeginProperty Font  
         Name            =   "Courier New" 
         Size            =   9.75 
         Charset         =   0 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   6615 
      Left            =   60 
      Locked          =   -1  'True 
      MultiLine       =   -1  'True 
      ScrollBars      =   3  'Both 
      TabIndex        =   0 
      Top             =   15 
      Width           =   9375 
   End 
End 
Attribute VB_Name = "frm0Error" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Public Property Let ErrorMessage(ByVal Msg As String) 
    txtError.Text = Msg 
    If Not Me.Visible Then Show 
    Me.SetFocus 
    Exit Property 
errHandler: 
    MsgBox "Fatal error: " & Err.Description 
End Property 
 
Private Sub Form_Resize() 
  txtError.Move 0, 0, ScaleWidth, ScaleHeight 
End Sub