CustomControll mit 2 Schaltflächen reagiert nicht auf Klick

  • VB.NET
  • .NET 4.0

    CustomControll mit 2 Schaltflächen reagiert nicht auf Klick

    Hallo zusammen,

    ich hab gerade mal wieder ein Brett vor dem Kopf.
    Ich habe ein CustomControl erstellt das 3 Click optionen haben soll.
    Es stellt ein Übersichtsfenster für eine Platzwahl dar.

    Der obere Teil bildet eine Übersicht (Name und freie Sitzplätze)
    Der untere Teil enthält 2 Schaltflächen die beim Klick die Farbe wechseln sollen und eine boolean-Variable von wechseln (true <-> false)

    Ich habe jetzt 3 Klickaktionen
    Klick auf den "Infobereich" <--- Funktioniert.

    VB.NET-Quellcode

    1. Private Sub TableLayoutPanel1_Click(sender As Object, e As EventArgs) Handles TableLayoutPanel1.Click, Panel1.Click, lblName.Click, lblBesetztText.Click, lblFrei.Click
    2. MyBase.OnClick(e)
    3. End Sub


    Klick auf einen der Button <--- funktioniert nicht

    VB.NET-Quellcode

    1. Private _isStart As Boolean = False
    2. Public Event btnStartClick()
    3. Public Property IsStart As Boolean
    4. Get
    5. Return _isStart
    6. End Get
    7. Set(value As Boolean)
    8. _isStart = value
    9. If value = True Then
    10. btnStart.BackColor = Color.GreenYellow
    11. Else
    12. btnStart.BackColor = Color.Transparent
    13. End If
    14. End Set
    15. End Property
    16. Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    17. RaiseEvent btnStartClick()
    18. _isStart = Not _isStart
    19. End Sub




    EDIT:
    -----------------------Hat sich erledigt ------------------------------
    Habe mein Brett gefunden nachdem ich Gepostet hatte.
    Ich muss natürlich die Property ändern und nicht die Variable damit was passiert.
    Lösung:

    VB.NET-Quellcode

    1. Public Property IsStart As Boolean
    2. Get
    3. Return _isStart
    4. End Get
    5. Set(value As Boolean)
    6. _isStart = value
    7. btnStart.BackColor = If(value, Color.GreenYellow, Color.Transparent)
    8. End Set
    9. End Property
    10. Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    11. RaiseEvent btnStartClick()
    12. _isStart = Not _isStart
    13. End Sub

    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Schamash“ ()