Foxtable(狐表)用户栏目专家坐堂 → [求助]ListView 图片显示的时候 如何在右上角显示数量?


  共有3192人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
yangguojun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:818 威望:0 精华:0 注册:2013/8/11 9:54:00
[求助]ListView 图片显示的时候 如何在右上角显示数量?  发帖心情 Post By:2017/11/25 14:54:00 [只看该作者]

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

类似帮助文件里 用ListView导航 里面的效果

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105962 积分:538885 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/25 14:58:00 [只看该作者]

哪一个效果?截图看看

 回到顶部
帅哥哟,离线,有人找我吗?
yangguojun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:818 威望:0 精华:0 注册:2013/8/11 9:54:00
  发帖心情 Post By:2017/11/25 15:01:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
yangguojun
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:818 威望:0 精华:0 注册:2013/8/11 9:54:00
  发帖心情 Post By:2017/11/25 15:02:00 [只看该作者]

图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105962 积分:538885 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/25 15:41:00 [只看该作者]

这种是动态生成的图片,参考

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:右上角图标.table



 回到顶部
帅哥哟,离线,有人找我吗?
yangguojun
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:818 威望:0 精华:0 注册:2013/8/11 9:54:00
  发帖心情 Post By:2017/12/7 14:25:00 [只看该作者]

效果不太一样, 我的截图里数字在图标上,篮版 的例子在 下面名称上,有没有办法显示到图标上?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 14:37:00 [只看该作者]

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
yangguojun
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:102 积分:818 威望:0 精华:0 注册:2013/8/11 9:54:00
  发帖心情 Post By:2017/12/7 15:23:00 [只看该作者]

搞定了  多谢图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2018/2/17 18:00:00 [只看该作者]

不错

 回到顶部