Listview Zeilenumbruch

zigras · 23. Januar 2017, 11:15

Hallo Leute,

im Vorfeld möchte ich betonen, dass ich absoluter VB.Net Anfänger bin.

Ich habe eine Datenbankabfrage in ein Listview Element geladen und würde gerne bei der Spalte "bezeichnung" sobald der Inhalt an das Spaltenende gerät, einen Zeilenumbruch erreichen. Wie kann ich das am einfachsten erreichen? Einen kleinen Codeauszug hängt dem Thread bei.

Bin über jede Hilfe sehr dankbar!

Lg, Zigras

EDIT: Das übergroße Bild habe ich gelöscht. Code gehört in Code-Tags. Das erleichtert es den Nutzern dir zu helfen unvermeidet unnötigen Trafic. ~fufu

VB1963 · 23. Januar 2017, 14:07

Schaue einmal hier: Wie füge ich Quellcode richtig hier im Forum ein
Nimm statt einer ListView ein DataGridView - die kann es...
gssg.de/net_dgvwwrap.htm

zigras · 23. Januar 2017, 15:02

Danke für deine Nachricht! Also geht es mit einen Listview Element gar nicht? Falls doch würde mich die Lösung ziemlich interessieren. Muss auch keine schöne Lösung sein

VB1963 · 23. Januar 2017, 15:39

zigras schrieb:

Also geht es mit einen Listview Element gar nicht?

nicht ganz so einfach...
schaue einmal da: Mehrzeilige Listeneinträge mit Listbox/Listview

ErfinderDesRades · 23. Januar 2017, 19:25

zigras schrieb:

dass ich absoluter VB.Net Anfänger bin

Also das erste - hat garnix mit deim Problem zu tun - wäre: Visual Studio - Empfohlene Einstellungen
Ist unumgänglich, wenn du mit Vb.Net weiter machen willst.

Als nächstes würde ich raten: lass erstmal die Finger von Datenbanken. Vb.Net ganz fantastische Konzepte zur Unterstützung von Datenbank-Anwendungen - aber wenn man falsch anfängt - so wie du - dann kommt man nie Leben drauf, wie's wirklich geht.

Aber wie gesagt: Vordringlich ist erstmal Visual Studio - Empfohlene Einstellungen - ohne das ist Vb.Net überhaupt keine ernstzunehmende Programmiersprache.

mrMo · 23. Januar 2017, 19:33

Auch wenn es dir bei deiner Frage nicht weiter hilft:
Lagere Datenbank Zugriffe in eine separate Klasse aus. Die haben in der GUI nix zu suchen -> Oder allgemeiner: Trenne Business Logik von der GUI

zigras · 25. Januar 2017, 13:13

Sry das ich erst jetzt antworte und das ich das Bild angehängt hatte(habe auf dem Rechner kein Internetzugriff).

Danke für die Hilfestellungen, allerdings brauche ich das wie beschrieben in einem Listview Element und mit dem Link zu "Mehrzeilige Listeneinträge mit Listbox/Listview" werde ich nicht schlau. Kenne mich da leider noch nicht gut genug aus.

Eure Tipps neben dem Thema werde ich mir natürlich für die Zukunft zu Herzen nehmen, danke auch dafür!

ErfinderDesRades · 25. Januar 2017, 18:33

Zum Posten von Bildern oder Code mag das hier helfen:

Forum-Funktionalität – Klick mich!

Ansonsten verläuft (für mich jdfs.) deine Frage grad im Sande.
ListView ist sehr schlecht geeignet für Datenverarbeitung, und bevor du nicht Visual Studio - Empfohlene Einstellungen umgesetzt hast, braucht man eh nicht weiter zu diskutieren.
Aber auch dann wirds mühsam, weil dein Anliegen ist (mit Databinding) eiglich ein trivialer Standardfall, nur muss man um es zu lösen einen Minimum-State-Of-Art kennen.
Und bis dahin ist für dich vmtl. noch ein gut Stück Weg.

zigras · 26. Januar 2017, 10:14

Ja das stimmt, davon habe ich keinen plan.

Wäre es vllt. möglich, das ganze erst beim Drucken geschehen zu lassen? Ich habe einen Code zum drucken aus dem Internet kopiert, den ich leider noch nicht so ganz verstehe:

VB.NET-Quellcode

con.Open()
reader = cmd.ExecuteReader()
Dim i As Integer = 0
Do While reader.Read() And i <= 19
With lvListe.Items
Dim item As ListViewItem
item = .Add(reader("id"))
item.SubItems.Add(reader("werkzeugnr"))
item.SubItems.Add(reader("kundenkuerzel"))
item.SubItems.Add(reader("bezeichnung"))
item.SubItems.Add(reader("dverbrauchpt"))
item.SubItems.Add(reader("lagerortid"))
i += 1
End With
Loop
lvListe.GridLines = True
reader.Close()
con.Close()
PrintDocument1.DefaultPageSettings.Landscape = True
End Sub
Private Sub cmdDrucken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDrucken.Click
Dim PrintPreview As New PrintPreviewDialog
PrintPreview.Document = PrintDocument1
PrintPreview.ShowDialog()
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
If lvListe.View = View.Details Then
PrintDetails(e)
End If
End Sub
Private Sub PrintDetails(ByRef e As System.Drawing.Printing.PrintPageEventArgs)
Static LastIndex As Integer = 0
Static CurrentPage As Integer = 0
Dim DpiGraphics As Graphics = Me.CreateGraphics
Dim DpiX As Integer = DpiGraphics.DpiX
Dim DpiY As Integer = DpiGraphics.DpiY
DpiGraphics.Dispose()
Dim X, Y As Integer
Dim ImageWidth As Integer
Dim TextRect As Rectangle = Rectangle.Empty
Dim TextLeftPad As Single = CSng(0 * (DpiX / 1))
Dim ColumnHeaderHeight As Single = CSng(lvListe.Font.Height + (0 * (DpiX / 1)))
Dim StringFormat As New StringFormat
Dim PageNumberWidth As Single = e.Graphics.MeasureString(CStr(CurrentPage), lvListe.Font).Width
StringFormat.FormatFlags = StringFormatFlags.NoWrap
StringFormat.Trimming = StringTrimming.EllipsisCharacter
StringFormat.LineAlignment = StringAlignment.Near
CurrentPage += 1
X = CInt(e.MarginBounds.X)
Y = CInt(e.MarginBounds.Y)
For ColumnIndex As Integer = 0 To lvListe.Columns.Count - 1
TextRect.X = X
TextRect.Y = Y
TextRect.Width = lvListe.Columns(ColumnIndex).Width
TextRect.Height = ColumnHeaderHeight
e.Graphics.FillRectangle(Brushes.LightGray, TextRect)
e.Graphics.DrawRectangle(Pens.DarkGray, TextRect)
TextRect.X += TextLeftPad
TextRect.Width -= TextLeftPad
e.Graphics.DrawString(lvListe.Columns(ColumnIndex).Text, lvListe.Font, Brushes.Black, TextRect, StringFormat)
X += TextRect.Width + TextLeftPad
Next
Y += ColumnHeaderHeight
For i = LastIndex To lvListe.Items.Count - 1
With lvListe.Items(i)
X = CInt(e.MarginBounds.X)
If Y + .Bounds.Height > e.MarginBounds.Bottom Then
LastIndex = i - 1
e.HasMorePages = True
StringFormat.Dispose()
e.Graphics.DrawString(CStr(CurrentPage), lvListe.Font, Brushes.Black, (e.PageBounds.Width - PageNumberWidth) / 2, e.PageBounds.Bottom - lvListe.Font.Height * 2)
Exit Sub
End If
ImageWidth = 0
If lvListe.SmallImageList IsNot Nothing Then
If Not String.IsNullOrEmpty(.ImageKey) Then
e.Graphics.DrawImage(lvListe.SmallImageList.Images(.ImageKey), X, Y)
ElseIf .ImageIndex >= 0 Then
e.Graphics.DrawImage(lvListe.SmallImageList.Images(.ImageIndex), X, Y)
End If
ImageWidth = lvListe.SmallImageList.ImageSize.Width
End If
For ColumnIndex As Integer = 0 To lvListe.Columns.Count - 1
TextRect.X = X
TextRect.Y = Y
TextRect.Width = lvListe.Columns(ColumnIndex).Width
TextRect.Height = .Bounds.Height
If lvListe.GridLines Then
e.Graphics.DrawRectangle(Pens.DarkGray, TextRect)
End If
If ColumnIndex = 0 Then TextRect.X += ImageWidth
TextRect.X += TextLeftPad
TextRect.Width -= TextLeftPad
If ColumnIndex < .SubItems.Count Then
e.Graphics.DrawString(.SubItems(ColumnIndex).Text, lvListe.Font, Brushes.Black, TextRect, StringFormat)
End If
X += TextRect.Width + TextLeftPad
Next
Y += .Bounds.Height
End With
Next
e.Graphics.DrawString(CStr(CurrentPage), lvListe.Font, Brushes.Black, (e.PageBounds.Width - PageNumberWidth) / 2, e.PageBounds.Bottom - lvListe.Font.Height * 2)
StringFormat.Dispose()
LastIndex = 0
CurrentPage = 0
End Sub
End Class

Habt ihr vllt. auch einen einfachere Lösung zum drucken? Muss nicht so detailliert sein(mehrere Seiten, Zoom, Seitenauswahl). Soll nur im Querformat sein und eine Preview wäre zudem noch schön.

Hab keine gute Anleitung im Internet gefunden, nur ellenlange Codes die irgendwie nicht funktioniert haben.

ErfinderDesRades · 26. Januar 2017, 17:10

wie ich sehe, proggst du immer noch Strict Off.
Wie gesagt, in weiterführende Diskussionen braucht man da garnet erst einzusteigen.

Zumal du auch ohne Bezug von einer Frage auf die andere wechselst - da weiss ich grad gar nimmer, was eiglich gefragt ist.

Listview Zeilenumbruch

Listview Zeilenumbruch

zigras schrieb:

zigras schrieb:

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben