Excel VBA質問箱 IV

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

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


14877 / 76734 ←次へ | 前へ→

【67345】Re:List Viewについて
発言  Jaka  - 10/11/26(金) 16:48 -

引用なし
パスワード
   ▼まい さん:
>一つききたいのですが、
>リストに反映させる場合は、やはり、一から対称アイテムの行を検索して、
>値を入力させるといった形になるのでしょうか?
>そういうやり方しかないのでしょうか?
>毎回、チェックしたアイテムを一つ一つ探しにいって、値を代入させるのは、時間もかかりそうで・・・

その方がいいですよ。
たいした時間でもないと思うし。

無理やりなら、配列に入れておくとか。
ただ、これだと配列のクリアのタイミングとか、チェックを外した時とか、
色々考えないとならないから、私ならやりません。
あ、都度配列を拡張しないで、あらかじめリストアイテム分の配列を作っておけば、
配列のインデックスとリストインデックスが一致するから?(+1が必要かも)
それなりに出来るでしょうが、やっぱりやりません。

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

0 hits

【67311】List Viewについて まい 10/11/23(火) 14:24 質問
【67312】Re:List Viewについて まい 10/11/23(火) 15:26 質問
【67315】Re:List Viewについて neptune 10/11/23(火) 21:30 回答
【67329】Re:List Viewについて まい 10/11/25(木) 13:05 質問
【67334】Re:List Viewについて neptune 10/11/25(木) 19:12 発言
【67343】Re:List Viewについて まい 10/11/26(金) 14:33 発言
【67346】Re:List Viewについて neptune 10/11/26(金) 18:19 発言
【67373】Re:List Viewについて まい 10/11/29(月) 10:18 お礼
【67341】Re:List Viewについて Jaka 10/11/26(金) 9:23 発言
【67344】Re:List Viewについて まい 10/11/26(金) 14:54 質問
【67345】Re:List Viewについて Jaka 10/11/26(金) 16:48 発言
【67374】Re:List Viewについて まい 10/11/29(月) 10:21 お礼

14877 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free