Klasse mit einem Panel als Übergabeparameter in der NEW()

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Klasse mit einem Panel als Übergabeparameter in der NEW()

    hallo

    es ist meine erste Frage und möchte mich kurz vorstellen,
    heiße Alois und bin ein etwas älterer Gelegenheitsprogrammierer, der mit
    ASM, C++, Borland Pascal ... groß geworden ist. Bin nun über Basic 6
    bei vb.net hängen geblieben, leider habe ich es mit der OOP noch nicht
    so recht, leider, weil es eigentlich eine super Sache ist.

    Aktuell
    möchte ich ein technisches Simulations-Programm erstellen (Forms), wo
    ich ein oder mehrere DIP Schalter platzieren möchte. Diese bestehen aus
    einfachen Buttons (Anzahl konfigurierbar) auf einem Panel
    platziert/zusammengefasst.

    Ich schreibe an einer DIP Schalter Klasse, und auf einer Form platziere ich per Designer ein Panel und
    rufe dann über den NEW() Konstruktor die DIP Schalter Klasse auf, hier
    übergebe ich dann auch das bereits auf der Forms platzierten Panel, nur
    leider funktioniert das nicht .

    Hier mal die Klasse:

    VB.NET-Quellcode

    1. Public Class DIP_Switch
    3. Enum Richtung
    4. N
    5. S
    6. O
    7. W
    8. End Enum
    10. Private Panel_Bank As Panel
    11. Private Panel_Nummer As UInt16
    12. Private DIPschalter_Anzahl As UInt16 'maximal 16 DipSchalter pro Bank
    13. Private DisplayNumerierung As Boolean 'Nummer wird unter dem DIP Schalter eingeblendet
    14. Private Startwert_Numerierung As UInt16 'Startwert der Nummer unter den DIP Schaltern
    15. Private Schalterstellung As Boolean 'wenn DIP unten, dann ist der Wert 0 oder 1
    16. Private Ausrichtung As Richtung
    18. Private Dezimalwert As UInt16 'Rückgabewert
    19. Private boolWert_DIPnr As BitArray 'Rückgabewert
    21. Private Bild_DIP_unten As Image = My.Resources.DIP_unten
    22. Private Bild_DIP_oben As Image = My.Resources.DIP_oben
    23. Private Bild_DIP_rechts As Image = My.Resources.DIP_rechts
    24. Private Bild_DIP_link As Image = My.Resources.DIP_links
    26. Public Sub New(mypanel As Panel, panelNumber As UInt16,
    27. dipswitchcount As UInt16, show_number As Boolean, startvalue As UInt16,
    28. switchpos As Boolean, direction As Richtung
    29. )
    30. Panel_Bank = New Panel
    32. Panel_Bank = mypanel
    34. Panel_Bank.Tag = panelNumber
    35. DIPschalter_Anzahl = dipswitchcount
    36. DisplayNumerierung = show_number
    37. Startwert_Numerierung = startvalue
    38. Schalterstellung = switchpos
    39. Ausrichtung = direction
    41. Dim butDIP() As Button = Nothing
    42. For i As UInt16 = 0 To DIPschalter_Anzahl - 1
    43. butDIP(i) = New Button With {
    44. .Parent = Panel_Bank
    45. }
    47. Next
    49. End Sub
    51. ReadOnly Property Decimalvalue As UInt16
    53. Get
    54. Return Dezimalwert
    55. End Get
    56. End Property
    59. Next
    60. End Sub
    61. End Class


    und hier der Aufruf von Forms:

    VB.NET-Quellcode

    1. Public Class Form_Test
    3. Private Sub Form_Test_Load(sender As Object, e As EventArgs) Handles Me.Load
    4. Dim Dezimalwert As UInt16
    5. Dim DipSchalterBank As New DIP_Switch(Panel1, 1, 8, False, 0, False, DIP_Switch.Richtung.N)
    7. Dezimalwert = DipSchalterBank.Decimalvalue
    8. End Sub
    10. End Class


    Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.


    Freue mich, wenn mir das wer erklären könnte, was ich falsch mache.

    Gruß,
    Alois


    P.S.: cool wäre es, wenn man das Ganze als eigenes CustomControl dann verwenden kann (Teil der Toolbox). Aber das ist dann der letzte Schritt.

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „ORTECH“ ()

    Willkommen im Forum. :thumbup:

    ORTECH schrieb:

    Aber das ist dann der letzte Schritt.
    Das sollte sogar der erste Schritt sein.
    Mach Dir ein UserControl mit all Deinem Zeugs und dann spiele damit rum.
    In welcher Zeile Deines Codes kommt dieser Fehler?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @ORTECH Dein Code ist als solcher nicht testbar, da kommen Bildchen vor usw., da wäre das komplette Projekt, bereinigt (ohne obj-, bin- und vs-Verzeichnisse) gezippt anzuhängen:
    Erweiterte Antwort => Dateianhänge => Hochladen.
    Doch zuvor machst Du erst mal Option Strict On:
    Visual Studio – Empfohlene Einstellungen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Option strict On ist eingeschaltet und Fehler sind ausgebessert bis auf einen, diesen hier. Da komm ich nicht drauf:

    VB.NET-Quellcode

    1. Private Sub ClickMethode(ByVal sender As System.Object, ByVal e As System.EventArgs)
    3. Dim btn As Button
    5. If TypeOf sender Is Button Then
    6. btn = CType(sender, Button)
    8. If btn.Tag = 1 Then
    9. DirectCast(sender, Button).Tag = 0
    10. DirectCast(sender, Button).Image = Bild_DIP_unten
    11. Else
    12. DirectCast(sender, Button).Tag = 1
    13. DirectCast(sender, Button).Image = Bild_DIP_oben
    14. End If
    16. Dezimalwert = 0
    18. Dim cnt As Integer
    20. 'Dipschalterstellungen zu dezimal konvertieren
    21. 'zählen wieviele Buttons (DIPSchalter) sich auf dem Panel befinden
    22. For Each ctrl As Control In Panel_Bank.Controls
    23. If TypeOf ctrl Is Button Then cnt += 1
    24. Dezimalwert += CInt(ctrl.Tag) * (2 ^ (cnt - 1))
    25. Next
    26. Panel_Bank.Tag = Dezimalwert
    27. End If
    29. End Sub


    Zeile 8: Der Wizard (nennt man den so?) sagt mir, dass ein Is Operator nötig sei, wenn ich Is einfüge statt =, dann kommt die Fehlermeldung, dass ich keine Integer Werte verwenden kann. Derbtn.tag ist aber ein integer Wert uind kein String. Versteh ich nicht.

    Ich weiß weiters auch nicht, ob ich CTYPE oder DIRECTRCAST verwneden soll, lt. www gibts das 2 verschiedene Meinungen

    Versuche die Tag-Property(als String) zu einem Integer zu parsen, wenn das erfolgreich war, schauen ob der Wert 1 ist.

    VB.NET-Quellcode

    1. btn = CType(sender, Button)
    2. Dim tagIntValue As Integer
    3. If Integer.TryParse(btn.Tag.ToString(), tagIntValue) Then
    4. 'hat geklappt
    5. If tagIntValue = 1 Then
    7. End If
    8. End If


    Würde auch so gehen, aber das kann Fehler verursachen, wenn die konvertierung nicht klappt(wird eine Exception geworfen)
    If CInt(btn.Tag) = 1 Then

    Zitat von mir 2023:
    Was interessiert mich Rechtschreibung? Der Compiler wird meckern wenn nötig :D

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

    Die Erstellung meiner DipSchalter in einem auf einer Form plazierten Panel funktioniert soweit.
    Wenn ich einen DIP Schalter (Button) klicke, dann macht er das, was ich in der Klasse geschrieben hab.
    Nur wie frage ich das DIP Schalter Click-Event in der Form ab? Der DIP Schalter wird ja in der Klasse erstellt (und ebenso der Eventhandler samt Methode)...Wie macht man das am besten?

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ORTECH“ ()

    ORTECH schrieb:

    Nur wie frage ich das DIP Schalter Click-Event in der Form ab?
    Das ist die falsche Herangehensweise.
    Wenn Du eine Pizza bestellst, siehst Du nicht alle 5 Minuten nach, ob der Bote da ist, Du wartest, bis er Klingelt. ;)
    Gib dem Control ein Event, das Du wirfst, wenn das Schalter Click-Event eintritt.
    Reiche es einfach durch:
    Kommunikation zwischen mehreren Forms per Event
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das mit der Pizza hängt wohl vom Hunger ab ;).
    Ich verstehe schon, was du meinst, aber wie ich das code technisch umsetze, da hab ich keinen Tau.
    Wie gib ich dem Button-Array ein Event? Mit addhandler? Damit rufe ich die private Methode in der Klasse auf.

    Oder geht das mit:

    VB.NET-Quellcode

    1. Public Event MeinEigenesEvent(ByVal sender As Object, ByVal e As MeinEigenesEventArgs)


    Das hab ich grad woanders hier im Forum gelesen.
    Aber wie implementiere ich das genau in der Klasse und wie bekomm ich das Event in der Form mit?

    Hier der aktuelle Stand meiner Klasse:

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Drawing.Design
    4. Public Class DIP_Switch
    6. Enum Richtung
    7. horizontal
    8. vertikal
    9. End Enum
    11. Private Panel_Bank As Panel
    12. Dim butDIP(15) As Button 'maximal 16 DIP Schalter
    13. Private DIPschalter_Anzahl As Integer 'maximal 16 DipSchalter pro Bank
    15. 'Private Schalterstellung As Boolean 'false= wenn DIP unten, dann ist der Wert 0, true= wenn DIP unten ist er 1
    16. Private Ausrichtung As Richtung ' graifische Ausrichtung der DIPSchalterbank
    18. Private Dezimalwert_normal, Dezimalwert_invertiert As Double 'Rückgabewerte, einmal von links nach rechts gewandelt bzw zurück (invertiert)
    20. Private Bild_DIP_unten As Image = My.Resources.DIP_down
    21. Private Bild_DIP_oben As Image = My.Resources.DIP_up
    22. Private Bild_DIP_rechts As Image = My.Resources.DIP_right
    23. Private Bild_DIP_links As Image = My.Resources.DIP_left
    25. Public Sub New(mypanel As Panel, dipswitchcount As UInt16, direction As Richtung)
    27. Panel_Bank = mypanel
    28. DIPschalter_Anzahl = dipswitchcount
    29. Ausrichtung = direction
    30. 'Schalterstellung = switchpos
    33. For i As Integer = 0 To (DIPschalter_Anzahl - 1)
    34. butDIP(i) = New Button
    36. With butDIP(i)
    37. .Parent = Panel_Bank
    39. Select Case Ausrichtung
    41. Case Richtung.horizontal
    43. .Top = 0
    44. .Size = New Size(CInt(Panel_Bank.Width / DIPschalter_Anzahl), Panel_Bank.Height)
    45. .Left = CInt(Panel_Bank.Width / DIPschalter_Anzahl * i)
    46. .Image = Bild_DIP_unten
    48. Case Richtung.vertikal
    50. .Left = 0
    51. .Size = New Size(Panel_Bank.Width, CInt(Panel_Bank.Height / DIPschalter_Anzahl))
    52. .Top = CInt(Panel_Bank.Height / DIPschalter_Anzahl * i)
    53. .Image = Bild_DIP_rechts
    55. End Select
    57. .Tag = 0 'Schalterstellung
    59. AddHandler .Click, AddressOf ClickMethode
    61. End With
    63. Next
    65. End Sub
    66. Private Sub ClickMethode(ByVal sender As System.Object, ByVal e As System.EventArgs)
    68. Dim btn As Button
    70. If TypeOf sender Is Button Then
    72. btn = CType(sender, Button)
    74. Select Case CInt(btn.Tag)
    76. Case 1 : DirectCast(sender, Button).Tag = 0
    78. If Ausrichtung = Richtung.horizontal Then DirectCast(sender, Button).Image = Bild_DIP_unten
    79. If Ausrichtung = Richtung.vertikal Then DirectCast(sender, Button).Image = Bild_DIP_rechts
    81. Case 0 : DirectCast(sender, Button).Tag = 1
    83. If Ausrichtung = Richtung.horizontal Then DirectCast(sender, Button).Image = Bild_DIP_oben
    84. If Ausrichtung = Richtung.vertikal Then DirectCast(sender, Button).Image = Bild_DIP_links
    86. End Select
    88. Dezimalwert_normal = 0
    89. Dezimalwert_invertiert = 0
    91. Dim cnt As Integer
    93. 'Dipschalterstellungen zu dezimal konvertieren
    94. 'zählen wieviele Buttons (DIPSchalter) sich auf dem Panel befinden
    95. Dim Dipschalteranzahl = Panel_Bank.Controls.Count
    97. cnt = 0
    98. For Each ctrl As Control In Panel_Bank.Controls
    99. If TypeOf ctrl Is Button Then cnt += 1
    100. Dezimalwert_normal += CInt(ctrl.Tag) * (2 ^ (cnt - 1))
    101. Next
    103. cnt = Dipschalteranzahl + 1
    104. For Each ctrl As Control In Panel_Bank.Controls
    105. If TypeOf ctrl Is Button Then cnt -= 1
    106. Dezimalwert_invertiert += CInt(ctrl.Tag) * (2 ^ (cnt - 1))
    107. Next
    108. End If
    110. End Sub
    112. Public Event ButtonKlick(sender As System.Object, e As System.EventArgs)
    114. ReadOnly Property Decimalvalue(startcount As Boolean) As Double
    116. Get
    117. If startcount = False Then Return Dezimalwert_normal Else Return Dezimalwert_invertiert
    118. End Get
    120. End Property
    122. ReadOnly Property DipNo(dipnumber As Integer) As Boolean
    124. Get
    125. If dipnumber < 0 Or dipnumber > 15 Then
    126. Return False
    127. Exit Property
    128. End If
    129. If CInt(butDIP(dipnumber).Tag) = 1 Then Return True Else Return False
    130. End Get
    132. End Property
    134. End Class


    und der Form:

    VB.NET-Quellcode

    1. Option Strict On
    3. 'Imports DIP_Switch
    5. Public Class Form_Test
    6. Dim Dezimalwert As Double = 0
    8. Dim DipSchalterBank1 As DIP_Switch
    9. Dim DipSchalterBank2 As DIP_Switch
    10. Dim DipSchalterBank3 As DIP_Switch
    12. Private Sub Form_Test_Load(sender As Object, e As EventArgs) Handles Me.Load
    13. DipSchalterBank1 = New DIP_Switch(Panel1, 8, DIP_Switch.Richtung.horizontal)
    14. DipSchalterBank2 = New DIP_Switch(Panel2, 4, DIP_Switch.Richtung.vertikal)
    15. DipSchalterBank3 = New DIP_Switch(Panel3, 6, DIP_Switch.Richtung.horizontal)
    16. End Sub
    18. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. ' DipSchalterBank3.ClickMethode(sender, e)
    22. TextBox1.Text = DipSchalterBank1.Decimalvalue(True).ToString
    24. TextBox2.Text = DipSchalterBank2.Decimalvalue(True).ToString
    26. TextBox3.Text = DipSchalterBank1.DipNo(18).ToString
    28. End Sub
    30. End Class

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

    ORTECH schrieb:

    Ich verstehe schon, was du meinst, aber wie ich das code technisch umsetze, da hab ich keinen Tau.
    Das steht in meinem Link, musst Du nur auf Deine Klassen übertragen:
    Statt Form2 in dem Code nimmst Du Dein UserControl.
    Deine UserControls sollten in der Designer-Toolbar erscheinen, zieh sie auf Deien GUI.
    Mach ggf. zunächst ein kleines Testprogramm, wo Du den Umgang mit UserControls übst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Das mit der Erstelllung eines Usercontrol meinte ich nicht, das was ich brauche und nicht weiß wie umsetzen ist folgendes:

    ich erstelle in meiner Form ein Objekt meiner DIPSchalter Klasse, das Panel plaziere ich in er Form und die Klasse erzeugt mir ein oder mehrere DIP Schalter, also Buttons.
    Wenn ich nun einen dieser DIP Schalter Buttons klicke, kann ich dieses Klick Event in der FOrm nicht abfragen bzw. weiß ich nicht wie das geht.

    Die DipSchalter Buttons werden ja dynamisch erzeugt über die Klasse und somit habe ich nix, wie ich das Klick Event in der FOrm abfragen kann.

    Hoff ich habs jetzt besser erklärt...

    Innerhalb Deiner ClickMethode kannst Du Dein ButtonKlick-Event mit RaiseEvent ButtonKlick(me, EventArgs.Empty) feuern. Nun brauchst Du aber noch jemanden, der sich dafür interessiert. Dazu müsstest Du nach dem Erstellen eines Dip-Schalter-Objektes dessen ButtonKlick-Event mit einer "zuhörenden" Methode verknüpfen:

    VB.NET-Quellcode

    1. Private Sub Form_Test_Load(sender As Object, e As EventArgs) Handles Me.Load
    2. DipSchalterBank1 = New DIP_Switch(Panel1, 8, DIP_Switch.Richtung.horizontal)
    3. AddHandler DipSchalterBank1.ButtonKlick, AddressOf DeinEventHandler 'EventHandler = Zuhörermethode
    4. DipSchalterBank2 = New DIP_Switch(Panel2, 4, DIP_Switch.Richtung.vertikal)
    5. AddHandler DipSchalterBank2.ButtonKlick, AddressOf DeinEventHandler
    6. DipSchalterBank3 = New DIP_Switch(Panel3, 6, DIP_Switch.Richtung.horizontal)
    7. AddHandler DipSchalterBank3.ButtonKlick, AddressOf DeinEventHandler
    8. End Sub
    10. Private Sub DeinEventHandler(sender As Object, e As EventArgs)
    11. 'hier der Code, der ausgeführt werden soll, nachdem irgendein Button irgendeines Dip-Schalters gedrückt wurde
    12. End Sub
    Solltest Du weitere Informationen dem Eventpaket mitgeben wollen, werden diese in eine eigene EventHandlerklasse gepackt und mitgeliefert, siehe alles über Events.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    ORTECH schrieb:

    kann ich dieses Klick Event in der FOrm nicht abfragen
    Dann solltest Du Dich auf die Straße stellen und warten, bis der Pizza-Bote vorbeikommt. ;)
    Gib Deinem UserControl ein Event.
    Lass die MainForm dieses Event aboinieren.
    Wenn im UserControl geklickt wird, rufst Du RaisEvent auf.
    Feddich.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende