这个简单的问题有点怪，请教

Question

 ListView1.ListItems(i).SubItems(5)'网址列
 aaa = ListView1.ListItems(i).SubItems(5)
 bbb = GetHtmlStr(aaa)这里的bbb值是空的而:
 bbb = GetHtmlStr("http://www.xxx.com") bbb却可以得到源码这是什么原因造成的呢？---------------------------------------
aaa = Str(ListView1.ListItems(i).SubItems(5))
msgbox aaa
我把字符类型改为字符串，msgbox 无法运行，提示类型错误listview里的列的值是什么数值类型？

Answer 1

ListView1.ListItems(i).SubItems(5)'网址列
 aaa = ListView1.ListItems(i).SubItems(5)
 bbb = GetHtmlStr('"&aaa&"')

Answer 2

aaa是个变量 传值要用"& aaa &"来表示,试下这个
ListView1.ListItems(i).SubItems(5)'网址列
 aaa = ListView1.ListItems(i).SubItems(5)
 bbb = GetHtmlStr(""&aaa&"")

Answer 3

试了,不行.我把网址放在listbox里然后循环读源码却是可以.问题不是出在listview 里吧?

Answer 4

Dim i, aaa As String, bbb
For i = 1 To ListView1.ListItems.Count Step 1  ListView1.ListItems(i).Selected = True
  aaa = ListView1.ListItems(i).SubItems(5)
  bbb = GetHtmlStr(aaa)  List2.AddItem aaa
  Text20.Text = bbb
  DoEvents
Next i循环代码是这样的，不知道问题出在哪里

Answer 5

Dim i, aaa As String, bbb
For i = 0 To List1.ListCount - 1 Step 1
  MsgBox List1.List(i)
  List1.Selected(i) = True
  bbb = GetHtmlStr(List1.List(i))
  
  List2.AddItem aaa
  Text20.Text = bbb
  DoEvents
Next i用这段代码却没有问题，listbox

Answer 6

try:
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems(i).Selected = True Then
        bbb = GetHtmlStr("ListView1.ListItems(i).SubItems(5)")
    End If
    Text20.Text = bbb
    DoEvents
Next i

Answer 7

解决了，谢谢你lxq19851204,问题是由ListView1.ListItems(i).SubItems(5)值的空格引起，把空格过滤掉就OK了，Thanks for your time

Answer 8

lz结贴吧，lxq19851204等着呢