【VB开源代码栏目提醒】：本文主要为网学会员提供frmErrorLog.frm，希望对需要frmErrorLog.frm网友有所帮助，学习一下!

    VERSION 5.00
    Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
    Begin VB.Form frmErrorLog 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "错误信息"
       ClientHeight    =   6420
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   6780
       BeginProperty Font 
          Name            =   "宋体"
          Size            =   9
          Charset         =   134
          Weight          =   400
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       LinkTopic       =   "Form1"
       LockControls    =   -1  'True
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   6420
       ScaleWidth      =   6780
       ShowInTaskbar   =   0   'False
       StartUpPosition =   3  'Windows Default
       Begin VB.CommandButton cmdDelErrorLog 
          Caption         =   "清除错误日志"
          Height          =   375
          Left            =   1470
          TabIndex        =   2
          Top             =   5940
          Width           =   1500
       End
       Begin VB.CommandButton cmdSure 
          Caption         =   " 确定(&S)"
          Height          =   375
          Left            =   4050
          TabIndex        =   1
          Top             =   5940
          Width           =   1500
       End
       Begin RichTextLib.RichTextBox rtbError 
          Height          =   5715
          Left            =   120
          TabIndex        =   0
          Top             =   120
          Width           =   6525
          _ExtentX        =   11509
          _ExtentY        =   10081
          _Version        =   393217
          Enabled         =   -1  'True
          ScrollBars      =   3
          TextRTF         =   $"frmErrorLog.frx":0000
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "宋体"
             Size            =   9
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
       End
    End
    Attribute VB_Name = "frmErrorLog"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    Private Sub cmdDelErrorLog_Click()
        Kill (App.Path & "\ErrorLog.txt")
        rtbError.FileName = vbNullString
        rtbError.Refresh
        cmdDelErrorLog.Enabled = False
    End Sub
    
    Private Sub cmdSure_Click()
        Unload Me
    End Sub