以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]ListView显示图标比例  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161387)
--  作者：2425004926
--  发布时间：2021/3/16 9:55:00
--  [求助]ListView显示图标比例
我用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
--  作者：有点蓝
--  发布时间：2021/3/16 9:57:00
--  
没有办法，图片只能固定一种尺寸
--  作者：2425004926
--  发布时间：2021/3/16 10:12:00
--  
那OpenFileDialog打开文件对话框的窗口是怎么作的，是否能公示一下相关代码，我改一下
--  作者：有点蓝
--  发布时间：2021/3/16 10:15:00
--  
这个是.net底层的类型，代码属于微软。我想公示也公示不了
--  作者：2425004926
--  发布时间：2021/3/16 10:29:00
--  
 嗯嗯，谢谢！