VBListBox的测试

VbWindow("Form1").VbButton("Command1").Click
'VbWindow("Form1").VbList("List1").Select "收费金额:5"
'VbWindow("Form1").VbList("List1").Select 0
'dd =  VbWindow("Form1").VbList("List1").GetVisibleText()'获取了所有列的文本
'VbWindow("Form1").VbList("List1").
'msgbox dd
cc = VbWindow("Form1").VbList("List1").GetItem(3)
dd = mid(cc, 1,4)
'dd = left(cc, 4)

If dd = "收费金额" Then
    msgbox "收费金额"
    leng = len(cc)
    dd = right(cc, leng - 5)
    '比较预输出结果(收费金额)与实际结果是否一致
    msgbox dd
End If

cc = VbWindow("Form1").VbList("List1").GetItem(4)
dd = mid(cc, 1,4)
'dd = left(cc, 4)
If dd = "收费金额" Then
    msgbox "收费金额"
     leng = len(cc)
    dd = right(cc, leng - 5)
    msgbox dd
End If