vb 类型不匹配(高分)

Question

各位大虾:
  我加载了一个别人的窗体,别人用的是好的为什么我的不行?总是出现类型不匹配的错误?代码如下
Dim History As CURLHistoryPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Form_Load()
    
    Set History = New CURLHistory
    
    mnuRefresh_Click 0
    
End Sub
Private Sub Form_Resize()    URLs.Move 0, 0, ScaleWidth, ScaleHeight
    
End Sub
Private Sub mnuOpen_Click()
    
    ShellExecute Me.hwnd, "open", URLs.SelectedItem.SubItems(1), "", "", 1
    
End SubPrivate Sub mnuRefresh_Click(Index As Integer)
Dim URL As URLHistoryItem, Itm As ListItem
    
    Select Case Index
        Case 1
            History.Refresh "ftp"
        Case 2
            History.Refresh "http"
        Case 3
            History.Refresh "file"
        Case 4
            History.Refresh "mk"
        Case Else
            History.Refresh
    End Select
    
    URLs.ListItems.Clear
    
    For Each URL In History
    
        If (mnuToday.Checked And DateValue(URL.LastVisited) = DateValue(Now())) Or mnuToday.Checked = False Then
            
            Set Itm = URLs.ListItems.Add(, , URL.Title) //////错误的地方,报错误13 类型不匹配
            Itm.SubItems(1) = URL.URL
            Itm.SubItems(2) = URL.LastVisited
            Itm.SubItems(3) = URL.LastUpdated
            Itm.SubItems(4) = URL.Expires
            Itm.SubItems(5) = URL.Flags
            
        End If
        
    NextEnd SubPrivate Sub mnuToday_Click()    mnuToday.Checked = Not mnuToday.Checked
    
End SubPrivate Sub URLs_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)    URLs.SortKey = ColumnHeader.Index - 1
    
End Sub

Answer 1

Dim x as longx=x+1
Set Itm = URLs.ListItems.Add(x, , URL.Title) 你这样子改看看，不知道有没有帮助

Answer 2

Itm = URLs.ListItems.Add(, , URL.Title)
------------------------------
查看下Add方法返回和参数

Answer 3

检查一下URLs.ListItems.Add（）看看里面的参数到底是什么类型,用URL.Title传值进来可能将类型自动转变了。试着直接传值进来的，看看是否还有这样的问题，若有就是URLs.ListItems.Add（）里的参数有问题,若不是就用类型转换函数把URL.Title的类型转换一下！

Answer 4

我记得ListItems.add()的第一个参数是Key值，需要给一个唯一值

Answer 5

我已经在5楼更正了lz的代码，不知道lz解决了么