ab.com コミュニティ

ありがとうございました。
何とかできそうです。

一気に取得できるのかと思っていましたが、無理みたいですね･･･
質問のところも、わけのわからないことを書いてしまい、すいませんでした。
確認していませんでした･･･

今回はありがとうございました。

タイトル読んでなかった。すんません。

取得は↓
http://www.2chab.net/pukiwiki/index.php?%A5%EA%A5%B9%A5%C8%A5%D3%A5%E5%A1%BC%A1%CA2%A1%CB#ua011bc7

listview.sbpを使っているならListView_GetItemも使える筈です
そっちの方が楽かも

Dim buf[64] As Byte
ListView_GetItem(hWnd,iItem,IsubItem,buf,64)
MessageBox(0,buf,0,MB_OK)

'チェックを設定する
Function ListView_SetCheckState(hWnd As HWND,i As Long,Check As Long) As Long
	ListView_SetCheckState = ListView_SetItemState(hWnd,i,(Check+1)<<12,LVIS_STATEIMAGEMASK)
End Function
'ListView_SetCheckState(hWnd,i,1)	チェックする
'ListView_SetCheckState(hWnd,i,0)	チェックを外す

'チェックを取得する
Function ListView_GetCheckState(hWnd As HWND,i As Long) As Long
	ListView_GetCheckState = (ListView_GetItemState(hWnd,i,LVIS_STATEIMAGEMASK)>>12)-1
End Function
'return = ListView_SetCheckState(hWnd,i)	returnが1ならチェックされている。0ならされていない

'チェックボックスつきのリストビューにする
ListView_SetExtendedListViewStyle(hWnd,LVS_EX_CHECKBOXES)

もう少し質問の内容が明確だと答えやすいんですが…
「○○するにはどうしたら良いか～」みたいな

[code]
'チェックを設定する
Function ListView_SetCheckState(hWnd As HWND,i As Long,Check As Long) As Long
ListView_SetCheckState = ListView_SetItemState(hWnd,i,(Check+1)<<12,LVIS_STATEIMAGEMASK)
End Function
'ListView_SetCheckState(hWnd,i,1) チェックする
'ListView_SetCheckState(hWnd,i,0) チェックを外す

'チェックを取得する
Function ListView_GetCheckState(hWnd As HWND,i As Long) As Long
ListView_GetCheckState = (ListView_GetItemState(hWnd,i,LVIS_STATEIMAGEMASK)>>12)-1
End Function
'return = ListView_SetCheckState(hWnd,i) returnが1ならチェックされている。0ならされていない

'チェックボックスつきのリストビューにする
ListView_SetExtendedListViewStyle(hWnd,LVS_EX_CHECKBOXES)
[/code]

ListView_InsertItem　でググって出てきたページをたどったらそれっぽいのが出てきたんですが、参考になるでしょうか？

http://www.nitoyon.com/vc/reference/gui/listview_report.htm
の「テキストを取得する」の所とか。

僕なら、（API調べるのが面倒なときは特に）BytePtr型の配列を作って内容を保持しておきますが。

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

チェック付のリストビューで、文字列は追加できましたが、どうやるのかわかりません。
参考にしているのは以下のページです。
どなたか教えてください。

[url=http://www.2chab.net/pukiwiki/index.php?ActiveBasic%B9%D6%BA%C2]2ちゃんねる[/url]

[hide=追加時のコード][code]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[/code][/hide]