INIT ProcBug
Tramite il
metodo INIT si inizializza la classe ProcBug facendole conoscere il
nome dell'applicazione, la versione, il path e il tipo di
progetto.
Sintassi
Object.Init(AppName As String,
AppMajor As Integer, AppMinor As Integer, AppRevision As Integer,
AppPath As String, ProjectType As ekbProjectType)
Descrizione
degli argomenti:
AppName |
Nome dell'applicazione. Di solito viene
passato utilizzando il costrutto App.EXEName |
AppMajor |
Numero di versione dell'applicazione.
Di solito viene passato utilizzando il costrutto
App.Major |
AppMinor |
Numero di release dell'applicazione.
Di solito viene passato utilizzando il costrutto
App.Minor |
AppRevision |
Numero di revisione dell'applicazione.
Di solito viene passato utilizzando il costrutto App.Revision |
AppPath |
Percorso
dell'eseguibile o della libreria.
Di solito viene passato utilizzando il costrutto App.Path |
ProjectType |
Tipo di progetto. Vedi enumerazione ekbProjectType |
Ulteriori
Informazioni:
La chiamata alla procedura
Init va eseguita solo e soltanto una
volta per inizializzare l'istanza della classe. Inoltre basta creare
un'istanza unica per tutto il progetto che protegga lo stesso dagli
errori. Di solito la chiamata alla procedura Init viene messa,
insieme alle configurazioni globali dell'istanza in un modulo
separato in una procedura di inizializzazione dell'istanza di
gestione degli errori. Vedi procedura InitProcWatch.
Esempio
Questo esempio inizializza la classe ProcBug, generando un
errore di RunTime e mandando a video il messaggio di
errore in una "message box" stile VB Error, ma con qualche infomazione in
più:
Private Sub Form_Load() Dim theError As Long Dim
pBug As ProcBug
Set pBug = New ProcBug pBug.Init App.EXEName,
App.Major, App.Minor, _ App.Revision,
App.Path, [Exe Standard] pBug.LogOnMsgBox = True On Error GoTo ErrHandler 10 theError =
1 / 0 Err.Clear ErrHandler: If Err.Number <> 0 Then Call pBug.Raise("Form1",
"Form_Load", Err, Erl) Resume Next End If End
Sub
|