SUPER
SUPER
Rende possibile la chiamata ai metodi di una classe padre da una classe che eredita dalla classe padre.
Esempio
' MiaListBox class
INHERITS ListBox
PRIVATE $cPos AS NEW Collection
PRIVATE $aKey AS NEW String[]
...
' Reimplementa il metodo Add.
PUBLIC SUB Add(Text AS String, Key AS String, OPTIONAL Pos AS Integer = -1)
' Aggiunge gli elementi alla list box.
SUPER.Add(Text, Key, Pos)
' Aggiunge la chiave alla matrice della chiave.
IF Pos < 0 THEN
$cPos.Clear
$cPos[Key] = $aKey.Count
$aKey.Add(Key)
ELSE
$aKey.Add(Key, Pos)
ENDIF
END
' Reimplementa il metodo clear
Public Sub Clear()
Super.Clear
$aKey.Clear
$cValue.Clear
End
...
Vedi anche