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

    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() \'恢复绘制