ListView mit ImageList

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Kasi.

    ListView mit ImageList

    Hallo zusammen,

    wie kann ich denn realisieren, wenn ein bestimmtes Wort in Spalte 3 vorkommt und in Spalte 0 Bild(1) anzeigt?
    Hab im Formular ImageList mit 2 Bildern eingetragen 0, und 1



    Fülle Listview mit dem Code auf.

    VB.NET-Quellcode

    1. Me.LvRecord.Items.Clear()
    2. Dim OleDr As OleDb.OleDbDataReader
    3. OleDr = OleDa.SelectCommand.ExecuteReader()
    4. Do While OleDr.Read()
    6. Dim Item As New ListViewItem
    7. Item.Text = IIf(OleDr.IsDBNull(0), "", OleDr.Item(0))
    9. For shtCntr = 1 To OleDr.FieldCount() - 1
    10. If Not OleDr.IsDBNull(shtCntr) Then
    11. Item.SubItems.Add(OleDr.Item(shtCntr))
    13. Else
    14. Item.SubItems.Add("")
    15. End If
    16. Next shtCntr
    17. Me.LvRecord.Items.Add(Item)
    18. Loop

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „livius91“ ()

    hier ein Bsp.
    habe in Imagelist1 2 kleine Images angelegt mit namen "isOk" und "notOk"
    schaumal on du damit klarkommst

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim sDB As String = "E:\Adressen.mdb"
    3. Dim sCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    4. "Data Source=" & sDB & ";"
    6. Dim Cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCon)
    7. Cn.Open()
    9. Dim sSQL As String = "Select ProductName, UnitPrice From Products "
    10. Dim Cmd As New OleDb.OleDbCommand(sSQL, Cn)
    11. Dim Dr As OleDb.OleDbDataReader
    12. Dr = Cmd.ExecuteReader
    14. With ListView1
    15. If .Columns.Count = 0 Then
    16. .View = View.Details
    17. .Columns.Add("ProductName", 150, HorizontalAlignment.Left)
    18. .Columns.Add("UnitPrice", 150, HorizontalAlignment.Right)
    19. .FullRowSelect = True
    20. .ShowItemToolTips = False
    21. End If
    22. .Items.Clear()
    23. .BeginUpdate()
    25. Do While Dr.Read
    26. Dim Li As New ListViewItem
    27. Li.UseItemStyleForSubItems = False
    28. Li.Text = Dr(0).ToString
    29. Li.SubItems.Add(FormatNumber(Dr("UnitPrice").ToString, 2, TriState.False, TriState.True, TriState.True))
    31. Select Case Dr(0).ToString
    33. Case "Chai" : Li.SubItems(1).ForeColor = Color.Blue
    34. Li.ImageIndex = ImageList1.Images.IndexOfKey("isOk")
    36. Case "Aniseed Syrup" : Li.SubItems(1).ForeColor = Color.Red
    37. Li.ImageIndex = ImageList1.Images.IndexOfKey("notOK")
    39. Case Else : Li.SubItems(1).ForeColor = Color.Black
    40. End Select
    43. .Items.Add(Li)
    44. Loop
    45. .EndUpdate()
    46. End With
    47. Dr.Close()
    48. End Sub

Facebook
Telefonspende