VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/03/27(Thu) 18:16
投稿者： はる
ＵＲＬ：
タイトル： Re^2: ListViewについて

ご回答ありがとうございます。

動的に変更できるということなのですが、
下記の様なロジックを作成した時に、実際に画面が起動して
表示されているのは11〜20件までのデータのみで、
1件〜10件のデータは画像が表示されません。
プロパティ等の設定方法が間違っているのでしょうか？

何かおかしな所がありましたらご指摘願えませんでしょうか。

Sub Sub_Test
   Dim i   As Integer
   Dim j   As Integer
   Dim obj As Object

   'FormにはImageList(0)と、ListViewをセットしています

   'イメージリスト(1)をLoadする
   Load ImageList(1)

   'イメージリストに画像を取り込む
   For i = 1 To 20
      Select Case i
         '1件〜10件はImageList(0)にセット
         Case 1 To 10
            ImageList(0).ListImages.Add (i) , "AAA" & _

                                  CStr(i), LoadPicture("A" & cstr(i) & ".jpg")
         '11件〜20件はImageList(1)にセット
         Case 11 To 20
            ImageList(1).ListImages.Add (i - 10) , "AAA" & _
                                   CStr(i), LoadPicture("A" & cstr(i) & ".jpg")
      End Select
   Next i

  
   'リストビューに20件のデータを表示する(Icon形式)
   For i = 1 To 20
      Select Case i
         '1件〜10件はImageList(0)のアイコンを使う
         Case 1 To 10
           ListView.Icons = ImageList(0)
           j = i
　　　　　'11件〜20件はImageList(1)のアイコンを使う
         Case 11 To 20
           ListView.Icons = ImageList(1)
           j = i - 10
       End Select
       'ListViewにデータをセット
       Set obj = ListView.ListItems.Add(i, "B" & CStr(i), "X" & Cstr(i), j, j)
   Next i  
  
   Set obj = Nothing

End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -