Arrange Property Example

This example adds several ListItem objects and subitems to a ListView control. When you click on an OptionButton control, the Arrange property is set with the Index value of the OptionButton. To try the example, place a control array of three OptionButton controls, a ListView control, and two ImageList controls on a form and paste the code into the form's Declarations section. Run the example and click on an OptionButton to change the Arrange property.

Private Sub Option1_Click(Index as Integer)
   ' Set Arrange property to Option1.Index.
   ListView1.Arrange = Index
End Sub

Private Sub Form_Load()
   ' Label OptionButton controls with Arrange choices.
      Option1(0).Caption = "No Arrange"
      Option1(1).Caption = "Align Auto Left"
      Option1(2).Caption = "Align Auto Top"

   ' Declare variables for creating ListView and ImageList objects.
   Dim i As Integer
   Dim itmX As ListItem   ' Object variable for ListItems.
   Dim imgX As ListImage   ' Object variable for ListImages.

   ' Add a ListImage object to an ImageList control.
   Set imgX = ImageList1.ListImages. _
   Add(,,LoadPicture("icons\mail\mail01a.ico"))

   ListView1.Icons = ImageList1   ' Associate an ImageList control.

   ' Add ten ListItem objects, each with an Icon.
   For i = 1 To 10
      Set itmX = ListView1.ListItems.Add()
      itmX.Icon = 1   ' Icon.
      itmX.Text = "ListItem " & i
   Next i
End Sub