home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / logtho1a / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-05  |  1.5 KB  |  48 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Log Error"
  5.    ClientHeight    =   705
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   1410
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   705
  13.    ScaleWidth      =   1410
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.CommandButton cmdGenerateError 
  16.       Caption         =   "&Generate Error"
  17.       Height          =   495
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   1215
  22.    End
  23. Attribute VB_Name = "frmMain"
  24. Attribute VB_GlobalNameSpace = False
  25. Attribute VB_Creatable = False
  26. Attribute VB_PredeclaredId = True
  27. Attribute VB_Exposed = False
  28. Option Explicit
  29. Private Sub cmdGenerateError_Click()
  30.     Dim UserID As String
  31.     Dim ErrNum As Integer
  32.     Dim ErrDes As String
  33.     Dim FormName As String
  34.     Dim SubName As String
  35.     Dim intRandom As Integer
  36.     Randomize   ' Initialize random-number generator.
  37.     intRandom = Int((3000 * Rnd) + 1)   ' Generate random value
  38.                                      ' between 1 and 6.
  39.     UserID = GetUser
  40.     SubName = "cmdGenerateError_Click()"
  41.     FormName = "frmMain"
  42. On Error GoTo LocalErr:
  43.     Err.Raise intRandom
  44.     Exit Sub
  45. LocalErr:
  46.     basLogErrors.LogErrors FormName, SubName, UserID, Err.Number, Err.Description
  47. End Sub
  48.