I found that the following code didn't work for me

ListView1.ListItems.Remove(ListView1.SelectedItem) '// removes the selected item

I had to use

ListView1.ListItems.Remove(ListView1.SelectedItem.Index) 

Also  - it wasn't obvious to me to start with  ( I'm a newbie to listviews )

but to  'get at' the data in the views one had to use

ListView1.ListItems.Item(x)    where  x is a valid number in the  range 1 to ListView1.ListItems.Count  (NOT   0 to .Count - 1 as in normal Visual Basic)

 Cheers

Maxjonz

Hi..

I using ListView in C#.

I tried to add text into certain colum in ListView.

For example: I have 3 columns, Column1, Column2, Column3.

I want to insert "TEST1"  and "TEST2" in Column2

How can I going to do in C#?

Thank you

Halina

Hey everyone here are some example of Database that use ListView:

if u need in C# pls copy this code convert to C# your self.

1. Use Microsoft Access Database

• Module1 code

2. Use SqlServer

connect direct to SqlSever (MS SQL Server Studio 2005)

Imports System.Data.SqlClient
Dim Cnn As New SqlConnection
Dim CnnStr$
CnnStr = "Data Source=PC2\SQLEXPRESS;Initial Catalog=KhmerDictionary;Integrated Security=True;Pooling=False;"
Cnn = New SqlConnection(CnnStr)
Cnn.Open()

Connect Indirect to Sql Server Database File

Imports System.Data.SqlClient
Dim Cnn As New SqlConnection
Dim CnnStr$
CnnStr="Data Source=.\SQLEXPRESS;AttachDbFilename="C:\NimolProject\Dictionary Testing\Original DBDictionary\KhmerDictionary.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True"
Cnn = New SqlConnection(CnnStr)
Cnn.Open()

• Form1 Code need 4 textbox,one Listview,2 Error provider,8 command Button, 1 Label name lblrecord
• Captiontext :New , Update, delete, Save, |<, <<, >>, >|

Public Class Form1

Private WithEvents button1 As New Button

Private mouseX, mouseY As Integer

End Sub

End Sub

End Class

i hope you cam customize this code with your own project  thanks

if this is not enough pls give some idea ...na

from Anatha1

Maxjonz:

I found that the following code didn't work for me

ListView1.ListItems.Remove(ListView1.SelectedItem) '// removes the selected item

I had to use

ListView1.ListItems.Remove(ListView1.SelectedItem.Index) 

Also  - it wasn't obvious to me to start with  ( I'm a newbie to listviews )

but to  'get at' the data in the views one had to use

ListView1.ListItems.Item(x)    where  x is a valid number in the  range 1 to ListView1.ListItems.Count  (NOT   0 to .Count - 1 as in normal Visual Basic)

 Cheers

Maxjonz

ListView1.SelectedItems(0).Remove()

Or to remove all selected items:

For Each I as ListViewItem In ListView1.SelectedItems

    I.Remove() 

Next 

How to sort a ListView control? Here is the code I have written to handle just that. This code also includes a context menu of items I found I needed on almost every ListView I used (I use them alot).

Can either create a file with this in it and add it to any project you need it in, or you can create a Class Library and add this code, compile it and add a reference to any project you wish to use this code in.

How to use the ListViewSorter:

In your ListView's ColumnClick event, place this line of code:

    ... 

    SortListViewColumn(sender, e)

     ...

How to use the context menu:

In your form's Load event, add the following code.

    ...

    Dim objListViewMenu As New clsListViewMenu(True)

    ListView1.ContextMenuStrip = objListViewMenu.ListViewMenu

     ...
 

Or, if you have a Context Menu you need for the list view, you can merge them with this line of code:

    ... 

    ListView1.ContextMenuStrip = objListViewMenu.Merge(YOURCONTEXTMENU)

     ...

There are various properties associated with the ListViewMenu object, all should be pretty self-evident.

Enjoy...

Imports System
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System.Drawing

Namespace ListViewManipulation

  Public Module ListViewSorter

    Public Enum SortOrders
      Ascending = 0
      Descending
    End Enum

    Private Sub ErrorMessage(ByVal Text As String)
      MsgBox(Text, MsgBoxStyle.Exclamation, "YOUR TITLE HERE")
    End Sub

    Public Sub AutoSizeColumns(ByVal ListView As ListView, Optional ByVal EvenSpacing As Boolean = False)

      Dim intColumns As Integer = ListView.Columns.Count
      Dim intClientWidth As Integer = ListView.ClientRectangle.Width
      Dim intWidths(intColumns) As Integer
      Dim intWidth As Integer = 0

      With ListView
        .BeginUpdate()

        Try
          If EvenSpacing Then
            intWidth = CInt((intClientWidth) / intColumns)

            For Each objColumn As ColumnHeader In .Columns
              objColumn.Width = intWidth
            Next

            If (intWidth * (intColumns)) > intClientWidth Then
              Dim C As ColumnHeader = .Columns(intColumns - 1)
              C.Width -= (intWidth * intColumns) - intClientWidth
            End If
          Else
            .AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
            For Each C As ColumnHeader In .Columns
              intWidths(C.Index) = C.Width
            Next

            .AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
            For Each C As ColumnHeader In .Columns
              If C.Width < intWidths(C.Index) Then C.Width = intWidths(C.Index)
            Next
          End If
        Catch ex As Exception
          ErrorMessage(ex.Message)
        End Try

        .EndUpdate()
      End With

    End Sub

    Private Function SmallerOf(ByVal value1 As Integer, ByVal value2 As Integer) As Integer

      Dim intReturn As Integer = 0

      If value1 <= value2 Then
        intReturn = value1
      Else
        intReturn = value2
      End If

      Return intReturn

    End Function

    Public Sub SortListViewColumn(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs)

      Try
        If sender Is Nothing Then Throw New NullReferenceException("[sender] is null.")
        If e Is Nothing Then Throw New NullReferenceException("[ColumnClickEventArgs] is null.")
        If sender.GetType IsNot GetType(ListView) Then Throw New Exception("[sender] must be a ListView control.")

        Static objHistory As New Dictionary(Of Integer, clsClickHistory)

        Dim objLast As clsClickHistory = Nothing
        Dim intHash As Integer = sender.GetHashCode

        If Not objHistory.ContainsKey(intHash) Then
          objHistory.Add(intHash, New clsClickHistory(e.Column, SortOrders.Ascending))
        End If

        objLast = objHistory(intHash)

        With objLast
          If .Column = e.Column Then
            .Order = .FlipOrder
          Else
            .Order = SortOrders.Descending
          End If

          .Column = e.Column
        End With

        With DirectCast(sender, ListView)
          .BeginUpdate()
          .ListViewItemSorter = New clsListViewSorter(objLast.Column, objLast.Order)
          .ListViewItemSorter = Nothing
          .EndUpdate()
        End With
      Catch ex As Exception
        ErrorMessage(ex.Message)
        With DirectCast(sender, ListView)
          .ListViewItemSorter = Nothing
          .EndUpdate()
        End With
      End Try

    End Sub

    Private Class clsListViewSorter
      Implements IComparer

      Private intColumn As Integer = 0
      Private intOrder As SortOrders = SortOrders.Ascending

      Public Sub New()

      End Sub

      Public Sub New(ByVal Column As Integer, ByVal SortOrder As SortOrders)
        Me.Column = Column
        Me.Order = SortOrder
      End Sub

      Public Property Order() As SortOrders
        Get
          Return intOrder
        End Get
        Set(ByVal value As SortOrders)
          If Not System.Enum.IsDefined(GetType(SortOrders), value) Then Throw New Exception("Value is not defined in Enum " & GetType(SortOrder).Name)
          intOrder = value
        End Set
      End Property

      Public Property Column() As Integer
        Get
          Return intColumn
        End Get
        Set(ByVal value As Integer)
          intColumn = value
        End Set
      End Property

      Private Function IsNumeric(ByVal Chars() As Char) As Boolean

        Dim bolPointSeen As Boolean = False

        For Each c As Char In Chars
          If Not Char.IsNumber(c) Then
            If c = "."c Then
              If bolPointSeen Then Return False
              bolPointSeen = True
            Else
              Return False
            End If
          End If
        Next

        Return True

      End Function

      Public Function Compare(ByVal Item1 As Object, ByVal Item2 As Object) As Integer _
       Implements IComparer.Compare

        Dim chr1() As Char = DirectCast(Item1, ListViewItem).SubItems(intColumn).Text.ToCharArray
        Dim chr2() As Char = DirectCast(Item2, ListViewItem).SubItems(intColumn).Text.ToCharArray

        If chr1 = chr2 Then Return 0

        If IsNumeric(chr1) Then
          If IsNumeric(chr2) Then
            If intOrder = SortOrder.Ascending Then
              Return Val(chr1).CompareTo(Val(chr2))
            Else
              Return Val(chr2).CompareTo(Val(chr1))
            End If
          End If
        End If

        For i As Integer = 0 To SmallerOf(chr1.GetUpperBound(0), chr2.GetUpperBound(0))
          If chr1(i) <> chr2(i) Then
            If intOrder = SortOrder.Ascending Then
              Return String.Compare(chr1(i), chr2(i))
            Else
              Return String.Compare(chr2(i), chr1(i))
            End If
          End If
        Next

      End Function
    End Class

    Private Class clsClickHistory
      Dim intColumn As Integer = 0
      Dim intOrder As SortOrders = SortOrders.Ascending

      Public Sub New()

      End Sub

      Public Sub New(ByVal Column As Integer, ByVal Order As SortOrders)
        Me.Column = Column
        Me.Order = Order
      End Sub

      Public Property Column() As Integer
        Get
          Return intColumn
        End Get
        Set(ByVal value As Integer)
          intColumn = value
        End Set
      End Property

      Public Property Order() As SortOrders
        Get
          Return intOrder
        End Get
        Set(ByVal value As SortOrders)
          If Not System.Enum.IsDefined(GetType(SortOrders), value) Then Throw New Exception("Value is not defined in Enum " & GetType(SortOrders).Name)
          intOrder = value
        End Set
      End Property

      Public Function FlipOrder() As SortOrders
        Return DirectCast(Math.Abs(CInt(intOrder) - 1), SortOrders)
      End Function
    End Class

  End Module

  Public Class ListViewMenuCancelEventArgs
    Inherits System.ComponentModel.CancelEventArgs

    Dim objLV As ListView = Nothing
    Dim objCE As CancelEventArgs = Nothing

    Public Sub New(ByVal ListView As ListView, ByVal e As CancelEventArgs)
      Me.ListView = ListView
      Me.CancelEventArgs = e
    End Sub

    Public Property ListView() As ListView
      Get
        Return objLV
      End Get
      Set(ByVal value As ListView)
        objLV = value
      End Set
    End Property

    Public Property CancelEventArgs() As CancelEventArgs
      Get
        Return objCE
      End Get
      Set(ByVal value As CancelEventArgs)
        objCE = value
      End Set
    End Property

  End Class

  Public Class clsListViewMenu

    Public Event ContextMenuOpening(ByVal sender As Object, ByVal e As ListViewMenuCancelEventArgs)

    Dim WithEvents mnuViewStyle As New ContextMenuStrip
    Dim WithEvents mnuViewView As ToolStripMenuItem = Nothing
    Dim WithEvents mnuViewSort As ToolStripMenuItem = Nothing
    Dim WithEvents mnuViewAutosize As ToolStripMenuItem = Nothing
    Dim WithEvents objLargeIcons As ToolStripMenuItem = Nothing
    Dim WithEvents objSmallIcons As ToolStripMenuItem = Nothing
    Dim WithEvents objTiles As ToolStripMenuItem = Nothing
    Dim WithEvents objList As ToolStripMenuItem = Nothing
    Dim WithEvents objDetails As ToolStripMenuItem = Nothing
    Dim WithEvents objGridlines As ToolStripMenuItem = Nothing
    Dim WithEvents objAutoSizeEven As ToolStripMenuItem = Nothing
    Dim WithEvents objAutoSizeFit As ToolStripMenuItem = Nothing

    Dim objSource As ListView = Nothing
    Dim bolAutosize As Boolean = False
    Dim bolHideViews As Boolean = False
    Dim bolHideResize As Boolean = False
    Dim bolHideGridlines As Boolean = False
    Dim bolHideSorting As Boolean = False

    Public Sub New(Optional ByVal AutoSizeColumnsOnViewChange As Boolean = False)
      Me.AutoResizeColumnsOnViewChange = AutoSizeColumnsOnViewChange
      LocalInitialize()
    End Sub

    Protected Overrides Sub Finalize()

      For Each I As ToolStripMenuItem In mnuViewSort.DropDownItems
        RemoveHandler I.Click, AddressOf ColumnSort_Click
      Next

      RemoveHandler DirectCast(mnuViewView.Owner, ContextMenuStrip).Opening, AddressOf mnuViewStyle_Opening

      MyBase.Finalize()

    End Sub

    Private Sub LocalInitialize()

      Dim strViews As String = Nothing
      Dim strSizing As String = Nothing
      Dim strSorting As String = Nothing
      Dim strGrids As String = Nothing
      Dim strEven As String = Nothing
      Dim strFit As String = Nothing
      Dim strLarge As String = Nothing
      Dim strSmall As String = Nothing
      Dim strTiles As String = Nothing
      Dim strList As String = Nothing
      Dim strDetails As String = Nothing

      strViews = "View"
      strSizing = "Resize headers"
      strSorting = "Sort by"
      strGrids = "Show gridlines"
      strEven = "Evenly"
      strFit = "To contents"
      strLarge = "Large icons"
      strSmall = "Small icons"
      strTiles = "Tiles"
      strList = "List"
      strDetails = "Details"

      With mnuViewStyle.Items
&