lang • super

SUPER

SUPER

Devuelve una referencia al objeto actual que empleará la implementación de los símbolos de la clase padre.

Examples

' MyListBox class
Inherits ListBox

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

' 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, Key, Pos)
  ' Adds the key to key array
  If Pos < 0 Then
    $cPos.Clear
    $cPos[Key] = $aKey.Count
    $aKey.Add(Key)
  Else
    $aKey.Add(Key, Pos)
  Endif

End
...

Véase también