vb调用IE下载接口

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
    (ByVal lpszFile As String) As Long
Private Sub Command1_Click()   'ÏÂÔØ
 If Text1.Text = "" Then
    MsgBox "ÊäÈëÏÂÔØÍøÕ¾µÄÍøÖ·²»ÄÜΪ¿Õ!", 64, "ÌáʾÐÅÏ¢"
 Else
    Dim sDownload As String
    sDownload = StrConv(Text1.Text, vbUnicode)
    Call DoFileDownload(sDownload)
 End If
End Sub
Private Sub Command2_Click()
  End
End Sub

发布了24 篇原创文章 · 获赞 1 · 访问量 3097

猜你喜欢

转载自blog.csdn.net/aeaxea43/article/details/104046358
今日推荐