SysListView32からデータを取得する

Question

SysListView32からデータを取得しようとしていますが、LVM_GETITEMTEXTを使用していますが、空の文字列が表示されます。それは私に文字数を与えますが、実際のテキストは表示しません。誰でも助けてくれますか？

Private Const LVM_FIRST As Long = &H1000 
Private Const LVM_GETITEMTEXT As Long = (LVM_FIRST + 45) 

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 

Dim lvi As LV_ITEM 
Dim r as long 

lvi.cchTextMax = MAX_PATH 
lvi.pszText = Space$(MAX_PATH) 

r = SendMessage(Handle, LVM_GETITEMTEXT, 0, lvi) 

data = Left(lvi.pszText, r) 

If Trim(data) <> "" Then MsgBox (data) 

Answer 1

あなたneed to set the LVIF_TEXT flagが有効なバッファにそのpszTextポイントを宣言するために、次のようにコードです。

Private Const LVIF_TEXT As Long = &H1 

lvi.mask = LVIF_TEXT 
lvi.cchTextMax = MAX_PATH 
lvi.pszText = Space$(MAX_PATH)