我用ListView来显示图标，想把图标的比例设成和图片比例一致，可实际显示出的图标全部是第一个图片的比例，因为图片有横版有竖版，这样会导制缩略图失真，有没有什么办法解决这个问题？
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.AllowEdit = True '允许编辑标题
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
For Each File As String In FileSys.GetFiles(ProjectPath & "Attachments\" & “文件夹”)
Dim img As Image = GetImage(file)
If img IsNot Nothing Then
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.LargeSize = New Size(
80*img.Width/img.Height,80) '定义大图标尺寸
Dim a As String = file
Dim b As String = a.SubString(a.LastIndexOf("\")+1)
lvw.Images.AddLargeImage(a,a) '添加代表这个图片的大图标,第一个为键值,第二个为对应的照片
Dim r As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
r.Text = b '指定标题
r.ImageKey = a '设置图片键值
End If
Next
加好友 
发短信
Post By：2021/3/16 9:55:00 [只看该作者]
