|
| |
 | In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.
Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden! |
Fragen zu Tipps & Tricks und Workshops im vb@rchiv| Tipp 1473: ListView-Inhalt drucken (VB 2005) | |  | | Autor: TanjaK |  Tipp anzeigenDatum: 09.07.08 10:56 |
| Hallo,
ich finde den Tip "ListView-Inhalt drucken" echt super. Das ist genau das was ich gesucht habe. Allerdings fehlt mir beim Inhalt drucken noch eine Kleinigkeit. Ich weise meinem zu druckenden Listview über eine Imagelist in der ersten Spalte pro Zeile ein Bild zu. Leider werden diese Bilder nicht mitgedruckt. Weiß vielleicht jemand, wie man das Drucken der Bilder noch mit einbauen kann?
LG Tanja | |
| Re: ListView-Inhalt drucken (VB 2005) | | | | Autor: TanjaK | | Datum: 15.07.08 09:20 |
| Hallo,
das wär ja super, wenn Du das machen würdest. Das Problem ist nämlich, dass die Bilder in meiner Verwaltung eine elementare Rolle spielen, und auf den Ausdrucken nicht fehlen dürfen.
Ich kann hier ja leider keine komplette Programm Datei ablegen, deshalb habe ich mal versucht den Code auf verständliche Weise zusammen zuraffen, ich hoffe es ist ersichtlich, wie ich das meine. Ich habe nur den interessanten Teil heraus kopiert.
Kurze Erklärung: Ich habe ein Listview, dass mit Daten aus einer Datarow gefüllt werden. Die wiederum bekommt die Daten aus einer Datatable. Nun werden die Daten aus der Datarow in das Listview geschrieben. Es handelt sich hier um Figuren, dessen Daten in dem Listview dargestellt werden. Dazu suche ich mir die Bilder auf Vorrat zusammen und packe diese in die Imagelists Small und Large (damit man auf einfache Weise bei Umstellung der Listview-Ansicht große und kleine Bilder hat). Und wenn der Inhalt des feldes Figurenbezeichnung ins Listview eingetragen wird, gebe ich den Index des Bildes des Imagelist mit an. Mann kann dann das Listview umschalten, ob man sich seine Figuren Sammlung als Detail-Ansicht mit kleinen Bildern anschaut, oder als Liste mit großen oder kleinen Symbolen. So wie im Windows-Explorer. Und bei den Ausdrucken sollen dann auch immer die Fotos mit drauf sein.
Dein Programmcode war hier zu finden: http://www.vbarchiv.net/tipps/tipp_1473.html
Vielen Dank schon mal, ich hoffe Du kannst damit was anfangen
Tanja
' Dim drw, drwChildRows(), drwChildRow As DataRow
' drw = tbKategorien.Rows.Find(tvNode.Tag.ToString.Substring(1)) --> Die
' DataRow wird aus einer Datatable gefüllt
'ListView füllen
ListView1.Clear()
ListView1.HeaderStyle = ColumnHeaderStyle.Clickable
colBez = ListView1.Columns.Add("Bezeichnung", 200, HorizontalAlignment.Left)
ListView1.Columns.Add("Zubehör", 140, HorizontalAlignment.Left)
ListView1.Columns.Add("Bemerkung", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Anzahl", 60, HorizontalAlignment.Right)
ListView1.Columns.Add("Wert", 60, HorizontalAlignment.Right)
ImageListSmall.Images.Clear()
ImageListLarge.Images.Clear()
ImageListSmall.Images.Add("0", My.Resources.picKeinBild)
ImageListLarge.Images.Add("0", My.Resources.picKeinBild)
drwChildRows = drw.GetChildRows("Serien_Element")
For Each drwChildRow In drwChildRows
' ImageLists füllen
Try
ImageListSmall.Images.Add(drwChildRow!elementnr.ToString, _
Image.FromFile(My.Resources.PfadBilderordner & "\" & _
drwChildRow!katnr.ToString & "\" & drwChildRow!bild.ToString))
ImageListLarge.Images.Add(drwChildRow!elementnr.ToString, _
Image.FromFile(My.Resources.PfadBilderordner & "\" & _
drwChildRow!katnr.ToString & "\" & drwChildRow!bild.ToString))
Catch ex As Exception
End Try
'ListView füllen
Dim lstItem As ListViewItem
If ImageListSmall.Images.ContainsKey(drwChildRow!elementnr.ToString) Then
lstItem = ListView1.Items.Add(drwChildRow!Bez.ToString, _
drwChildRow!elementnr.ToString)
Else
lstItem = ListView1.Items.Add(drwChildRow!Bez.ToString, "0")
End If
lstItem.Tag = drwChildRow!SerienNr
lstItem.SubItems.Add(drwChildRow!zubehör.ToString)
lstItem.SubItems.Add(drwChildRow!Bemerkung.ToString)
lstItem.SubItems.Add(drwChildRow!anzahl.ToString)
lstItem.SubItems.Add(drwChildRow!wert.ToString("c"))
Next | |
| Re: ListView-Inhalt drucken (VB 2005) | | | | Autor: timee | | Datum: 01.03.09 16:22 |
| Ich hab eine Klasse PrintListView erstellt und dort den angegebenen Code eingefügt.
In meiner Form habe ich in den Button_Print_Click die Methode PrintListView.Print() eingefügt.
Wenn ich jedoch nun auf diesen Button klicke, bekomme ich einen Fehler in der PrintListView Klasse im Bereich "Header erstellen".
' Header schreiben
Do
rf = New Rectangle(PosX, PosY, SpaltenBreite(OffsetSpalte + _
MerkerSpalte), TextHöhe)
e.Graphics.FillRectangle(New SolidBrush(HeaderColor), rf)
If LV.GridLines Then e.Graphics.DrawRectangle(Pens.Black, rf.X, _
rf.Y, rf.Width, rf.Height)
e.Graphics.DrawString(LV.Columns(OffsetSpalte + MerkerSpalte).Text, _
LV.Font, Brushes.Black, rf, sf)
PosX += SpaltenBreite(OffsetSpalte + MerkerSpalte)
OffsetSpalte += 1
Loop Until PageWidth + left < PosX + SpaltenBreite(OffsetSpalte + _
MerkerSpalte) Or OffsetSpalte + MerkerSpalte > LV.Columns.Count - 1In der Zeile "rf = New Rectangle(PosX,..." bekomme ich die Meldung:
"{"Der Index lag außerhalb des Bereichs. Er muss nicht negativ und kleiner als die Auflistung sein.
Parametername: index"}"
Mein ListView besteht aus 5 Spalten und etwa 20 Zeilen
THX
Timee | |
| Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
Mai 2024
Sie sind aktuell nicht angemeldet.
