还是读卡的问题 给个思路
这是第一次读卡
For tempi = 0 To ncounter - 1
Set litem = Form1.ListView1.ListItems.Add(, , "0") '显示序号
litem.SubItems(1) = tempi + 1
litem.SubItems(2) = temp(tempi) '显示所有读到的卡
litem.SubItems(3) = times
Next tempi
temp(tempi)读到卡都放此数组里 因为读的卡号次序是随机的 所以
第二次读卡 时 次序和第一次存放的次序 不同
比如 第一次
temp(0)=12
temp(1)=13
temp(2)=14
第二次读到的次序可能是
temp(0)=13
temp(1)=14
temp(2)=12
现在 想每次显示的效果都以 第一次为基础 跟以后每次读的 都和第一次的比较
相同的就 在次数列加一次 (如 第二次读的 temp(0)=13 和第一次读到的 三条一一比较 因和temp(1)相等 所以 第一次的temp(1)的次数列加一次 )
不同的 再加一行
谢谢了 大概的思路
问题点数：20、回复次数：5Top
1 楼homezj（小吉）回复于 2005-02-01 22:36:15 得分 5
用卡号做关键字呀，第二次，用关键字找Item就行了。Top
2 楼sinos_sinos（挑战不是障碍 人生处处精彩）回复于 2005-02-02 07:39:36 得分 0
ITEM? key? 此控件不是很熟悉 查书 也没有几本书介绍的
能大概说说么Top
3 楼of123（）回复于 2005-02-02 09:06:52 得分 15
用 ListBox（或 ComboBox） 控件很容易解决：ListBox 的 List 保存卡号，相应的 ItemData 属性保存频数。用下列 API 查找已有的列表项：
Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Const CB_FINDSTRINGEXACT = &H158
例：
Dim n As Integer
......
n = SendMessagebyString(List1.hWnd, LB_FINDSTRINGEXACT, -1, CStr(tmp(i)))
If n = -1 Then
List1.AddItem CStr(tmp(i))
List1.ItemData(List1.NewIndex) = 1
Else
List1.ItemData(n) = List1.ItemData(n) + 1
End If
Top
4 楼sinos_sinos（挑战不是障碍 人生处处精彩）回复于 2005-02-02 19:11:33 得分 0
listview 控件就不行 么?
LIST能像 listview控件一样 在最顶部 列出标题么?如
序号 内容 作者
1 WWW ANYD
2 EEE TOM
Top
5 楼sinos_sinos（挑战不是障碍 人生处处精彩）回复于 2005-02-03 21:41:01 得分 0
List1.ItemData(n) = List1.ItemData(n) + 1
能计算出 次数
好象没办法 显示在 次条记录的后面啊Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
