参考にしているのは以下のページです。
どなたか教えてください。
2ちゃんねる
追加時のコード [ここをクリックすると内容が表示されます]
コード: 全て選択
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
ListView_SetExtendedListViewStyle(GetDlgItem(hMainWnd,ListView1),LVS_EX_CHECKBOXES)
Dim lv[2] As LVITEM
lv[0].mask=LVIF_TEXT
lv[0].iItem=0
lv[0].pszText="テスト1"
lv[1].mask=LVIF_TEXT
lv[1].iItem=1
lv[1].pszText="テスト2"
lv[2].mask=LVIF_TEXT
lv[2].iItem=2
lv[2].pszText="テスト3"
ListView_InsertItem(GetDlgItem(hMainWnd,ListView1),lv[0])
ListView_InsertItem(GetDlgItem(hMainWnd,ListView1),lv[1])
ListView_InsertItem(GetDlgItem(hMainWnd,ListView1),lv[2])
End Sub