vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Re: Array (List) mit WithEvents 
Autor: Urot
Datum: 11.12.05 01:23

Public Class Form1
    Inherits Form
 
 
    Private Sub Form_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim x As New test
        AddHandler x.ItemAdded, AddressOf OnItemAdded
        x.Add("hallo")
    End Sub
 
    Sub OnItemAdded(ByVal sender As Object, ByVal e As String)
        MsgBox(e)
    End Sub
 
    Class test
        Implements IList(Of String)
 
        Private list As New List(Of String)
 
        Public Event ItemAdded(ByVal sender As Object, ByVal e As String)
 
        Public Sub Add(ByVal item As String) Implements _
          System.Collections.Generic.ICollection(Of String).Add
            list.Add(item)
            RaiseEvent ItemAdded(Me, item)
        End Sub
 
        Public Sub Clear() Implements System.Collections.Generic.ICollection(Of _
          String).Clear
            list.Clear()
        End Sub
 
        Public Function Contains(ByVal item As String) As Boolean Implements _
          System.Collections.Generic.ICollection(Of String).Contains
            Return list.Contains(item)
        End Function
 
        Public Sub CopyTo(ByVal array() As String, ByVal arrayIndex As Integer) _
          Implements System.Collections.Generic.ICollection(Of String).CopyTo
            list.CopyTo(array, arrayIndex)
        End Sub
 
        Public ReadOnly Property Count() As Integer Implements _
          System.Collections.Generic.ICollection(Of String).Count
            Get
                Return list.Count
            End Get
        End Property
 
        Public ReadOnly Property IsReadOnly() As Boolean Implements _
          System.Collections.Generic.ICollection(Of String).IsReadOnly
            Get
                ' ???
                Return False
            End Get
        End Property
 
        Public Function Remove(ByVal item As String) As Boolean Implements _
          System.Collections.Generic.ICollection(Of String).Remove
 
        End Function
 
        Public Function GetEnumerator() As _
          System.Collections.Generic.IEnumerator(Of String) Implements _
          System.Collections.Generic.IEnumerable(Of String).GetEnumerator
            Return list.GetEnumerator
        End Function
 
        Public Function IndexOf(ByVal item As String) As Integer Implements _
          System.Collections.Generic.IList(Of String).IndexOf
            Return list.IndexOf(item)
        End Function
 
        Public Sub Insert(ByVal index As Integer, ByVal item As String) _
          Implements System.Collections.Generic.IList(Of String).Insert
            list.Insert(index, item)
        End Sub
 
        Default Public Property Item(ByVal index As Integer) As String _
          Implements System.Collections.Generic.IList(Of String).Item
            Get
                Return list.Item(index)
            End Get
            Set(ByVal value As String)
                list.Item(index) = value
            End Set
        End Property
 
        Public Sub RemoveAt(ByVal index As Integer) Implements _
          System.Collections.Generic.IList(Of String).RemoveAt
            list.RemoveAt(index)
        End Sub
 
        Public Function GetEnumerator1() As System.Collections.IEnumerator _
          Implements System.Collections.IEnumerable.GetEnumerator
            Return list.GetEnumerator
        End Function
    End Class
 
End Class
so ungefähr meinte der dave das
nun habe ich mal eine frage also wenn ich mit vb mehrere interfaces implementiere
dann erstellt die ide automatisch solche functionen wie
GetEnumerator1 und GetEnumerator weil sie in beiden interfaces vorhanden sind.
wenn ich die GetEnumerator1 lösche bekomme ich einen fehler das das interface nicht komplett implementiert ist.
in csharp geht das ohne probleme wieso nicht in vb ? gibts da nen trick ?

danke
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Array (List) mit WithEvents2.729Silver10.12.05 23:40
Re: Array (List) mit WithEvents2.133ModeratorDaveS11.12.05 00:08
Re: Array (List) mit WithEvents2.141Silver11.12.05 00:15
Re: Array (List) mit WithEvents2.590Urot11.12.05 01:23
Re: Array (List) mit WithEvents2.144ModeratorDaveS11.12.05 09:24
Re: Array (List) mit WithEvents2.112Silver11.12.05 14:54
Re: Array (List) mit WithEvents2.194ModeratorDaveS11.12.05 15:07
Re: Array (List) mit WithEvents2.151Silver11.12.05 16:10
Re: Array (List) mit WithEvents2.168ModeratorDaveS11.12.05 16:25
Re: Array (List) mit WithEvents2.296Silver11.12.05 16:31
Re: Array (List) mit WithEvents2.134ModeratorDaveS11.12.05 17:10
Re: Array (List) mit WithEvents2.290Silver11.12.05 17:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel