Imports System.ComponentModel
 
<Description("SO FUNKTIONIERT DAS GANZE SUPER")> _
Public Class USC_MSRElementLarge
 
 
    Private m_Text As String
    Private m_Number As String
    Private m_color As System.Drawing.Color
 
 
 
 
    <Description("Die MSR-Nummer, Bsp. ZCAHL "), _
    Category("Meine Eigenschaften")> _
Public Property X_MSR_Type() As String
        Get
            Return m_Text
        End Get
        Set(ByVal value As String)
            m_Text = value
        End Set
    End Property
 
    <Description("Die MSR-Nummer, Max. 5 Ziffern, Bsp. 45678 "), _
    Category("Meine Eigenschaften")> _
    Public Property X_MSR_Number() As String
        Get
            Return m_Number
        End Get
        Set(ByVal value As String)
            m_Number = value
        End Set
    End Property
 
    <Description("Die Hintergrundfarbe des Feldes sollte mit dem Hintergrund" & _
      "der Komponente übereinstimmen "), _
    Category("Meine Eigenschaften")> _
Public Property X_MSR_Background() As System.Drawing.Color
        Get
            Return m_color
        End Get
 
        Set(ByVal value As System.Drawing.Color)
            m_color = value
        End Set
    End Property
 
 
 
    Private Sub USC_MSRElement_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
 
        Me.Label_MSR_Text.Text = m_Text
        Me.Label_MSR_Number.Text = m_Number
        Me.Panel_MSR.BackColor = m_color
 
    End Sub
 
    Private Sub Panel_MSR_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Panel_MSR.Click
        Me.OnClick(e)
    End Sub
 
    Private Sub Label_MSR_Text_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Label_MSR_Text.Click
        Me.OnClick(e)
    End Sub
 
    Private Sub Label_MSR_Number_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Label_MSR_Number.Click
        Me.OnClick(e)
    End Sub
End Class