'Beispiel: VB .Net - ListView - Eintraege und Grafiken zur Laufzeit hinzufuegen ' Option Explicit On Option Strict On Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .Text = "ListView - Eintraege und Grafiken zur Laufzeit hinzufuegen" .CenterToScreen() .RadioButton1.Checked = True .Button1.Text = "Eintragen..." .Label1.Text = "Name:" .Label2.Text = "Information:" .RadioButton1.Text = "Maennlich:" .RadioButton2.Text = "Weiblich:" End With Me.InitListView(Me.ListView1) End Sub Private il As ImageList = New ImageList Private Sub InitListView(ByVal lv As ListView) With lv .View = View.Details .Width = 600 With lv.Columns .Add("Geschlecht", 200, HorizontalAlignment.Left) .Add("Name", 200, HorizontalAlignment.Left) .Add("Information", 200, HorizontalAlignment.Left) End With .AllowColumnReorder = True .Columns(0).DisplayIndex = 1 With il.Images .Add("Mann", Image.FromFile(Application.StartupPath & "\mann.jpg")) .Add("Frau", Image.FromFile(Application.StartupPath & "\frau.jpg")) End With .SmallImageList = il End With End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim Index As Integer Select Case True Case RadioButton1.Checked Index = 0 Case RadioButton2.Checked Index = 1 End Select Dim lvi As New ListViewItem With lvi .ImageIndex = Index .SubItems.Add(TextBox1.Text) .SubItems.Add(TextBox2.Text) End With Me.ListView1.Items.Add(lvi) End Sub End Class