Sendmessage and LVM_INSERTITEM problem

I want to be able to insert items into a listview via Sendmessage and LVM_INSERTITEM.  It actually inserts the item and it shows up in the listview, but immediately after it inserts the item the program terminates with an exception.  I'm using VB6 and MSCOMCTL.OCX.

Any ideas why is erroring out?
 
Here's the code I have:

'Begin VB
Option Explicit

Private Const LVM_FIRST As Long = &H1000
Private Const LVM_INSERTITEM As Long = (LVM_FIRST + 7)

Private Const LVIF_TEXT As Long = &H1
Private Const LVIF_STATE As Long = &H8


Private Type LV_ITEM
    mask As Long
    iItem As Long
    iSubItem As Long
    state As Long
    stateMask As Long
    pszText As String
    cchTextMax As Long
    iImage As Long
    lParam As Long
    iIndent As Long
End Type

Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" _
   (ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long


Private Sub InsertIntoLV()
Dim LVitem As LV_ITEM
Dim lRes As Long

   With LVitem
      LVitem.mask = LVIF_TEXT    '; // Text Style
      LVitem.cchTextMax = 256    '; // Max size of test
      LVitem.iItem = 0           '; // choose item
      LVitem.iSubItem = 0        '; // Put in first coluom
      LVitem.pszText = "My Text" '; // Text to display (can be from a char variable) (Items)
   End With

   Call SendMessage(Me.ListView1.hwnd, LVM_INSERTITEM, 0, LVitem)
   
End Sub
'End VB
LVL 27
PberSolutions ArchitectAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Mike TomlinsonConnect With a Mentor Middle School Assistant TeacherCommented:
0
 
PberSolutions ArchitectAuthor Commented:
I was just trying to get fancy with something.  Looks like I'm SOL, oh well.

thanks

Pat.
0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
I haven't found any technical articles on the subject...only these other posts that say it can't be done.

Idle_Mind
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.