主题：listview大图平铺，文字是否可以在图片上方或者下方？

 '--------------显示勋章图标-----------------------

    Dim r As Row = Tables("游戏个人数据s_龙源宝藏").Current

    

    Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

    lvw.StopRedraw() '暂停绘制

    lvw.Rows.Clear() '清除原来的行

    lvw.Images.Clear() '清除原来的图片

    lvw.View = ViewMode.Tile '显示模式为平铺

    lvw.Images.LargeSize = New Size(96,96) '定义大图标尺寸

    lvw.TitleSize = New Size(150,150)  '设置平铺区域的大小

    

    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()

    c.Name = "成长勋章"

    

    For Each dr As DataRow In DataTables("成长勋章").Select("学生编号 = '"& r("学生编号") &"'") '从数据表中提取数据

        Dim Key As String = dr("成长勋章") '获取此员工的照片文件

        lvw.Images.AddLargeImage(Key, Key & ".png") '添加照片,直接用文件名作为图片键值

        Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行

        vr.ToolTipText = dr("成长勋章") & Chr(10) & dr("日期")  '设置此行的动态提示

        vr.ImageKey = Key '设置图片键值

        

        vr("成长勋章") = dr("成长勋章")

        

    Next

    lvw.ResumeRedraw() '恢复绘制