不是ListView1.Items.SubItems
为企业提供成都网站制作、成都做网站、网站优化、网络营销推广、竞价托管、品牌运营等营销获客服务。创新互联建站拥有网络营销运营团队,以丰富的互联网营销经验助力企业精准获客,真正落地解决中小企业营销获客难题,做到“让获客更简单”。自创立至今,成功用技术实力解决了企业“网站建设、网络品牌塑造、网络营销”三大难题,同时降低了营销成本,提高了有效客户转化率,获得了众多企业客户的高度认可!
而是ListView1.Items(序号).Subitems
首先ListView1.Items是一个集合。
ListView1.Items(序号)表示集合内的一个个体,即ListViewItem
所以应该是这样
Dim litem As New ListViewItem
litem.Text = Fico
litem.SubItems.Add(Fname)
litem.SubItems.Add(Ftype)
litem.SubItems.Add(Fpath)
ListView1.Items.Add(litem)
这里把你的Fico当作了String,如果要显示图标,应该配合ImageList添加。
就用ComboBox,ComboBox由一个List和一个text组成,List里是一个个的对象有ValueMember和DisplayMember两个属性。你将DisplayMember属性改成usercode,username 即可。
问题有点乱啊……小弟认为的话做一个Sub,在每次删除List和添加list过程的后面加上这个Sub
Public Sub List1Change() '先添加两个command,分别为Cmd1,Cmd2和一个Listbox,为 List1。当发生删除List或添加List事件之后加上这个事件。
For i = 0 To List1.ListCount - 1
If IsNumeric(CStr(Split(Trim(List1.List(i)) " ", " ")(0))) = True Then
List1.List(i) = i + 1 " " Split(List1.List(i) " ", " ")(1)
'如果已有标记,更新标记
Else
List1.List(i) = i + 1 " " Trim(List1.List(i))
'如果没有标记则添加标记
End If
Next
End Sub
Private Sub cmd1_Click()
List1.AddItem "今天的天气是:" cmd1.Caption
Call List1Change
End Sub
Private Sub Cmd2_Click()
List1.AddItem "今天的天气是:" Cmd2.Caption
Call List1Change
End Sub
完成的效果:
否则的话建议你用ListView,我比较擅长ListView,功能多,而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款