C# と VB.NET の質問掲示板

ListView1:LargeImageList=ImageList1, View=LargeIcon
ImageList1:ImageSize = (120, 160)

サンプルコード:

        Dim Folder As New IO.DirectoryInfo("C:\Users\Public\Pictures\Sample Pictures")
        Dim idx = 0
        For Each fl In Folder.GetFiles("*.jpg")
            Dim bmp As New Bitmap(120, 160)
            Dim bmpLoad = Bitmap.FromFile(fl.FullName)
            Dim g = Graphics.FromImage(bmp)
            g.Clear(Color.Yellow)                 '--- 分かりやすくするため背景を黄色で塗った
            g.DrawImage(bmpLoad, 0, 0, 120, 96)   '--- 縦横比を変えないで縮小(縦:横=4:5なので120の幅に対し96の高さとなる)
            ImageList1.Images.Add(bmp)
            ListView1.Items.Add(fl.Name).ImageIndex = idx
            idx += 1
            bmpLoad.Dispose()
        Next