tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: リストビューへのアイコン表示方法。
投稿日: 2008/09/09(Tue) 18:00
投稿者芸灼朗
ダンボさん、ありがとうございます。
紹介していただいたURLの一つ目の
> http://www.atmarkit.co.jp/fdotnet/dotnettips/336listviewimage/listviewimage.html
を参考に試したところ、ラージサイズでのアイコン表示は成功しました。

上記のページのコードを以下のように変えたところ本来アイコンが表示される箇所に
アイコンへのフルパスが表示されるようになりました。


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim imageDir As String = "C:\image" ' 画像ディレクトリ
        Dim jpgFiles As String() = System.IO.Directory.GetFiles(imageDir, "*.ico")

        '' **アイコンのサイズを縮小
        Dim width As Integer = 10
        Dim height As Integer = 10

        ImageList1.ImageSize = New Size(width, height)
        ListView1.LargeImageList = ImageList1

        '' **リストビューの表示モードを詳細に変更
        ListView1.View = View.Details

        '' **列を3列追加
        ListView1.Columns.Add("アイコン", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("ファイル名", 200, HorizontalAlignment.Left)
        ListView1.Columns.Add("拡張子", 200, HorizontalAlignment.Left)

        For i As Integer = 0 To jpgFiles.Length - 1
            Dim original As Image = Bitmap.FromFile(jpgFiles(i))
            Dim thumbnail As Image = createThumbnail(original, width, height)
                                     '' 変更なし。

            ImageList1.Images.Add(thumbnail)
            ListView1.Items.Add(jpgFiles(i), i)

            original.Dispose()
            thumbnail.Dispose()
        Next

    End Sub

詳細モードでアイコンを表示する場合はどのように設定を行えばよいのでしょうか?

追加の質問なのですが教えていただいたURLの記述は画像ファイルをパス指定して
イメージリストに入れ込んでいますが、前もってイメージリストに登録しておいた
画像をそのまま使う、ということはできないのでしょうか?

以上よろしくお願いします

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。