SUPER
SUPER
Retourne une référence à l'objet courant qui utilisera l'implémentation du symbole de la classe héritée.
Exemple
' MyListBox class
Inherits ListBox
Private $aKey As New String[]
Private $cValue As New Collection
...
' Réimplémente la méthode Add (Note : la syntaxe DOIT correspondre à la syntaxe .Add() des classes héritées)
Public Sub Add(Text As String, Optional Pos As Integer = -1)
Dim sKey As String
' Ajoute un élément à la boite de liste
Super.Add(Text, Pos)
' Ajoute une clef au tableau de clefs
sKey = "Key_" & $aKey.Count
If Pos < 0 Then
$aKey.Add(sKey)
Else
$aKey.Add(sKey, Pos)
Endif
$cValue[sKey] = Text
End
' Réimplémente la méthode Clear
Public Sub Clear()
Super.Clear
$aKey.Clear
$cValue.Clear
End
...
Voir aussi