Question

vb中ListView1如何根据txt本文的行数添加行首

ListView1添加行首 如果导入一个文本有40行的内容 行首自动从1显示到40。如果有80行就自动为1-80行
再就是怎么在读取txt文件内容的一个问题
ListView1分3列
第一列是行数
第二列显示电话区号
第三列显示点电话号码
假如txt文本中的内容格式为
0319-8826715
0319-8826716
0319-8826717
如何让 0319显示在ListView1第二列让8826715显示在第三列呢 第一列是要显示的行数
希望知道的前辈给出代码最好加上注释 我是菜鸟，先谢谢了

Answer 1

你的ListView1有几个列？三个是吗？

你的for循环中i是从1开始的，所以你用if i=0的话是不成立的。

你可以在前面定义一个变量在存放序号,如：

num_ as integer

.....

num_=0

Do While Not EOF(1)
num_=num_+1
With ListView1.ListItems.Add()
.Text =num_
For i = 1 To 2
Line Input #1, tpStr
.SubItems(i) = tpStr
Next i
End With
Loop