| |
▼まい さん：
>一つききたいのですが、
>リストに反映させる場合は、やはり、一から対称アイテムの行を検索して、
>値を入力させるといった形になるのでしょうか？
>そういうやり方しかないのでしょうか？
>毎回、チェックしたアイテムを一つ一つ探しにいって、値を代入させるのは、時間もかかりそうで･･･
その方がいいですよ。
たいした時間でもないと思うし。
無理やりなら、配列に入れておくとか。
ただ、これだと配列のクリアのタイミングとか、チェックを外した時とか、
色々考えないとならないから、私ならやりません。
あ、都度配列を拡張しないで、あらかじめリストアイテム分の配列を作っておけば、
配列のインデックスとリストインデックスが一致するから？（+１が必要かも）
それなりに出来るでしょうが、やっぱりやりません。
Dim ItemTb() As Long, Tbub As Long
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
Tbub = UBound(ItemTb)
If Err Then
Tbub = 1
End If
ReDim Preserve ItemTb(1 To Tbub)
ItemTb(Tbub) = Item.Index
'MsgBox Item.Index
End Sub
|
|
Jaka
- 10/11/26(金) 16:48 -
