VB里如何调用Windows文件浏览器打开文件夹?

VB里如何调用Windows文件浏览器打开文件夹?,第1张

如打开d盘

Private Sub Command1_Click()

Shell "Explorer " &"d:\", vbNormalFocus

End Sub

我试了,可以啊

除非你电脑里没d盘

VB可使用WebBrowser控件实现浏览器功能。

新建EXE工程,添加一个TextBox控件,添加Microsoft Internet Controls部件到工具箱。

窗体上添加WebBrowser控件。调整好窗体、各控件尺寸。

使用以下代码:

Private Sub Form_Load()

    WebBrowser1.Navigate "http://zhidao.baidu.com"

    Do

        DoEvents

        If Not WebBrowser1.Busy And WebBrowser1.LocationURL <> "http://www.wk78.com/" Then

            Exit Do

        End If

    Loop

End Sub

Private Sub Text1_Click()

    WebBrowser1.Navigate Text1.Text

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)

    If (pDisp Is WebBrowser1.Object) Then

        Text1 = WebBrowser1.LocationURL

    End If

End Sub


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/tougao/11787604.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-18
下一篇 2023-05-18

发表评论

登录后才能评论

评论列表(0条)

保存