VbzCart/archive/code/VBA/clsPkgCount

from HTYP, the free directory anyone can edit if they can prove to me that they're not a spambot
< VbzCart‎ | archive‎ | code‎ | VBA
Revision as of 00:53, 8 May 2014 by Woozle (talk | contribs) (Created page with "<VB> ' CLASS: clsPkgCount Option Compare Database Option Explicit Public Checked As Long Public Unchecked As Long Public PulledPkg As Long ' pulled packages (merch to be ...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

<VB> ' CLASS: clsPkgCount

Option Compare Database Option Explicit

Public Checked As Long Public Unchecked As Long Public PulledPkg As Long ' pulled packages (merch to be shipped) Public PulledMsg As Long ' pulled messages (no merch; ok to send even if pulled) Public Sub Clear()

   Me.Checked = 0
   Me.Unchecked = 0
   Me.PulledPkg = 0
   Me.PulledMsg = 0

End Sub Public Sub IncChecked()

   Me.Checked = Me.Checked + 1

End Sub Public Sub IncUnchecked()

   Me.Unchecked = Me.Unchecked + 1

End Sub Public Sub IncPulledPkg()

   Me.PulledPkg = Me.PulledPkg + 1

End Sub Public Sub IncPulledMsg()

   Me.PulledMsg = Me.PulledMsg + 1

End Sub </VB>