ListControl Item adden, nur wie?

  • Allgemein

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    ListControl Item adden, nur wie?

    Hallo liebe Community,
    ich habe dieses Control im i-net gefunden:
    Control

    VB.NET-Quellcode

    1. Public Class ListControl : Inherits ListBox
    3. Public Sub New()
    4. Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    5. Me.ItemHeight = 100
    6. End Sub
    8. Dim _FontSubText As Font = Me.Font
    9. Public Property FontSubText() As Font
    10. Get
    11. Return _FontSubText
    12. End Get
    13. Set(ByVal value As Font)
    14. _FontSubText = value
    15. End Set
    16. End Property
    18. Dim _FontTopText As Font = Me.Font
    19. Public Property FontTopText() As Font
    20. Get
    21. Return _FontTopText
    22. End Get
    23. Set(ByVal value As Font)
    24. _FontTopText = value
    25. End Set
    26. End Property
    28. Dim _SelectedBackColor As Color = Color.CornflowerBlue
    29. Public Property SelectedBackColor() As Color
    30. Get
    31. Return _SelectedBackColor
    32. End Get
    33. Set(ByVal value As Color)
    34. _SelectedBackColor = value
    35. End Set
    36. End Property
    38. Dim _BorderColor As Color = Color.Gray
    39. Public Property BorderColor() As Color
    40. Get
    41. Return _BorderColor
    42. End Get
    43. Set(ByVal value As Color)
    44. _BorderColor = value
    45. End Set
    46. End Property
    48. Dim _SelectedBorderColor As Color = Color.DarkGray
    49. Public Property SelectedBorderColor() As Color
    50. Get
    51. Return _SelectedBorderColor
    52. End Get
    53. Set(ByVal value As Color)
    54. _SelectedBorderColor = value
    55. End Set
    56. End Property
    58. Dim _TopTextForeColor As Color = Color.Black
    59. Public Property TopTextForeColor() As Color
    60. Get
    61. Return _TopTextForeColor
    62. End Get
    63. Set(ByVal value As Color)
    64. _TopTextForeColor = value
    65. End Set
    66. End Property
    68. Dim _SubTextForeColor As Color = Color.Gray
    69. Public Property SubTextForeColor() As Color
    70. Get
    71. Return _SubTextForeColor
    72. End Get
    73. Set(ByVal value As Color)
    74. _SubTextForeColor = value
    75. End Set
    76. End Property
    78. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    80. If e.Index > -1 AndAlso e.Index < (Items.Count) Then
    82. Dim tmp As New ListControlItem(New Bitmap(1, 1), "a", "b", "c")
    84. If Me.Items(e.Index).GetType Is tmp.GetType Then
    86. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    87. tmp = CType(Me.Items(e.Index), ListControlItem)
    89. With e.Graphics
    91. If e.Index = Me.SelectedIndex Then
    92. .FillRectangle(New SolidBrush(SelectedBackColor), r)
    93. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r)
    94. Else
    95. .FillRectangle(New SolidBrush(Color.Transparent), r)
    96. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r)
    97. End If
    99. If tmp.Image IsNot Nothing Then .DrawImage(tmp.Image, r.X + 5, r.Y + 5, 45, 45) Else .DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5)
    101. .DrawString(tmp.TopText, Me.FontTopText, New SolidBrush(TopTextForeColor), New Rectangle(r.X + 60, r.Y + 5, Me.Width - (r.X + 60), CInt(.MeasureString(tmp.TopText, Me.FontTopText).Height)))
    102. .DrawString(tmp.MainContent, Me.Font, New SolidBrush(Me.ForeColor), New Rectangle(r.X + 60, r.Y + 25, Me.Width - (r.X + 60), CInt(60 - .MeasureString(tmp.TopText, Me.FontTopText).Height - .MeasureString(tmp.SubText, Me.FontSubText).Height)))
    103. .DrawString(tmp.SubText, Me.FontSubText, New SolidBrush(SubTextForeColor), New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - (r.X + 60), CInt(.MeasureString(tmp.SubText, Me.FontSubText).Height)))
    105. End With
    107. End If
    108. End If
    112. End Sub
    113. Private Sub ListControl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SelectedIndexChanged
    114. Me.Invalidate()
    115. End Sub
    117. End Class
    119. Public Class ListControlItem
    120. Public Sub New(ByVal _IMG As Bitmap, ByVal _TopText As String, ByVal _mainCont As String, ByVal _SubText As String)
    121. If Image IsNot Nothing Then Image = _IMG
    122. TopText = _TopText
    123. SubText = _SubText
    124. MainContent = _mainCont
    125. End Sub
    126. Public Image As Bitmap = New Bitmap(1, 1)
    127. Public TopText As String = ""
    128. Public MainContent As String = ""
    129. Public SubText As String = ""
    130. End Class

    Jedoch weiß ich nicht wie ich ein Item dazu adde.
    Bitte um Hilfe.
    Danke im Vorraus.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

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

    Hi
    vmtl. wie bei einer ListBox. Aber guter Rat: Der Code ist schlecht, also schau ihn dir nur durch und such' dir das Prinzip raus, in dem er vorgeht (z.B. das DrawItem-Ereignis zum Zeichnen der ListBox-Items). Danach schau' mal, wie du ihn besser machst.

    Edit: Grad' hab' ich ihn nur überflogen, aber nach genauerer Betrachtung muss ich die vorherige Aussage, wonach der Code schlecht ist, zurückziehen: Der Code ist grottig.

    Gruß
    ~blaze~

    Könntest du mir bitte trotzdem sagen, wie ich ein item hinzufüge.
    Aber ein item mit img, toptext, maintext subtext.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Könntest du mir eine Erklärung dazu geben, damit ich das ganze besser verstehe?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Ja und ich liefer dir auch einen hoffentlich besseren Code...
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class ListControl
    2. Inherits ListBox
    4. 'evtl. noch mal anpassen
    5. Private fntSubTextFont As Font = SystemFonts.DefaultFont
    6. Private fntHeaderFont As Font = SystemFonts.DefaultFont
    7. Private clrSelectedBackColor As Color = Color.CornflowerBlue
    8. Private clrBorderColor As Color = Color.Gray
    9. Private clrSelectedBorderColor As Color = Color.DarkGray
    10. Private clrHeaderColor As Color = Color.Black
    11. Private clrSubTextColor As Color = Color.Gray
    12. Private bDrawDefaultItems As Boolean = True
    14. 'Category etc. nat. noch anfuegen, bin ich aber zu faul zu
    15. <System.ComponentModel.DefaultValue(True)> _
    16. Public Property DrawDefaultItems As Boolean
    17. Get
    18. Return bDrawDefaultItems
    19. End Get
    20. Set(ByVal value As Boolean)
    21. bDrawDefaultItems = value
    22. End Set
    23. End Property
    25. Public Property SubTextFont As Font
    26. Get
    27. Return fntSubTextFont
    28. End Get
    29. Set(ByVal value As Font)
    30. fntSubTextFont = value
    31. Invalidate()
    32. End Set
    33. End Property
    35. Public Property HeaderFont As Font
    36. Get
    37. Return fntHeaderFont
    38. End Get
    39. Set(ByVal value As Font)
    40. fntHeaderFont = value
    41. Invalidate()
    42. End Set
    43. End Property
    45. Public Property SubTextColor As Color
    46. Get
    47. Return clrSubTextColor
    48. End Get
    49. Set(ByVal value As Color)
    50. clrSubTextColor = value
    51. Invalidate()
    52. End Set
    53. End Property
    55. Public Property HeaderColor As Color
    56. Get
    57. Return clrHeaderColor
    58. End Get
    59. Set(ByVal value As Color)
    60. clrHeaderColor = value
    61. Invalidate()
    62. End Set
    63. End Property
    65. Public Property SelectedBorderColor As Color
    66. Get
    67. Return clrSelectedBorderColor
    68. End Get
    69. Set(ByVal value As Color)
    70. clrSelectedBorderColor = value
    71. Invalidate()
    72. End Set
    73. End Property
    75. Public Property SelectedBackColor As Color
    76. Get
    77. Return clrSelectedBackColor
    78. End Get
    79. Set(ByVal value As Color)
    80. clrSelectedBackColor = value
    81. Invalidate()
    82. End Set
    83. End Property
    85. Public Property BorderColor As Color
    86. Get
    87. Return clrBorderColor
    88. End Get
    89. Set(ByVal value As Color)
    90. clrBorderColor = value
    91. Invalidate()
    92. End Set
    93. End Property
    95. 'neusetzen verhindern
    96. <System.ComponentModel.Browsable(False), System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
    97. Public Overrides Property DrawMode As System.Windows.Forms.DrawMode
    98. Get
    99. Return MyBase.DrawMode
    100. End Get
    101. Set(ByVal value As System.Windows.Forms.DrawMode)
    102. MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    103. End Set
    104. End Property
    106. Public Sub New()
    107. InitializeComponent()
    108. DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    109. ItemHeight = 100
    110. End Sub
    112. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    113. Dim item As Object = Items(e.Index)
    114. If TypeOf item Is ListControlItem Then ' ist das Item ein ListControlItem (im anderen Code auf eine... interessante Art geloest)
    115. Dim current As ListControlItem = DirectCast(item, ListControlItem) ' Casten zum ListControlItem
    116. 'Rechteck, in dem gezeichnet werden soll (s. o.)
    117. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    119. With e.Graphics
    120. Dim headerSize As Size
    121. Dim subtextSize As Size
    123. Dim elementBounds As Rectangle
    124. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 'ist das Item angewaehlt
    125. .FillRectangle(New SolidBrush(SelectedBackColor), r) 'Hintergrund zeichnen
    126. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r) 'Rahmen zeichnen
    127. Else
    128. 'wozu was mit einem durchsichtigen Hintergrund fuellen?!! Wenn dann noch BackColor oder so
    129. '.FillRectangle(New SolidBrush(Color.Transparent), r) 'transparentes Rechteck drueberlegen (lol)
    130. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r) 'Rahmen zeichnen
    131. End If
    133. If current.Image IsNot Nothing Then 'Wenn ein Bild vorhanden wird (Kotz-Faktor nr 2)
    134. .DrawImage(current.Image, r.X + 5, r.Y + 5, 45, 45)
    135. Else
    136. 'einfach gar nix zeichnen?!!
    137. '.DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5) 'oder halt ein Fehlericon zeichnen
    138. End If
    139. headerSize = Size.Ceiling(.MeasureString(current.Header, HeaderFont)) 'Groesse des Headers ermitteln
    140. elementBounds = New Rectangle(r.X + 60, r.Y + 5, ClientSize.Width - r.X - 60, headerSize.Height) 'Bereich des Headers
    141. 'eigentlich per TextRenderer-Klasse (siehe weiter unten)?
    142. .DrawString(current.Header, HeaderFont, New SolidBrush(HeaderColor), elementBounds) 'Header zeichnen (Top-Text oben)
    144. subtextSize = Size.Ceiling(.MeasureString(current.SubText, SubTextFont)) 'Groesse des Subtexts ermitteln
    145. elementBounds = New Rectangle(r.X + 60, r.Y + 25, ClientSize.Width - r.X - 60, 60 - subtextSize.Height - headerSize.Height)
    146. .DrawString(current.Content, Font, New SolidBrush(Me.ForeColor), elementBounds) 'Inhalt zeichnen (main content oben)
    148. elementBounds = New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - r.X - 60, subtextSize.Height)
    149. .DrawString(current.SubText, SubTextFont, New SolidBrush(SubTextColor), elementBounds) 'Subtext zeichnen
    150. 'Falls ausgewaehlt und gewuenscht, ein Fokusrechteck zeichnen
    151. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    152. ControlPaint.DrawFocusRectangle(e.Graphics, r)
    153. End If
    154. End With
    155. ElseIf DrawDefaultItems Then 'von mir eingefuehrte Eigenschaft, die es dem User ermoeglicht, nicht speziell behandelte Items ohne eigene Zeichenprozedur zu zeichnen
    156. e.DrawBackground()
    157. TextRenderer.DrawText(e.Graphics, GetItemText(item), Font, e.Bounds, ForeColor) 'hier ein BSP fuer den TextRenderer
    158. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    159. e.DrawFocusRectangle()
    160. End If
    161. End If
    162. End Sub
    164. Public NotInheritable Class ListControlItem
    165. Private ReadOnly imgImage As Image
    166. Private ReadOnly strHeader As String
    167. Private ReadOnly strContent As String
    168. Private ReadOnly strSubText As String
    170. Public ReadOnly Property Image As Image
    171. Get
    172. Return imgImage
    173. End Get
    174. End Property
    176. Public ReadOnly Property Header As String
    177. Get
    178. Return strHeader
    179. End Get
    180. End Property
    182. Public ReadOnly Property Content As String
    183. Get
    184. Return strContent
    185. End Get
    186. End Property
    188. Public ReadOnly Property SubText As String
    189. Get
    190. Return strSubText
    191. End Get
    192. End Property
    194. Public Sub New(ByVal image As Image, ByVal header As String, ByVal content As String, ByVal subText As String)
    195. imgImage = image
    196. strHeader = header
    197. strContent = content
    198. strSubText = subText
    199. End Sub
    200. End Class
    201. End Class


    Items fügst du per Code hinzu:

    VB.NET-Quellcode

    1. ListControlInstance.Items.Add(new ListControl.ListControlItem(...))

    bzw. bei dem Foltercode oben:

    VB.NET-Quellcode

    1. ListControlInstance.Items.Add(new ListControlItem(...))

    Die Klasse bei meinem Code kannst du natürlich noch herausziehen.
    Die Basis für den Code ist das DrawItem-Ereignis, das von der ListBox angeboten wird. Das wird eben dazu verwendet, die Items selber zu zeichnen, wenn die DrawMode-Eigenschaft angepasst wird. Über die übergebenen EventArgs werden die Eigenschaften des zu zeichnenden Elements angepasst.

    Gruß
    ~blaze~

    Noch was blaze wieso ist

    VB.NET-Quellcode

    1. InitializeComponent()

    Als undefiniert gekenntzeichnet?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Mit

    Gather schrieb:

    VB.NET-Quellcode

    1. InitializeComponent()
    werden designererzeugte GUI-Elemente initialisiert.
    Wenn Du ein designereerzeugtes Control / eine Form hast, ist das automatisch dabei, diese Prozedur ist in der Datei DEIN_CONTROL.Designer.vb.
    Wenn Du eine Klasse generierst:

    VB.NET-Quellcode

    1. Public Class MyControl
    2. Inherits UserControl
    3. ' ...
    4. End Class
    ist das nicht dabei, da musst Du das von Hand einfügen.
    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!

    ja, jedoch wird sie als fehler gekenntzeichnet.
    Heißt dass ich soll sie entfernen?
    Fehler:

    Quellcode

    1. Fehler 1 "InitializeComponent" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    ich verstehe nicht ganz wie das mein problem lösen soll...
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Tu es. Wenn du sie nicht hast und nicht brauchst, nimm' sie weg. Im Designer erzeugte Controls, Komponenten usw. haben diese Methode. Ich hab' sie daher einfach mit reingenommen, weil ich mir diesen Code nicht im Texteditor vom Forum durchgehen wollte und ich mir mein Control per Designer erstellt habe.

    Gruß
    ~blaze~



    Kommt bei diesem Code, wenn ich das Control auf die Form ziehen will.

    VB.NET-Quellcode

    1. Public Sub New()
    2. DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    3. ItemHeight = 100
    4. End Sub


    Bitte hilf mir weiter :D
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    NotImplementedException. ich denke mal, Deiner Klasse fehlt noch (mindestens) eine überladene Funktion.
    Poste mal Zeile 203 der Datei ListControl.vb +- ein paar Zeilen, Zeile 203 bitte markieren.
    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!

    ~blaze~ schrieb:

    Ja und ich liefer dir auch einen hoffentlich besseren Code...
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class ListControl
    2. Inherits ListBox
    4. 'evtl. noch mal anpassen
    5. Private fntSubTextFont As Font = SystemFonts.DefaultFont
    6. Private fntHeaderFont As Font = SystemFonts.DefaultFont
    7. Private clrSelectedBackColor As Color = Color.CornflowerBlue
    8. Private clrBorderColor As Color = Color.Gray
    9. Private clrSelectedBorderColor As Color = Color.DarkGray
    10. Private clrHeaderColor As Color = Color.Black
    11. Private clrSubTextColor As Color = Color.Gray
    12. Private bDrawDefaultItems As Boolean = True
    14. 'Category etc. nat. noch anfuegen, bin ich aber zu faul zu
    15. _
    16. Public Property DrawDefaultItems As Boolean
    17. Get
    18. Return bDrawDefaultItems
    19. End Get
    20. Set(ByVal value As Boolean)
    21. bDrawDefaultItems = value
    22. End Set
    23. End Property
    25. Public Property SubTextFont As Font
    26. Get
    27. Return fntSubTextFont
    28. End Get
    29. Set(ByVal value As Font)
    30. fntSubTextFont = value
    31. Invalidate()
    32. End Set
    33. End Property
    35. Public Property HeaderFont As Font
    36. Get
    37. Return fntHeaderFont
    38. End Get
    39. Set(ByVal value As Font)
    40. fntHeaderFont = value
    41. Invalidate()
    42. End Set
    43. End Property
    45. Public Property SubTextColor As Color
    46. Get
    47. Return clrSubTextColor
    48. End Get
    49. Set(ByVal value As Color)
    50. clrSubTextColor = value
    51. Invalidate()
    52. End Set
    53. End Property
    55. Public Property HeaderColor As Color
    56. Get
    57. Return clrHeaderColor
    58. End Get
    59. Set(ByVal value As Color)
    60. clrHeaderColor = value
    61. Invalidate()
    62. End Set
    63. End Property
    65. Public Property SelectedBorderColor As Color
    66. Get
    67. Return clrSelectedBorderColor
    68. End Get
    69. Set(ByVal value As Color)
    70. clrSelectedBorderColor = value
    71. Invalidate()
    72. End Set
    73. End Property
    75. Public Property SelectedBackColor As Color
    76. Get
    77. Return clrSelectedBackColor
    78. End Get
    79. Set(ByVal value As Color)
    80. clrSelectedBackColor = value
    81. Invalidate()
    82. End Set
    83. End Property
    85. Public Property BorderColor As Color
    86. Get
    87. Return clrBorderColor
    88. End Get
    89. Set(ByVal value As Color)
    90. clrBorderColor = value
    91. Invalidate()
    92. End Set
    93. End Property
    95. 'neusetzen verhindern
    96. _
    97. Public Overrides Property DrawMode As System.Windows.Forms.DrawMode
    98. Get
    99. Return MyBase.DrawMode
    100. End Get
    101. Set(ByVal value As System.Windows.Forms.DrawMode)
    102. MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    103. End Set
    104. End Property
    106. Public Sub New()
    107. InitializeComponent()
    108. DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    109. ItemHeight = 100
    110. End Sub
    112. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    113. Dim item As Object = Items(e.Index)
    114. If TypeOf item Is ListControlItem Then ' ist das Item ein ListControlItem (im anderen Code auf eine... interessante Art geloest)
    115. Dim current As ListControlItem = DirectCast(item, ListControlItem) ' Casten zum ListControlItem
    116. 'Rechteck, in dem gezeichnet werden soll (s. o.)
    117. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    119. With e.Graphics
    120. Dim headerSize As Size
    121. Dim subtextSize As Size
    123. Dim elementBounds As Rectangle
    124. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 'ist das Item angewaehlt
    125. .FillRectangle(New SolidBrush(SelectedBackColor), r) 'Hintergrund zeichnen
    126. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r) 'Rahmen zeichnen
    127. Else
    128. 'wozu was mit einem durchsichtigen Hintergrund fuellen?!! Wenn dann noch BackColor oder so
    129. '.FillRectangle(New SolidBrush(Color.Transparent), r) 'transparentes Rechteck drueberlegen (lol)
    130. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r) 'Rahmen zeichnen
    131. End If
    133. If current.Image IsNot Nothing Then 'Wenn ein Bild vorhanden wird (Kotz-Faktor nr 2)
    134. .DrawImage(current.Image, r.X + 5, r.Y + 5, 45, 45)
    135. Else
    136. 'einfach gar nix zeichnen?!!
    137. '.DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5) 'oder halt ein Fehlericon zeichnen
    138. End If
    139. headerSize = Size.Ceiling(.MeasureString(current.Header, HeaderFont)) 'Groesse des Headers ermitteln
    140. elementBounds = New Rectangle(r.X + 60, r.Y + 5, ClientSize.Width - r.X - 60, headerSize.Height) 'Bereich des Headers
    141. 'eigentlich per TextRenderer-Klasse (siehe weiter unten)?
    142. .DrawString(current.Header, HeaderFont, New SolidBrush(HeaderColor), elementBounds) 'Header zeichnen (Top-Text oben)
    144. subtextSize = Size.Ceiling(.MeasureString(current.SubText, SubTextFont)) 'Groesse des Subtexts ermitteln
    145. elementBounds = New Rectangle(r.X + 60, r.Y + 25, ClientSize.Width - r.X - 60, 60 - subtextSize.Height - headerSize.Height)
    146. .DrawString(current.Content, Font, New SolidBrush(Me.ForeColor), elementBounds) 'Inhalt zeichnen (main content oben)
    148. elementBounds = New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - r.X - 60, subtextSize.Height)
    149. .DrawString(current.SubText, SubTextFont, New SolidBrush(SubTextColor), elementBounds) 'Subtext zeichnen
    150. 'Falls ausgewaehlt und gewuenscht, ein Fokusrechteck zeichnen
    151. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    152. ControlPaint.DrawFocusRectangle(e.Graphics, r)
    153. End If
    154. End With
    155. ElseIf DrawDefaultItems Then 'von mir eingefuehrte Eigenschaft, die es dem User ermoeglicht, nicht speziell behandelte Items ohne eigene Zeichenprozedur zu zeichnen
    156. e.DrawBackground()
    157. TextRenderer.DrawText(e.Graphics, GetItemText(item), Font, e.Bounds, ForeColor) 'hier ein BSP fuer den TextRenderer
    158. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    159. e.DrawFocusRectangle()
    160. End If
    161. End If
    162. End Sub
    164. Public NotInheritable Class ListControlItem
    165. Private ReadOnly imgImage As Image
    166. Private ReadOnly strHeader As String
    167. Private ReadOnly strContent As String
    168. Private ReadOnly strSubText As String
    170. Public ReadOnly Property Image As Image
    171. Get
    172. Return imgImage
    173. End Get
    174. End Property
    176. Public ReadOnly Property Header As String
    177. Get
    178. Return strHeader
    179. End Get
    180. End Property
    182. Public ReadOnly Property Content As String
    183. Get
    184. Return strContent
    185. End Get
    186. End Property
    188. Public ReadOnly Property SubText As String
    189. Get
    190. Return strSubText
    191. End Get
    192. End Property
    194. Public Sub New(ByVal image As Image, ByVal header As String, ByVal content As String, ByVal subText As String)
    195. imgImage = image
    196. strHeader = header
    197. strContent = content
    198. strSubText = subText
    199. End Sub
    200. End Class
    201. End Class


    Items fügst du per Code hinzu:

    VB.NET-Quellcode

    1. ListControlInstance.Items.Add(new ListControl.ListControlItem(...))

    bzw. bei dem Foltercode oben:

    VB.NET-Quellcode

    1. ListControlInstance.Items.Add(new ListControlItem(...))

    Die Klasse bei meinem Code kannst du natürlich noch herausziehen.
    Die Basis für den Code ist das DrawItem-Ereignis, das von der ListBox angeboten wird. Das wird eben dazu verwendet, die Items selber zu zeichnen, wenn die DrawMode-Eigenschaft angepasst wird. Über die übergebenen EventArgs werden die Eigenschaften des zu zeichnenden Elements angepasst.

    Gruß
    ~blaze~
    Blaze hat ihn hier gepostet.
    Das ist er.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Gather schrieb:

    Blaze hat ihn hier gepostet.
    Das ist er.
    Da kommt leider keine Zeile 203 vor. :rolleyes:
    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!

    warte... hat sich erledigt. Ich teste grad es funktioniert aber warte... ich schau noch.
    So nächstes Prob:
    Ich kann es nun adden aber wenn ich es größer machen will kommt folgender fehler:

    Ich versteh nicht was in zeile 107 falsch ist.
    Code

    VB.NET-Quellcode

    1. Public Class ListControl
    2. Inherits ListBox
    4. 'evtl. noch mal anpassen
    5. Private fntSubTextFont As Font = SystemFonts.DefaultFont
    6. Private fntHeaderFont As Font = SystemFonts.DefaultFont
    7. Private clrSelectedBackColor As Color = Color.CornflowerBlue
    8. Private clrBorderColor As Color = Color.Gray
    9. Private clrSelectedBorderColor As Color = Color.DarkGray
    10. Private clrHeaderColor As Color = Color.Black
    11. Private clrSubTextColor As Color = Color.Gray
    12. Private bDrawDefaultItems As Boolean = True
    14. 'Category etc. nat. noch anfuegen, bin ich aber zu faul zu
    15. <System.ComponentModel.DefaultValue(True)> _
    16. Public Property DrawDefaultItems As Boolean
    17. Get
    18. Return bDrawDefaultItems
    19. End Get
    20. Set(ByVal value As Boolean)
    21. bDrawDefaultItems = value
    22. End Set
    23. End Property
    25. Public Property SubTextFont As Font
    26. Get
    27. Return fntSubTextFont
    28. End Get
    29. Set(ByVal value As Font)
    30. fntSubTextFont = value
    31. Invalidate()
    32. End Set
    33. End Property
    35. Public Property HeaderFont As Font
    36. Get
    37. Return fntHeaderFont
    38. End Get
    39. Set(ByVal value As Font)
    40. fntHeaderFont = value
    41. Invalidate()
    42. End Set
    43. End Property
    45. Public Property SubTextColor As Color
    46. Get
    47. Return clrSubTextColor
    48. End Get
    49. Set(ByVal value As Color)
    50. clrSubTextColor = value
    51. Invalidate()
    52. End Set
    53. End Property
    55. Public Property HeaderColor As Color
    56. Get
    57. Return clrHeaderColor
    58. End Get
    59. Set(ByVal value As Color)
    60. clrHeaderColor = value
    61. Invalidate()
    62. End Set
    63. End Property
    65. Public Property SelectedBorderColor As Color
    66. Get
    67. Return clrSelectedBorderColor
    68. End Get
    69. Set(ByVal value As Color)
    70. clrSelectedBorderColor = value
    71. Invalidate()
    72. End Set
    73. End Property
    75. Public Property SelectedBackColor As Color
    76. Get
    77. Return clrSelectedBackColor
    78. End Get
    79. Set(ByVal value As Color)
    80. clrSelectedBackColor = value
    81. Invalidate()
    82. End Set
    83. End Property
    85. Public Property BorderColor As Color
    86. Get
    87. Return clrBorderColor
    88. End Get
    89. Set(ByVal value As Color)
    90. clrBorderColor = value
    91. Invalidate()
    92. End Set
    93. End Property
    95. 'neusetzen verhindern
    96. <System.ComponentModel.Browsable(False), System.ComponentModel.EditorBrowsable(System.ComponentModel.EditorBrowsableState.Never)> _
    97. Public Overrides Property DrawMode As System.Windows.Forms.DrawMode
    98. Get
    99. Return MyBase.DrawMode
    100. End Get
    101. Set(ByVal value As System.Windows.Forms.DrawMode)
    102. MyBase.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    103. End Set
    104. End Property
    105. ''' <summary>
    106. ''' New
    107. ''' </summary>
    108. ''' <remarks></remarks>
    109. Public Sub New()
    110. DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
    111. ItemHeight = 100
    112. End Sub
    114. Private Sub ListControl_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
    115. Dim item As Object = Items(e.Index)
    116. If TypeOf item Is ListControlItem Then ' ist das Item ein ListControlItem (im anderen Code auf eine... interessante Art geloest)
    117. Dim current As ListControlItem = DirectCast(item, ListControlItem) ' Casten zum ListControlItem
    118. 'Rechteck, in dem gezeichnet werden soll (s. o.)
    119. Dim r As Rectangle = New Rectangle(e.Bounds.X + 1, e.Bounds.Y + 1, e.Bounds.Width - 3, e.Bounds.Height - 2)
    121. With e.Graphics
    122. Dim headerSize As Size
    123. Dim subtextSize As Size
    125. Dim elementBounds As Rectangle
    126. If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 'ist das Item angewaehlt
    127. .FillRectangle(New SolidBrush(SelectedBackColor), r) 'Hintergrund zeichnen
    128. .DrawRectangle(New Pen(New SolidBrush(SelectedBorderColor)), r) 'Rahmen zeichnen
    129. Else
    130. 'wozu was mit einem durchsichtigen Hintergrund fuellen?!! Wenn dann noch BackColor oder so
    131. '.FillRectangle(New SolidBrush(Color.Transparent), r) 'transparentes Rechteck drueberlegen (lol)
    132. .DrawRectangle(New Pen(New SolidBrush(BorderColor)), r) 'Rahmen zeichnen
    133. End If
    135. If current.Image IsNot Nothing Then 'Wenn ein Bild vorhanden wird (Kotz-Faktor nr 2)
    136. .DrawImage(current.Image, r.X + 5, r.Y + 5, 45, 45)
    137. Else
    138. 'einfach gar nix zeichnen?!!
    139. '.DrawIcon(Drawing.SystemIcons.Error, r.X + 5, r.Y + 5) 'oder halt ein Fehlericon zeichnen
    140. End If
    141. headerSize = Size.Ceiling(.MeasureString(current.Header, HeaderFont)) 'Groesse des Headers ermitteln
    142. elementBounds = New Rectangle(r.X + 60, r.Y + 5, ClientSize.Width - r.X - 60, headerSize.Height) 'Bereich des Headers
    143. 'eigentlich per TextRenderer-Klasse (siehe weiter unten)?
    144. .DrawString(current.Header, HeaderFont, New SolidBrush(HeaderColor), elementBounds) 'Header zeichnen (Top-Text oben)
    146. subtextSize = Size.Ceiling(.MeasureString(current.SubText, SubTextFont)) 'Groesse des Subtexts ermitteln
    147. elementBounds = New Rectangle(r.X + 60, r.Y + 25, ClientSize.Width - r.X - 60, 60 - subtextSize.Height - headerSize.Height)
    148. .DrawString(current.Content, Font, New SolidBrush(Me.ForeColor), elementBounds) 'Inhalt zeichnen (main content oben)
    150. elementBounds = New Rectangle(r.X + 60, r.Y + Me.ItemHeight - 20, Me.Width - r.X - 60, subtextSize.Height)
    151. .DrawString(current.SubText, SubTextFont, New SolidBrush(SubTextColor), elementBounds) 'Subtext zeichnen
    152. 'Falls ausgewaehlt und gewuenscht, ein Fokusrechteck zeichnen
    153. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    154. ControlPaint.DrawFocusRectangle(e.Graphics, r)
    155. End If
    156. End With
    157. ElseIf DrawDefaultItems Then 'von mir eingefuehrte Eigenschaft, die es dem User ermoeglicht, nicht speziell behandelte Items ohne eigene Zeichenprozedur zu zeichnen
    158. e.DrawBackground()
    159. TextRenderer.DrawText(e.Graphics, GetItemText(item), Font, e.Bounds, ForeColor) 'hier ein BSP fuer den TextRenderer
    160. If (e.State And (DrawItemState.Focus Or DrawItemState.NoFocusRect)) = DrawItemState.Focus Then
    161. e.DrawFocusRectangle()
    162. End If
    163. End If
    164. End Sub
    166. Public Class ListControlItem
    167. Private ReadOnly imgImage As Image
    168. Private ReadOnly strHeader As String
    169. Private ReadOnly strContent As String
    170. Private ReadOnly strSubText As String
    172. Public ReadOnly Property Image As Image
    173. Get
    174. Return imgImage
    175. End Get
    176. End Property
    178. Public ReadOnly Property Header As String
    179. Get
    180. Return strHeader
    181. End Get
    182. End Property
    184. Public ReadOnly Property Content As String
    185. Get
    186. Return strContent
    187. End Get
    188. End Property
    190. Public ReadOnly Property SubText As String
    191. Get
    192. Return strSubText
    193. End Get
    194. End Property
    195. ''' <summary>
    196. ''' ...
    197. ''' </summary>
    198. ''' <param name="image"></param>
    199. ''' <param name="header"></param>
    200. ''' <param name="content"></param>
    201. ''' <param name="subText"></param>
    202. ''' <remarks></remarks>
    203. Public Sub New(ByVal image As Image, ByVal header As String, ByVal content As String, ByVal subText As String)
    204. imgImage = image
    205. strHeader = header
    206. strContent = content
    207. strSubText = subText
    208. End Sub
    209. End Class
    213. End Class
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Zeile 203 wird von Zeile 107 aus aufgerufen.
    Die Zeilennummern im Bild stimmen nicht mit den Zeilennummern im Post überein :!:
    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!

    wie kann man das dann fixxen?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Ich hab mal den letzten Code bei mir reingezogen, das läuft.
    Was für eine Studio-Version hast Du?
    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