eigenes Steuerelement für Datarepeater

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

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    eigenes Steuerelement für Datarepeater

    Hallo

    ich habe mir eine eigenes Steuerelement erstellt:

    VB.NET-Quellcode

    1. ​
    2. Public Class NumUpDown
    3. Private maxlevel As Integer = 10
    4. Private minlevel As Integer = 0
    5. Private famFont As Font
    6. Private colFont As Color
    7. Private colBtnFont As Color
    8. Private colBtn As Color
    9. Private usertest As String
    11. Public Event Text_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs)
    12. Public Event ButtonUp(ByVal sender As System.Object, ByVal e As System.EventArgs)
    13. Public Event ButtonDown(ByVal sender As System.Object, ByVal e As System.EventArgs)
    15. <Description("Maxiumwert, entspicht der Obergrenze des Zählers")> _
    16. Property Maximum() As Integer
    18. Get
    19. Return maxlevel
    20. End Get
    22. Set(ByVal value As Integer)
    23. maxlevel = value
    24. Plausibilitaet()
    25. End Set
    27. End Property
    28. <Description("Miniumwert, entspicht der Untergrenze des Zählers (negative Werte sind ebenfalls möglich)")> _
    29. Property Minimum() As Integer
    31. Get
    32. Return minlevel
    33. End Get
    35. Set(ByVal value As Integer)
    36. minlevel = value
    37. Plausibilitaet()
    38. End Set
    40. End Property
    42. Property FontColor() As Color
    43. Get
    44. Return colFont
    45. End Get
    46. Set(value As Color)
    47. colFont = value
    48. lblLevel.ForeColor = colFont
    49. End Set
    50. End Property
    52. Overrides Property Font() As Font
    54. Get
    55. Return lblLevel.Font
    56. End Get
    57. Set(value As Font)
    58. famFont = value
    59. lblLevel.Font = famFont
    60. End Set
    61. End Property
    63. Property ButtonFontColor() As Color
    64. Get
    65. Return colBtnFont
    66. End Get
    67. Set(value As Color)
    68. colBtnFont = value
    69. Button1.ForeColor = colBtnFont
    70. Button2.ForeColor = colBtnFont
    71. End Set
    72. End Property
    74. Property ButtonColor() As Color
    76. Get
    77. Return colBtn
    78. End Get
    79. Set(value As Color)
    80. colBtn = value
    81. Button1.BackColor = colBtn
    82. Button2.BackColor = colBtn
    83. End Set
    84. End Property
    86. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    87. Me.lblLevel.Text += 1
    89. RaiseEvent ButtonUp(sender, e)
    91. End Sub
    93. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    94. Me.lblLevel.Text -= 1
    96. RaiseEvent ButtonDown(sender, e)
    98. End Sub
    100. Private Sub lblLevel_TextChanged(sender As System.Object, e As System.EventArgs) Handles lblLevel.TextChanged
    102. Select Case lblLevel.Text
    104. Case minlevel
    105. Button2.Enabled = False
    106. Case maxlevel
    107. Button1.Enabled = False
    108. Case Else
    109. Button1.Enabled = True
    110. Button2.Enabled = True
    111. End Select
    113. RaiseEvent Text_Changed(sender, e)
    115. End Sub
    117. Public Sub Plausibilitaet()
    119. If minlevel > maxlevel Then
    121. MsgBox("Minium darf nicht größer Maxium sein!")
    123. End If
    125. End Sub
    127. Public Overrides Property Text() As String
    129. Get
    130. Return lblLevel.Text
    131. End Get
    132. Set(value As String)
    133. usertest = value
    134. lblLevel.Text = usertest
    135. End Set
    136. End Property
    138. End Class


    Nun möchte ich das ganz in einem Datarepeater einfügen nur leider funktionieren dann meine Events nicht mehr.

    Nutze ich es aber in einer normalen Form funktioniert alles wie es soll.

    Wie müsste ich es modifizieren damit es auch im Datarepeater funktioniert?

    ronny130286 schrieb:

    VB.NET-Quellcode

    1. Plausibilitaet()
    Mach da ne Boolean-Funktion draus, und nur, wenn die True zurückgibt, werden die Werte übernommen.

    ronny130286 schrieb:

    VB.NET-Quellcode

    1. Me.lblLevel.Text += 1
    Was ist "Bockwurst" + 1 :?:
    Gib Deinem Projekt ganz schnell Option Strict On.
    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!

    Was ist "Bockwurst" + 1


    Nein das würde nicht geht => das Label ist sozusagen einfach nur eine Ausgabe für eine Zahl, im Prinzip ist mein Steuerelement nichts anderes als ein NumericUpDown nur optisch etwas anders.

    ​Mach da ne Boolean-Funktion draus, und nur, wenn die True zurückgibt, werden die Werte übernommen.


    Ja werde ich noch machen, nur an der Tatsache das das Steuerelement nicht in einem Datarepeater Objekt funktioniert ändert das leider auch nichts

    ronny130286 schrieb:

    Nein das würde nicht geht
    Hast Du leider nicht verstanden. ;(
    Du versuchst, an einen String einen numerischen Wert "DRANZURECHNEN", die VB.NET versucht mit der leider bescheidenen Standardeinstellung Option Strict Off da was zu deuten, was aber gelegentlich vor die Hose geht.
    Also
    Option Strrict On und verwalte Deine Datentypen selber.
    Dann:
    Trenne Daten und GUI.
    Rechne mit Daten, nicht mit Controls.
    Das Ergebnis einer Berechnung wird mit einem Control visualisiert.
    So.
    Stell zunächst Deinen Code um und dann sehen wir weiter.
    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!

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.ComponentModel
    3. Public Class NumUpDown
    4. Private maxlevel As Integer = 10
    5. Private minlevel As Integer = 0
    6. Private famFont As Font
    7. Private colFont As Color
    8. Private colBtnFont As Color
    9. Private colBtn As Color
    10. Private usertest As String
    12. Public Event Text_Changed(ByVal sender As System.Object, ByVal e As System.EventArgs)
    13. Public Event ButtonUp(ByVal sender As System.Object, ByVal e As System.EventArgs)
    14. Public Event ButtonDown(ByVal sender As System.Object, ByVal e As System.EventArgs)
    16. <Description("Maxiumwert, entspicht der Obergrenze des Zählers")> _
    17. Property Maximum() As Integer
    19. Get
    20. Return maxlevel
    21. End Get
    23. Set(ByVal value As Integer)
    25. maxlevel = value
    27. End Set
    29. End Property
    30. <Description("Miniumwert, entspicht der Untergrenze des Zählers (negative Werte sind ebenfalls möglich)")> _
    31. Property Minimum() As Integer
    33. Get
    34. Return minlevel
    35. End Get
    37. Set(ByVal value As Integer)
    39. minlevel = value
    41. End Set
    43. End Property
    45. Property FontColor() As Color
    46. Get
    47. Return colFont
    48. End Get
    49. Set(value As Color)
    50. colFont = value
    51. lblLevel.ForeColor = colFont
    52. End Set
    53. End Property
    55. Overrides Property Font() As Font
    57. Get
    58. Return lblLevel.Font
    59. End Get
    60. Set(value As Font)
    61. famFont = value
    62. lblLevel.Font = famFont
    63. End Set
    65. End Property
    67. Property ButtonFontColor() As Color
    69. Get
    70. Return colBtnFont
    71. End Get
    72. Set(value As Color)
    73. colBtnFont = value
    74. Button1.ForeColor = colBtnFont
    75. Button2.ForeColor = colBtnFont
    76. End Set
    78. End Property
    80. Property ButtonColor() As Color
    82. Get
    83. Return colBtn
    84. End Get
    85. Set(value As Color)
    86. colBtn = value
    87. Button1.BackColor = colBtn
    88. Button2.BackColor = colBtn
    89. End Set
    91. End Property
    93. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    95. Dim zahl As Integer = CInt(Me.lblLevel.Text)
    97. zahl = zahl + 1
    99. Me.lblLevel.Text = CStr(zahl)
    101. RaiseEvent ButtonUp(sender, e)
    103. End Sub
    105. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    107. Dim zahl As Integer = CInt(Me.lblLevel.Text)
    109. zahl = zahl - 1
    111. Me.lblLevel.Text = CStr(zahl)
    113. RaiseEvent ButtonDown(sender, e)
    115. End Sub
    117. Private Sub lblLevel_TextChanged(sender As System.Object, e As System.EventArgs) Handles lblLevel.TextChanged
    119. Dim zahl As Integer = CInt(Me.lblLevel.Text)
    121. Select Case zahl
    123. Case minlevel
    124. Button2.Enabled = False
    125. Case maxlevel
    126. Button1.Enabled = False
    127. Case Else
    128. Button1.Enabled = True
    129. Button2.Enabled = True
    130. End Select
    132. RaiseEvent Text_Changed(sender, e)
    134. End Sub
    136. Public Overrides Property Text() As String
    138. Get
    139. Return lblLevel.Text
    140. End Get
    141. Set(value As String)
    142. usertest = value
    143. lblLevel.Text = usertest
    144. End Set
    145. End Property
    147. End Class


    Die Plausibilität habe ich erst mal raus gelassen, weil im ich die eigentlich nicht benötige.

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

    Was sollemer eiglich mit dem viele Code anfangen?

    Vom Angucken finde ich höchstens innem 5-Zeiler bestenfalls die auffälligsten Fehler.
    Aber obiges kann ich ja garnet testen, nichtmal, wenn ich extra ein Testprojekt aufsetzte.

    Also ists an dir, ein Testprojekt aufzusetzen, die Sources zu zippen und anzuhängen
    VBP-Posten

    Das ist die Library, das ist kein TestProjekt.
    Wie gesagt: Ich schneider mir jetzt keine Datenverarbeitung aus den Rippen, nur um dein NumUpd da auf einen DataRepeater machen zu können.
    Ein Testprojekt ist etwas, was man starten kann, und dann reproduziert es den Fehler.

    Ohne das kann man nicht debuggen.