写了个“IE导航助手”还有点问题，请高手帮忙解决一下 谢谢

Question

写了个“IE导航助手”还有点问题，请高手帮忙解决一下  谢谢
代码如下
Dim dWinFolder As New ShellWindowsPrivate Sub Command1_Click()
   
    If List1.ListIndex >= 0 Then
        
       
        List2.AddItem List1.Text
        List3.AddItem (Text1.Text & "   " & List1.Text)
       
        List1.RemoveItem List1.ListIndex
                 
    End If
End SubPrivate Sub Command2_Click()
 Dim i As Integer
 Dim j
    '判断所选 元素是否只有一个
    If List3.SelCount = 1 Then
        j = List3.ListIndex
        List3.RemoveItem List3.ListIndex
        List2.RemoveItem j
        '如果所选 元素大于1，则按下列操作进行
        ElseIf List3.ListCount > 1 Then
        For i = List3.ListCount - 1 To 0 Step -1
            
            If List3.Selected(i) Then
                j = List3.ListIndex
                List3.RemoveItem i
                List2.RemoveItem j
            End If
        Next i
    End If
End SubPrivate Sub List3_dblClick()
Dim i, j
For i = 0 To List3.ListCount
 If List3.Selected(i) Then
                j = List3.ListIndex
              'Print List2.List(j)
Shell "explorer List2.List(j)"
'打印结果是合法网址，可运行显示路径不存在，请大家帮忙解决一下
End If
Next
End SubPrivate Sub Timer1_Timer()
List1.Clear
    Dim objIE As Object
    For Each objIE In dWinFolder
        List1.AddItem objIE.LocationURL
    Next
End SubPrivate Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub
 

Answer 1

在通用部分加入API声明:
Private 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 Long
把
Shell "explorer List2.List(j)" 
改成ShellExecute 0&, vbNullString, List2.List(j),vbNullString, vbNullString, vbNormalFocus

Answer 2

thank you very much
还有个问题能帮忙解决一下吗 谢谢Private Sub List3_dblClick() 
Dim i, j 
For i = 0 To List3.ListCount 
If List3.Selected(i) Then '运行显示“无效属性数组索引”
                j = List3.ListIndex 
ShellExecute 0&, vbNullString, List2.List(j),vbNullString, vbNullString, vbNormalFocus 
End If 
Next 
End Sub 

Answer 3

thank you very much
还有个问题能帮忙解决一下吗 谢谢Private Sub List3_dblClick() 
Dim i, j 
For i = 0 To List3.ListCount 
If List3.Selected(i) Then '运行显示“无效属性数组索引”
                j = List3.ListIndex 
ShellExecute 0&, vbNullString, List2.List(j),vbNullString, vbNullString, vbNormalFocus 
End If 
Next 
End Sub 

Answer 4

Private Sub List3_dblClick() 
Dim j 
 j = List3.ListIndex 
ShellExecute 0&, vbNullString, List2.List(j),vbNullString, vbNullString, vbNormalFocus 
End Sub 这样就行了另外这里是List2.List(j)还是List3.List(j)?