DOCUMENT:Q182068  05-MAR-1998  [vbwin]
TITLE   :BUG: ListView SubItemIndex Property Not Converted
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:WINDOWS:5.0
OPER/SYS:WINDOWS
KEYWORDS:vb5all VBKBAX VBKBComp VBKBCtrl kberrmsg

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual Basic Learning, Professional, and Enterprise Editions
   for Windows, version 5.0
---------------------------------------------------------------------

SYMPTOMS
========

You convert a project written in Visual Basic 4.0 to Visual Basic 5.0. When
you run the project, you note that the SubItemIndex property of a column
header in a ListView control has a value of 0 (zero), or you receive the
following error:

   Run-time Error '380':
   Invalid Property Value

CAUSE
=====

The SubItemIndex property is omitted from the form file (.FRM) after Visual
Basic version 5.0 converts a 4.0 form containing a ListView control. This
results in the SubItemIndex property having a value of 0.

RESOLUTION
==========

Open the form file (.FRM) in Notepad and add the missing SubItemIndex
value. See the MORE INFORMATION section for a step-by step-example.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products
listed at the beginning of this article. We are researching this
bug and will post new information here in the Microsoft Knowledge
Base as it becomes available.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. Create a new project in Visual Basic 4.0. Form1 is created by default.

2. Choose Custom Controls from the Tools menu, and deselect all controls
   except for "Microsoft Windows Common Controls." (Comctl32.ocx should
   be the version that ships with Visual Basic 4.0.)

3. Add a ListView control and CommandButton control to Form1.

4. Using the custom properties of the ListView1 control, insert 2 column
   headers:

   Index: 1
   Text : Name
   Key  : Name

   Index: 2
   Text : Address
   Key  : Address

5. Add the following code to Form1:

      Private Sub Command1_Click()
         Dim itmX As ListItem
         ListView1.View = 3 'report view
         Set itmX = ListView1.ListItems.Add(1, "Bob", "Bob")
         itmX.SubItems(ListView1.ColumnHeaders("Address").SubItemIndex) _
            = "123 Main Street"
      End Sub

6. Save and run the project. Click the CommandButton to make sure there
   are no errors. You should see "Bob" and "123 Main Street" in the
   ListView.

7. On a computer that has Visual Basic 5.0 installed, open, save, and run
   the project in Visual Basic 5.0.

8. Click the CommandButton and note that the result is:

      Run-time Error '380': Invalid Property Value

   Because the SubItemIndex property has a 0 value, the error occurs. The
   SubItemIndex is supposed to have a value of 1 for the Address column
   (because it is the second column).

Workaround
----------

Close the project in Visual Basic. Backup the Form1.frm file, and then open
the Form1.frm file using Notepad and add the missing SubItemIndex value as
follows.

Before editing, the column 2 header information in Form1.frm will resemble
the following:

   BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
      Key             =   "Address"
      Object.Tag             =   ""
      Text            =   "Address"
      Object.Width           =   2540
   EndProperty

After adding the SubItemIndex line (use spaces to indent), it should
resemble:

   BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
      SubItemIndex    =   1
      Key             =   "Address"
      Object.Tag             =   ""
      Text            =   "Address"
      Object.Width           =   2540
   EndProperty

NOTE: If there were more than 2 columns, you would do the same for any
additional column headers. For example, Column 3 would have a
SubItemIndex = 2.

1. Save the changes to Form1.frm and close Notepad.

2. Reopen the project in Visual Basic 5.0.

3. Run the project and click the Command button. There should be no error
   this time. You should see "Bob" and "123 Main Street" in the ListView.

Additional query words: conversion
======================================================================
Keywords          : vb5all VBKBAX VBKBComp VBKBCtrl kberrmsg
Version           : WINDOWS:5.0
Platform          : WINDOWS
Issue type        : kbbug

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1998.