リストビューのソートについて (ID:88894)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません。 VB初めて・・・というかプログラムを本格的に始めて2週間。。 良く分からないのですが何とかしなくては。 下記のようなものを見つけました。 こういうことですよね。 Option Explicit 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 Const LVM_FIRST = &H1000 Private Const LVM_GETITEMSTATE = (LVM_FIRST + 44) Private Const LVIS_STATEIMAGEMASK = &HF000 'リストビューチェックボックスのチェック状態を取得する関数 Private Function LvwGetCheckState(lvwCTRL As ListView， _ lngIndex As Long) As Boolean 'lvwCTRL : リストビュー ， lngIndex : アイテムのIndex '戻り値 : BOOL値(True:チェックON， False:チェックOFF) Dim lngState As Long lngState = SendMessage(lvwCTRL.hwnd， LVM_GETITEMSTATE， _ lngIndex， ByVal LVIS_STATEIMAGEMASK) LvwGetCheckState = (lngState And &H2000) End Function んで以下を修正。 If 検索リスト.ListItems(i).Checked = True Then →If LvwGetCheckState(検索リスト, 検索リスト.ListItems(i).Index) = True Then でも、上手くいかない。。