• SUPER

SUPER

継承クラスのシンボル実装を使用する現在のオブジェクトへの参照を返します。

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

• Object & Class Management