主题：[求助]ListView 图片显示的时候 如何在右上角显示数量？

测试没问题啊，关键是红色代码，用来绘制圆圈和数字的。

Dim cnt As Integer = e.Form.Controls("NumericComboBox1").Value

Dim img = getimage("d:\test.ico")
Dim bmp As new bitmap(48, 48) '宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0)
g.DrawEllipse(Pens.red,30,2,15,15)
Dim fnt As New Font("宋体",10)
g.DrawString(cnt,fnt,Brushes.Black,32,4)
bmp.save("d:\test2.png")
bmp.dispose

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.AddLargeImage("Man", "d:\test.ico") '添加代表男性的一对图标
lvw.Images.AddLargeImage("Man2", "d:\test2.png") '添加代表女性的一对图标
For i As Integer = 1 To 2
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.Text = "张三" & i  '设置标题
    If i=1 Then '设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Man2"
    End If
Next
lvw.ResumeRedraw() '恢复绘制