ab.com コミュニティ

返信ありがとうございます。

＞THEREMINさん
残念ですが、私がやりたい事とは少し違うのです。
私がしたいのは検索で、そこに載ってるのは編集ですね。

＞7さん
初めにも書きましたが、（あ、でも説明不足でした。すいません）
ひとつずつ文字列を取得して比較する方法なら解るのです。
現在、それを使って検索しているのですが
LVM_FINDITEMを使っての方法を教えて欲しかったのです。
記述も少なくて楽かな、と思いまして。
（速度的にどちらが速いかは試せていませんが）

リストビューの二列目の文字列を取得して検索したい文字列と比較するという処理を、リストビューの項目の数までFor文などで回したら簡単ではないですがお望みの動作になるんじゃないかと思います。

言葉だけの説明ですけど、暇ができたらコードも書いて追記しようと思います。

よく見てないんですが、これかな？

http://www.activebasic.com/forum/viewtopic.php?t=1801&highlight=%A5%EA%A5%B9%A5%C8%A5%D3%A5%E5%A1%BC

案外探したらもっとあるかも。

検索しても情報が少なく、
掲示板でも返信が無い…。
あきらめろって事ですね。
失礼しました。

参考にしたサイト

http://yokohama.cool.ne.jp/chokuto/urawaza/message/LVM_FINDITEM.html

http://yokohama.cool.ne.jp/chokuto/urawaza/struct/LVFINDINFO.html

Dim hLV As HWND
Dim lvf As LVFINDINFO
Dim Serch As Long
Dim str As String

str = "検索したい文字列"
hLV = GetDlgItem(hMainWnd,ListView1)
With lvf
	.flags = LVFI_STRING
	.psz = StrPtr(str)
End With
Serch = SendMessage(hLV, LVM_FINDITEM, -1, VarPtr(lvf))

'Serchに検索結果が入る

Dim hLV As HWND
Dim lvf As LVFINDINFO
Dim Serch As Long
Dim str As String
Dim po As POINTAPI

str = "検索したい文字列"
hLV = GetDlgItem(hMainWnd,ListView1)
po.x=1	'二番目なので1
po.y=0
With lvf
	.flags = LVFI_STRING or LVFI_NEARESTXY
	.psz = StrPtr(str)
	.pt = po
	.vkDirection= VK_DOWN	'いろいろな組み合わせを試しましたが変化なし
End With
Serch = SendMessage(hLV, LVM_FINDITEM, -1, VarPtr(lvf))

リストビュー内をLVM_FINDITEMを使って検索するのですが、リストビューが複数列ある場合一番左の列を検索するのは出来ましたが
左から2番目以降の列を検索する事が出来ません。
LVFI_NEARESTXYを指定すれば可能かと思ったのですが、これも無理でした。
もしかして左端しか検索できないのでしょうか。
検索する方法をご存知の方がいたら教えて下さい。
ひとつずつ文字列を取得して比較する方法でも出来ますが、この方法が可能ならこっちの方が楽なので。
AB　4.13
OS　XP sp2

以下で左端列の検索は出来ます。
[code]Dim hLV As HWND
Dim lvf As LVFINDINFO
Dim Serch As Long
Dim str As String

str = "検索したい文字列"
hLV = GetDlgItem(hMainWnd,ListView1)
With lvf
.flags = LVFI_STRING
.psz = StrPtr(str)
End With
Serch = SendMessage(hLV, LVM_FINDITEM, -1, VarPtr(lvf))

'Serchに検索結果が入る[/code]
以下で左から2番目の列を検索をしたかったのですが出来ませんでした。
[code]Dim hLV As HWND
Dim lvf As LVFINDINFO
Dim Serch As Long
Dim str As String
Dim po As POINTAPI

str = "検索したい文字列"
hLV = GetDlgItem(hMainWnd,ListView1)
po.x=1 '二番目なので1
po.y=0
With lvf
.flags = LVFI_STRING or LVFI_NEARESTXY
.psz = StrPtr(str)
.pt = po
.vkDirection= VK_DOWN 'いろいろな組み合わせを試しましたが変化なし
End With
Serch = SendMessage(hLV, LVM_FINDITEM, -1, VarPtr(lvf))[/code]