Classe Enumeration
Publié: 09 Fév 2005 à 09:25- Code : Tout sélectionner
Public Class Enumeration
Public Function hasMoreElements() As Variant
Error 2000, Typename(Me) & "." & Lsi_Info(2) & "not implemented"
End Function
Public Function nextElement() As Variant
Error 2000, Typename(Me) & "." & Lsi_Info(2) & "not implemented"
End Function
End Class
http://dev.kanngard.net