专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VB Dotnet

怎样更改imagelist里的图像大小,该如何解决

发布时间:2011-06-23 16:02:44 文章来源:www.iduyao.cn 采编人员:星星草
怎样更改imagelist里的图像大小
有一个listview和一个imagelist控件,listview列表是显示大图像,imagelist里的图像是通过代码加进去的。怎么改变listview里大图像的图像大小和图像之间的行间距呀?是要在imagelist里去改吗,怎么改啊?

------解决方案--------------------
ImageList1.ImageSize=new Point(32,32)
------解决方案--------------------
图像大小可以设置imagelist控件里的imagesize属性,间距变小好像不太好设,
------解决方案--------------------
VB.NET code
    Private C1 As New ImageList
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListView1.SmallImageList = C1
        C1.Images.Clear() '清空备用ImageList内的图片
        C1.ImageSize = New Point(32, 32) '设置内存图画布大小,该高度同时也将是ListView项的高度
        C1.ColorDepth = ColorDepth.Depth32Bit
        For I As Integer = 0 To ImageList1.Images.Count - 1
            Using tmpBP As New Bitmap(C1.ImageSize.Width, C1.ImageSize.Height)
                Using G As Graphics = Graphics.FromImage(tmpBP)
                    Dim tp As Bitmap = ImageList1.Images(I)
                    G.DrawImage(tp, New Rectangle((tmpBP.Width - tp.Width) / 2, (tmpBP.Height - tp.Height) / 2, tp.Width, tp.Height), New Rectangle(0, 0, tp.Width, tp.Height), GraphicsUnit.Pixel)
                    C1.Images.Add(I, tmpBP)
                End Using
            End Using
        Next

        For I As Integer = 0 To C1.Images.Count - 1
            ListView1.Items.Add("项目内容" & I, I)
        Next
        '提醒结帖
    End Sub
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: