Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

14848 / 76734

←次へ　｜　前へ→


	【67374】Re:List Viewについて

まい - 10/11/29(月) 10:21 -


	引用なし

	パスワード

▼Jaka さん：

アドバイスありがとうございます
やっぱり、地道にアイテム行を検索しつつ反映させる方法でいこうと
思っています

いろいろと教えていただいてありがとうございました
助かりました

>▼まいさん：
>>一つききたいのですが、
>>リストに反映させる場合は、やはり、一から対称アイテムの行を検索して、
>>値を入力させるといった形になるのでしょうか？
>>そういうやり方しかないのでしょうか？
>>毎回、チェックしたアイテムを一つ一つ探しにいって、値を代入させるのは、時間もかかりそうで･･･
>
>その方がいいですよ。
>たいした時間でもないと思うし。
>
>無理やりなら、配列に入れておくとか。
>ただ、これだと配列のクリアのタイミングとか、チェックを外した時とか、
>色々考えないとならないから、私ならやりません。
>あ、都度配列を拡張しないで、あらかじめリストアイテム分の配列を作っておけば、
>配列のインデックスとリストインデックスが一致するから？（+１が必要かも）
>それなりに出来るでしょうが、やっぱりやりません。
>
>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

1 hits

▼

【67311】List Viewについて まい 10/11/23(火) 14:24