[vb2008] Printen Listview ook van Icons?

Status
Niet open voor verdere reacties.

Dummy1912

Gebruiker
Lid geworden
26 mrt 2010
Berichten
362
Hallo,

iemand die me kan helpen aub
ik heb een code voor een listview te printen
maar het probleem is dat hij de icons niet mee print.
En heb dit nog nooit moeten testen tot nu :(
ik kan vanalles toevoegen zoals een kleur enzo maar zou niet weten hoe ik deze moet oplossen.

please anyone?


Code:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        'Headings   
        currentY = 100
        For Each c In lstView.Columns
            maxY = Math.Max(maxY, g.MeasureString(c.Text, f, c.Width).Height)
            colLefts(idx) = l
            colWidths(idx) = c.Width
            lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
           
            If lr.Width > 0 Then g.DrawString(c.Text, f, b, lr)
            l += c.Width
            idx += 1
        Next
        currentY += maxY + gap
        g.DrawLine(Pens.Black, 0, currentY, e.PageBounds.Width, currentY)
        currentY += gap
        'Rows   
        iCount = lstView.Items.Count - 1

            l = 0
            maxY = 0
            idx = 0
            For Each lvsi In lstView.Items(ii).SubItems
                maxY = Math.Max(maxY, g.MeasureString(lvsi.Text, f, colWidths(idx)).Height)
                lr = New RectangleF(colLefts(idx), currentY, colWidths(idx), maxY)
                If lr.Width > 0 Then g.DrawString(lvsi.Text, f, b, lr)
                idx += 1
            Next
            currentY += maxY + gap
        Next

Dummy1912
 

Bijlagen

  • ScreenShot00044.png
    ScreenShot00044.png
    3,2 KB · Weergaven: 49
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan