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