FIX: Adding Items to ListView Control Results in IPF on Win95/98/Me (257524)

MORE INFORMATION

This behavior occurs under the Microsoft Windows 95, Microsoft Windows 98 and Microsoft Windows Me operating systems but does not occur under Microsoft Windows NT or Microsoft Windows 2000.

By using a DoEvents command during the process of dynamically loading the controls, you may prevent the error from occurring immediately. However, the error still occurs when you terminate the application.

In addition, this problem does not occur if all ListView controls are loaded before items are added to them or if the ListView controls are all loaded at design time.

Steps to Reproduce Behavior

1. Create a new Standard EXE project. Form1 is created by default.
2. On the Project menu, select Components, check Microsoft Windows Common Controls 6.0, and then click OK.
3. Add a ListView control to Form1.
4. Set the Index property of the ListView control to 0.
5. Paste the following code into Form1's code window:

   Option Explicit
   
   Private Sub Form_Load()
      Dim i As Integer
      Dim j As Integer
      Dim objListItem As ListItem
   
      ' Set view to report
      ListView1(0).View = lvwReport
      
      ' Add some columns to listview
      ListView1(0).ColumnHeaders.Add , "col1", "col1"
      ListView1(0).ColumnHeaders.Add , "col2", "col2"
      ListView1(0).ColumnHeaders.Add , "col3", "col3"
   
      ' Load and populate total of 6 ListView controls
      For i = 0 To 5
         If i > 0 Then
            ' Create a new ListView control
            Load ListView1(i)
            
            ' Position and show the new control
            ListView1(i).Left = ListView1(i - 1).Left + 250
            ListView1(i).Top = ListView1(i - 1).Top + 250
            ListView1(i).Visible = True
         End If
           
         ' Add 10 data items to the listview just created
         For j = 1 To 10
            Set objListItem = ListView1(i).ListItems.Add(, , "data1-" & j)
            objListItem.SubItems(1) = "data2-" & j
            objListItem.SubItems(2) = "data3-" & j
            
            ' Set the tag property of the new ListItem
            objListItem.Tag = j
         Next j
      Next i
   End Sub
   					

6. Run the program. RESULT: An Invalid Page Fault occurs.