lang • super

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
Public Sub Add(Text As String, Key As String, Optional Pos As Integer = -1)

  ' Adds the item to the list box
  Super.Add(Text, Pos)
  ' Adds the key to key array
  If Pos < 0 Then
    $aKey.Add(Key)
  Else
    $aKey.Add(Key, Pos)
  Endif
  $cValue[Key] = Text

End

' Reimplements the Clear method
Public Sub Clear()

  Super.Clear
  $aKey.Clear
  $cValue.Clear

End

...

See also