Public Event Test1( ByVal Wert As Integer)
Public Event Test2( ByVal Wert As String)

    Enum _Wahl
        [Zahl]
        [String]
    End Enum
    Dim VWahl As _Wahl
 
    Public Property Wahl() As _Wahl
        Get
            Return VWahl
        End Get
        Set(ByVal Value As _Wahl)
            VWahl = Value
        End Set
    End Property

Sub Test1( ByVal Wert As Integer)
 
End Sub

Sub Test2( ByVal Wert As String)
 
End Sub

#Const einstellung = 0
#If einstellung = 0 Then
    Public Event Test1( ByVal Wert As Integer)
#Else
    Public Event Test2( ByVal Wert As String)
#End If

Public Class Event_Wahl
    Inherits System.EventArgs
 
    Public Structure WAHL
        'Einen Wert für die Auswahl des verwendeten Typs
        'und für jeden im Enum deklarierten Wert ein Variable deklarieren
        'Es soll immer nur die Value_WAHL..-Variable mit Werten gefüllt werden,
        'welche bei Selected_Wahl eingstellt wurde.
        'Die andere Value_WAHL..-Variable dann einfach unbenutzt lassen.
        Dim Selected_Wahl           As ENUM_SELECTED_WAHL
        Dim Value_WAHL_Zahl_Integer As Integer
        Dim Value_WAHL_String       As String
 
        Public Enum ENUM_SELECTED_WAHL As Integer
            WAHL_Zahl_Integer           = 0
            WAHL_String                 = 1
        End Enum
 
    End Structure
 
    Dim Value_WAHL As WAHL
 
    Sub New(ByVal Wahl_IN  As WAHL)
        Value_WAHL = Wahl_IN
    End Sub
 
    ReadOnly Property Value_Wahl As WAHL
        Get
            return Value_WAHL
        End Get
    End Property
 
End Class

Public Event Test1(wert As Integer)
Public Event Test2(wert As String)

Public Event Test(zahl As Integer, zeichen As String)

Public Event Test(wert As Object)
 
 
' in der Form
Private Sub Komponente_Test(wert As Object) Handles Komponente.Test
  If TypeOf wert Is Integer Then
 
  ElseIf TypeOf wert Is String Then
 
  End If
End Sub

Public Class MeinControl(Of T)
 
  Public Event Test(wert As T)
 
End Class
 
 
Public Class Form1
 
  Dim WithEvents Komponente As New MeinControl(Of Integer) 'gewünschter Typ
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Controls.Add(Komponente)
  End Sub
 
  ' automatisch eingefügt:
  Private Sub Komponente_Test(wert As Integer) Handles Komponente.Test
 
  End Sub
 
End Class

Zitat:

Es hapert allein schon von der Erstellung von EventHandler da kommen nur Fehler und kann mir nicht vorstellen, wie du das meinst, so das die Prozedur Test1 oder Test2 im Komponenten Klasse freigeschaltet werden, so das es im Form sichtbar ist.

Public Structure WAHL
        'Einen Wert für die Auswahl des verwendeten Typs
        'und für jeden im Enum deklarierten Wert ein Variable deklarieren
        'Es soll immer nur die Value_WAHL..-Variable mit Werten gefüllt werden,
        'welche bei Selected_Wahl eingstellt wurde.
        'Die andere Value_WAHL..-Variable dann einfach unbenutzt lassen.
        Dim Selected_Wahl           As ENUM_SELECTED_WAHL
        Dim Value_WAHL_Zahl_Integer As Integer
        Dim Value_WAHL_String       As String
 
        Public Enum ENUM_SELECTED_WAHL As Integer
            WAHL_Zahl_Integer           = 0
            WAHL_String                 = 1
        End Enum
 
    End Structure

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
 
End Sub

Winsock1(Index).SandData()

Public Overrides Sub Send(ByVal Msg As String)
OnChatMessage(New MessageEventargs(Msg)) ' anzeigen
For Each C As Client In _Clients ' an alle versenden
C.Send(Msg)
Next
End Sub

Public Class frmZZZ
 
    'eine Klasse, von der mehrere Instanzen verwendet werden sollen
    Private Class xxx
 
        Public Event xxx_event(sender As Object, e As EventArgs)
 
        Public Sub eventraiser()
            RaiseEvent xxx_event(Me, EventArgs.Empty)
        End Sub
 
    End Class
 
    'Liste der Klasseninstanzen
    Dim lstXXX As New List(Of xxx)
 
 
    Private Sub frmZZZ_Load(sender As Object, _
        e As EventArgs) Handles MyBase.Load
 
        'Diverse Klasseninstanzen erstellen
        For i As Integer = 0 To 10
            Dim xxx_inst As New xxx
            'Handlerroutine einem Event der Instanz zuordnen
            AddHandler xxx_inst.xxx_event, AddressOf xxx_eventhandler
 
            'Neue Instanz in der Instanz-Liste hinzufügen
            lstXXX.Add(xxx_inst)
        Next i
 
        'Ein Event auslösen
        lstXXX(7).eventraiser()
    End Sub
 
    Public Sub xxx_eventhandler(sender As Object, e As EventArgs)
 
        'Im gemeinsamen Handler den Liste-Index der sendenden Instanz ermitteln
        Dim index As Integer
        For i As Integer = 0 To lstXXX.Count - 1
            If sender Is lstXXX(i) Then index = i
        Next i
    End Sub
End Class

Zitat:

Hallo sv00010! Die Struktur kenne ich, das hat so in VB.Net eh funktioniert, aber ich habe dich nicht genau verstanden, wie ich es machen soll, das die Event-Prozeduren freischalten werden.

Zitat:

Hallo sv00010! Danke dir, ich schau mir das mal an