Not a Member Yet,
Click here to Register
How do you like the new design?

ID: 209
Viewed: 2828
Added: Apr 29, 2002
Snippet uploaded by: snippet
Written By: unknown
Demo: Sorry, no demo

User Rated at: 0 Stars
Rate This:

Thank you for your vote. Please wait...

It appears you already voted for this snippet

It appears your vote value was empty

This class creates a simple stack data structure.

Highlight all by clicking in box
Option Explicit

Dim m_Col As Collection

Public Sub Push(ByVal vData As Variant)
If m_Col.Count > 0 Then
m_Col.Add vData, , 1
m_Col.Add vData
End If
End Sub

Public Property Get TopVal() As Variant
If m_Col.Count > 0 Then
If Not IsObject(m_Col.Item(1)) Then
TopVal = m_Col.Item(1)
End If
TopVal = vbNullString
End If
End Property

Public Property Get Count() As Integer
Count = m_Col.Count
End Property

Public Function Pop() As Variant
If m_Col.Count > 0 Then
If IsObject(m_Col.Item(1)) Then
Set Pop = m_Col.Item(1)
Pop = m_Col.Item(1)
End If
m_Col.Remove 1
End If
End Function

Public Function More() As Boolean
More = (m_Col.Count > 0)
End Function

Private Sub Class_Initialize()
Set m_Col = New Collection
End Sub

Private Sub Class_Terminate()
Set m_Col = Nothing
End Sub

Highlight All

No Comments to show

Please completely fill out the form below if you want to review this snippet. All reviews are subject to validation.

Replying to a Comment...

Adding your comment. Please wait...

Thanks for adding your comment!. After further review it will be added.

There was a problem adding your comment. Please try again.

Please complete all the fields in the form before sending.

© 2002 - 2018 All Rights Reserved. Conditions