Erstmal Frohes Neus 2017.....!!
Vielen Dank für die Antwort....hat gekplappt....!
jetzt würde ich gerne für diese zwei unterschiedliche dateien ein image zuweisen.
die dateien haben eine endung mit "test.eia" und "test.prg", diese sollen in eine listview zugewiesn werden.
für .eia ein image und für .prg auch sein eigenen image, habe das so gemacht, leider ohne erfolg
Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader
e.DrawDefault = True
End Sub
Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem
Using txtbrsh As New SolidBrush(e.SubItem.ForeColor)
If ListView1.SelectedIndices.Contains(e.ItemIndex) And ListView1.Focused Then
e.Graphics.FillRectangle(New SolidBrush(Color.FromKnownColor(KnownColor.Highlight)), e.Bounds)
txtbrsh.Color = Color.White
End If
If e.Item.SubItems(1) Is e.SubItem Then
e.DrawDefault = False
Using sf As New StringFormat With {.Alignment = StringAlignment.Near, .LineAlignment = StringAlignment.Center, .FormatFlags = StringFormatFlags.NoWrap, .Trimming = StringTrimming.EllipsisCharacter}
If e.SubItem.Text = "TNr." Then
e.Graphics.DrawImage(ImgList1.Images(0), e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height)
End If
Dim rb As New Rectangle(e.Bounds.X + e.Bounds.Height, e.Bounds.Y, e.Bounds.Width - e.Bounds.Height, e.Bounds.Height)
e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, txtbrsh, rb, sf)
End Using
Else
e.DrawDefault = True
End If
End Using
If e.ColumnIndex = 1 Then
If e.SubItem.Text = ".eia" Then
Dim im As Image = My.Resources.index_1
Dim location As Point = Me.ListView1.Items(e.ItemIndex).SubItems(e.ColumnIndex).Bounds.Location
e.Graphics.DrawImage(im, location)
e.DrawFocusRectangle(Me.ListView1.Items(e.ItemIndex).SubItems(e.ColumnIndex).Bounds)
Elseif e.SubItem.Text = ".prg" Then
Dim im As Image = My.Resources.index_2
Dim location As Point = Me.ListView1.Items(e.ItemIndex).SubItems(e.ColumnIndex).Bounds.Location
e.Graphics.DrawImage(im, location)
e.DrawFocusRectangle(Me.ListView1.Items(e.ItemIndex).SubItems(e.ColumnIndex).Bounds)
End If
End If
End Sub
