Class - Stack trace

[drag0n_45]

Hey all. I've seen multiple threads on this, and I decided to implement it in a program I was using. Because of the interest I figured I'd post it here. Let me know if you have any questions or comments, improvelements, etc.

After you dim the variable as the class you need to call the initialize method of the class. That's about the only restriction.

[techgnome]

How about some sample code to show how to use it?

-tg

[drag0n_45]

Ah..well of course. LOL Forgot that bit. It's my first code bank post.

Make a form with a textbox and a label. Paste this code into the code window.

Dim stack As New cp_Stack_cls
 
Private Sub Form_Load()
 
stack.Push "Form_Load"
 
PopStack
End Sub
 
Private Sub Label1_Change()
stack.Push "Label1_Change"
 
On Error GoTo errhandler
If InStr(1, Text1.Text, "a") > 0 Then
    Err.Raise 83
End If
 
PopStack
 
Exit Sub
errhandler:
MsgBox "Error " & Err.Number & vbCrLf & stack.Trace
End Sub
 
Private Sub Text1_Change()
stack.Push "Text1_Change"
 
Label1.Caption = Text1.Text
 
PopStack
End Sub
 
Private Sub PopStack()
Debug.Print "Popped: " & stack.Pop
End Sub