各位大虾:
我加载了一个别人的窗体,别人用的是好的为什么我的不行?总是出现类型不匹配的错误?代码如下
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
我加载了一个别人的窗体,别人用的是好的为什么我的不行?总是出现类型不匹配的错误?代码如下
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
Set Itm = URLs.ListItems.Add(x, , URL.Title) 你这样子改看看,不知道有没有帮助
------------------------------
查看下Add方法返回和参数
我已经在5楼更正了lz的代码,不知道lz解决了么