SUPER

SUPER

Return a reference to the current object that will use the symbol implementation of the inherited class.

Example

' MyListBox class
Inherits ListBox

Private $aKey As New String[]
Private $cValue As New Collection
...

' Reimplements the Add method  (Note: the syntax MUST match the inherited classes .Add() syntax)
Public Sub Add(Text As String, Optional Pos As Integer = -1)

  Dim sKey As String

  ' Adds the item to the list box
  Super.Add(Text, Pos)

  ' Adds the key to key array
  sKey = "Key_" & $aKey.Count
  If Pos < 0 Then
    $aKey.Add(sKey)
  Else
    $aKey.Add(sKey, Pos)
  Endif
  $cValue[sKey] = Text

End

' Reimplements the Clear method
Public Sub Clear()

  Super.Clear
  $aKey.Clear
  $cValue.Clear

End

...

See also