Zufällig erstellte ListView drucken - Argument out of range exception-Fehler

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von Filmer.

    Zufällig erstellte ListView drucken - Argument out of range exception-Fehler

    Liebes Forum,

    ich versuche nun schon seit längerer Zeit, eine "zufällig" (das heißt eine immer unterschiedlich lange) ListView auszudrucken. Alle Codes, die ich bis jetzt im Internet gefunden habe, funktionieren bei mir leider nicht.
    Dann habe ich folgenden Code gefunden:
    Einmal ein Class-Modul:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. Public Class PrintListView
    5. Private LV As ListView
    6. Private SpaltenBreite As New List(Of Integer)
    7. Private TextHöhe As Integer
    8. Private OffsetSpalte As Integer
    9. Private OffsetZeile As Integer
    10. Private MerkerSpalte As Integer
    11. Private MerkerZeile As Integer
    12. Public HeaderColor As System.Drawing.Color = Color.LightGray
    13. Private WithEvents PD As New System.Drawing.Printing.PrintDocument
    14. Private PrintPrev As New System.Windows.Forms.PrintPreviewDialog
    15. Private asc As SizeColumn = SizeColumn.None
    17. Public Enum SizeColumn
    18. None
    19. ScretchColumn
    20. AutoSitze
    21. End Enum
    23. Public Property AutoSizeColumn() As SizeColumn
    24. Get
    25. Return asc
    26. End Get
    27. Set(ByVal value As SizeColumn)
    28. asc = value
    29. SizeColums()
    30. End Set
    31. End Property
    33. Public Property Landscape() As Boolean
    34. Get
    35. Return PD.DefaultPageSettings.Landscape
    36. End Get
    37. Set(ByVal value As Boolean)
    38. PD.DefaultPageSettings.Landscape = value
    39. SizeColums()
    40. End Set
    41. End Property
    43. Private Sub SizeColums()
    44. Dim breite As Integer
    45. Dim g As Graphics = LV.CreateGraphics
    46. Dim zähler As Integer
    48. SpaltenBreite.Clear()
    49. Select Case asc
    50. Case SizeColumn.None, SizeColumn.ScretchColumn
    51. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    52. SpaltenBreite.Add(CH.Width)
    53. Next
    54. Case SizeColumn.AutoSitze, SizeColumn.ScretchColumn
    55. If asc = SizeColumn.AutoSitze Then
    56. For Each CH As Windows.Forms.ColumnHeader In LV.Columns
    57. breite = g.MeasureString(CH.Text, LV.Font).Width + 20
    58. SpaltenBreite.Add(breite)
    59. Next
    60. End If
    61. For Each LVI As ListViewItem In LV.Items
    62. zähler = 0
    63. breite = g.MeasureString(LVI.Text, LV.Font).Width + 20
    64. If asc = SizeColumn.AutoSitze Then SpaltenBreite.Add(breite)
    65. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    66. For Each LVSI As ListViewItem.ListViewSubItem In LVI.SubItems
    67. breite = g.MeasureString(LVSI.Text, LV.Font).Width + 20
    68. If SpaltenBreite(zähler) + 20 < breite Then SpaltenBreite(zähler) = breite
    69. zähler += 1
    70. Next
    71. Next
    72. End Select
    73. End Sub
    75. Public Sub New()
    76. End Sub
    78. Public Sub New(ByVal ListViewToPrint As ListView)
    79. LV = ListViewToPrint
    80. Dim g As Graphics = LV.CreateGraphics
    81. TextHöhe = g.MeasureString("XyZ1!", LV.Font).Height + 5
    82. SizeColums()
    83. SpaltenBreite.Add(0)
    84. g.Dispose()
    85. End Sub
    87. Public Sub Print()
    88. PD.Print()
    89. End Sub
    91. Public Sub Preview()
    92. PrintPrev.Document = PD
    93. PrintPrev.WindowState = FormWindowState.Maximized
    94. PrintPrev.ShowDialog()
    95. End Sub
    97. Private Sub PD_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PD.PrintPage
    98. e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
    99. e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
    101. Dim left As Decimal = PD.DefaultPageSettings.Margins.Left
    102. Dim right As Decimal = PD.DefaultPageSettings.Margins.Right
    103. Dim top As Decimal = PD.DefaultPageSettings.Margins.Top
    104. Dim bottom As Decimal = PD.DefaultPageSettings.Margins.Bottom
    105. Dim PageWidth As Integer = PD.DefaultPageSettings.Bounds.Width - (right + left)
    106. Dim PageHeight As Decimal = PD.DefaultPageSettings.Bounds.Height - (top + bottom)
    107. Dim sf As New StringFormat
    109. sf.Alignment = StringAlignment.Near
    110. sf.LineAlignment = StringAlignment.Center
    112. Dim rf As New Rectangle
    113. Dim br As SolidBrush
    114. Dim br1 As SolidBrush
    115. Dim PosX As Integer = left
    116. Dim PosY As Integer = top
    117. Dim OffsetSpalte As Integer
    118. Dim OffsetZeile As Integer
    120. ' Header schreiben
    121. Do
    122. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    123. e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
    124. If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, rf.Y, rf.Width, rf.Height)
    125. e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, LV.Font, Brushes.Black, rf, sf)
    126. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    127. OffsetSpalte += 1
    128. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1
    130. PosX = left
    131. OffsetSpalte = 0
    132. OffsetZeile = 0
    133. Do
    134. OffsetZeile = 0
    135. PosY = top + TextHöhe
    136. Do
    137. If (LV.Items(OffsetZeile + MerkerZeile).SubItems.Count > OffsetSpalte + MerkerSpalte) Then
    138. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    139. If LV.Items(OffsetZeile + MerkerZeile).UseItemStyleForSubItems = True Then
    140. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).BackColor)
    141. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).ForeColor)
    142. Else
    143. br = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).BackColor)
    144. br1 = New SolidBrush(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).ForeColor)
    145. End If
    146. e.Graphics.FillRectangle(br, rf)
    147. If LV.GridLines Then e.Graphics.DrawRectangle(New Pen(LV.ForeColor), rf)
    149. Select Case LV.Columns(OffsetSpalte + MerkerSpalte).TextAlign
    150. Case HorizontalAlignment.Center
    151. sf.Alignment = StringAlignment.Center
    152. Case HorizontalAlignment.Left
    153. sf.Alignment = StringAlignment.Near
    154. Case HorizontalAlignment.Right
    155. sf.Alignment = StringAlignment.Far
    156. End Select
    157. e.Graphics.DrawString(LV.Items(OffsetZeile + MerkerZeile).SubItems(OffsetSpalte + MerkerSpalte).Text, LV.Font, br1, rf, sf)
    158. End If
    160. PosY += TextHöhe
    161. OffsetZeile += 1
    162. Loop Until PageHeight + top < PosY + TextHöhe Or OffsetZeile + MerkerZeile >= LV.Items.Count
    164. PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
    165. OffsetSpalte += 1
    166. Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + MerkerSpalte) Or OffsetSpalte + MerkerSpalte >= LV.Columns.Count
    168. If OffsetSpalte + MerkerSpalte = LV.Columns.Count And OffsetZeile + MerkerZeile = LV.Items.Count Then
    169. e.HasMorePages = False
    170. MerkerZeile = 0
    171. MerkerSpalte = 0
    172. OffsetSpalte = 0
    173. OffsetZeile = 0
    174. Exit Sub
    175. End If
    177. If OffsetZeile + MerkerZeile < LV.Items.Count Then
    178. MerkerZeile = OffsetZeile + MerkerZeile
    179. e.HasMorePages = True
    180. Exit Sub
    181. End If
    183. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    184. MerkerSpalte = OffsetSpalte + MerkerSpalte
    185. MerkerZeile = 0
    186. e.HasMorePages = True
    187. Exit Sub
    188. End If
    189. End Sub
    190. End Class


    Und der zugehörige Form-Code:

    VB.NET-Quellcode

    1. Private PrintListView As New WindowsApplication1.PrintListView
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. ' Listview mit "Daten" füllen...
    5. ListView1.View = View.Details
    7. Dim x As Integer
    8. Dim y As Integer
    10. For x = 0 To 15
    11. ListView1.Columns.Add("Spalte" & x.ToString)
    12. Next
    14. ListView1.Columns(5).TextAlign = HorizontalAlignment.Right
    15. ListView1.Columns(5).Width = 200
    17. For y = 0 To 40
    18. ListView1.Items.Add("Zeile" & y.ToString & " / Spalte1")
    19. If y Mod 2 = 0 Then ListView1.Items(y).BackColor = Color.LightGray
    20. For x = 1 To 15
    21. ListView1.Items(y).SubItems.Add("Zeile" & y.ToString & " / Spalte" & x.ToString)
    22. Next
    23. Next
    25. ListView1.Items(3).ForeColor = Color.Blue
    26. ListView1.Items(7).UseItemStyleForSubItems = False
    27. ListView1.Items(7).SubItems(1).ForeColor = Color.Red
    29. ListView1.GridLines = True
    31. PrintListView = New WindowsApplication1.PrintListView(ListView1)
    32. PrintListView.AutoSizeColumn = PrintListView.SizeColumn.AutoSitze
    33. PrintListView.HeaderColor = Color.LightBlue
    34. End Sub
    36. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. ' Vorschau anzeigen.... und drucken...
    38. PrintListView.Preview()
    39. End Sub
    41. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    42. ' ohne Vorschau drucken
    43. PrintListView.Print()
    44. End Sub


    Mit diesem Beispiel funktioniert alles wunderbar. Doch sobald ich den "Form-Load"-Teil raus nehme und meine eigene ListView drucken möchte, kommt der Fehler "Argument out of range exception", welcher sich im Class-Code auf "rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)" (Zeile 138) bezieht.

    Bevor jetzt diverse Sätze kommen wie "Nutze die Suchfunktion"; das habe ich bereits gemacht, allerdings ohne Erfolg. Auch Google hat mir nicht wirklich weitergeholfen. :(

    Ich hoffe, ihr könnt mir helfen.

    Vielen Dank im Voraus,
    Filmer

    Willkommen im Forum. :thumbup:

    Filmer schrieb:

    Doch sobald ich den "Form-Load"-Teil raus nehme und meine eigene ListView drucken möchte
    Was genau muss ich tun, um dies nachzuvollziehen?
    Aus dieser Zeile werde ich nicht schlau:

    VB.NET-Quellcode

    1. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    Gib bitte Deinem Projekt Option Strikt On und korrigiere die Fehler, die da angezeigt werden.
    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!

    Danke :)
    Also wenn das Projekt lädt, füllt es die ListView automatisch mit Inhalt. Das wollte ich unterbinden, weil in der ListView meine eigenen Werte stehen sollten. Deswegen habe ich diesen Teil gelöscht (bzw. in einem anderen Versuch die Auto-Füllen-Funktion auf einen Button verlegt, was auch super klappt).
    Beim "Option Strikt On" passiert auch nichts. Es kommt nur die selbe Fehlermeldung.

    Was

    VB.NET-Quellcode

    1. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then

    bedeutet, ändert, etc. weiß ich leider auch nicht. Da ich noch relativ am Anfang von Visual Basic stehe, war ich froh, diesen Code im Internet gefunden zu haben.

    VB.NET-Quellcode

    1. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    Mach mal das und poste mal bitte die beiden letzten Werte, die vor der Fehlermeldung auftreten

    VB.NET-Quellcode

    1. MessageBox.Show((OffsetSpalte + MerkerSpalte).ToString)
    2. MessageBox.Show((SpaltenBreite.Count - 1).ToString)
    3. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)



    VB.NET-Quellcode

    1. If MerkerSpalte = OffsetSpalte < LV.Columns.Count Then
    Da ist eindeutig irgendwas schief gegangen, versuch mal, entweder das "=" oder das "<" durch verschiedene Rechenoperationen zu ersetzen (plus, minus, mal, geteilt).

    VB.NET-Quellcode

    1. rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „nafets3646“ ()

    Die Werte sind "0" und "-1" wenn ich selbst zwei Werte hinein schreibe und beim Auto-Füllen "0", "58", "1", "58", "2", "58", "3", "58", ...
    Vielleicht sollte ich noch sagen, dass es funktioniert, wenn ich die Liste automatisch füllen lasse und zusätzlich meine eigenen Werte eintrage.
    Mit plus, minus, ... hat es leider auch nicht geholfen.

    Ok, jetzt versteh ich nichts mehr :(
    Wenn du ein Objekt mit dem Index 16 (das wäre die logische nächste Abfrage, die dann den Fehler wirft) in einer List abfragst, die bis Index 58 geht, kann es doch keine ArgumentOutOfRangeException geben??? Oder ich suche den Fehler an der falschen Stelle. Bei welchem Argument wird denn die Fehlermeldung ausgespuckt?

    Nein, bei dem "17" "58" kommt keine Fehlermeldung. Das ist die Liste, die sich automatisch füllt und auch funktioniert. Wenn ich selbst mittels zweier Textboxen Werte eintrage, geben die MessageBoxen die Werte "0" und "-1" aus. Dann kommt die Fehlermeldung.

    @Filmer: Dein Programm knallt, wenn die List(Of T) Spaltenbreite keine Elemente zur Anzeige hat.
    Eine leere Tabelle hat keine Spalten, Du greifst jedoch auf den Index 0 zu:

    VB.NET-Quellcode

    1. rf = New RectangleF(PosX, PosY, SpaltenBreite(OffsetSpalte + MerkerSpalte), TextHöhe)
    Du solltest die Sub PD_PrintPage() verlassen ohne etwas zu tun, wenn keine Spalten da sind.
    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!

    Filmer schrieb:

    Sollte ich eine Ture/False-Abfrage einfügen?
    Genau, etwa so:

    VB.NET-Quellcode

    1. If SpaltenBreite.Count = 0 Then
    2. Return
    3. End If
    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!

    Ich habe diese jetzt direkt an den Anfang der Sub PD_PrintPage() gesetzt. Die Fehlermeldung ist weg! Vielen Dank!
    :)
    Allerdings wird in der Seitenvorschau nichts angezeigt, obwohl ich Werte eingegeben habe. Was muss ich jetzt noch ändern?

    Filmer schrieb:

    Was muss ich jetzt noch ändern?
    Du musst Deinen Code mal ordentlich debuggen, setz einen Haltepunkt rein und verfolge, was passiert, wenn Du ihn schrittweise abarbeitest.
    Verhält sich der Code anders als es Dir vorschwebt, hast Du einen Fehler gefunden.
    Du musst Dich für jede einzelne Zeile Deines Codes davon überzeugen, dass sie so arbeitet, wie sie es soll.
    Eine nicht getestete Zeile Code ist falsch.
    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!

    So, ich habe zuerst versucht, den Code zu debuggen, wie RodFromGermany es vorgeschlagen hat. Allerdings habe ich nach kurzer Zeit aufgegeben. Dann kam mir aber eine Idee: Ich sag dem Code, dass er die ListView mit 0 Spalten und 0 Zeilen füllen soll. Das klappte natürlich nicht.
    Also habe ich am Ende des Auto-Füllen-Codes ein "ListView1.Items.Clear()" gesetzt, dann die Spaltenanzahl von 15 auf meine benötigten 6 heruntergesetzt und im Klassenmodul den Codeteil "SpaltenBreite.Clear()" gelöscht, damit meine eigenen Spaltenbreiten erhalten bleiben, was allerdings noch nicht so optimal funktioniert :huh: :)

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

Facebook
Telefonspende