用VB(或者VB.net)怎样打开“浏览文件夹窗口”?(如图)Private Sub Command1_Click()
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 0, "")
If Not sf Is Nothing Then
MsgBox "选择的文件夹是"vbCrLfsf.self.Path
End If
Set sf = Nothing
End Sub
如何编写vb.net程序,打开IE浏览器如下两种方法,
1,
采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用 。
【vb.net浏览 vbnet web】Shell("rundll32
url.dll
FileProtocolHandler
")
2 , 采用IE打开,只要更改为你的ie路径就可以了 。不建议使用这个方法 。
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
")
vb.net如何重置IE浏览器设置?或vb.net如何设置IE浏览器忽略网页上指定的VB.NET调用IE代码示例:
Dim p As New Process
'获得URL
aURL = GetURL()
'获得IE路径
p.StartInfo.FileName =
System.Environment.
GetFolderPath( _
Environment.SpecialFolder.
ProgramFiles).Trim() _
"\Internet Explorer\
IEXPLORE.EXE"
p.StartInfo.Arguments
= aDenURL
'启动IE
'p.Start(aDenURL)
p.Start()
'主程序开始等待IE结束
p.WaitForExit()
另一种VB.NET调用IE的方法
Imports System.Threading
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e
As System.EventArgs) Handles
Button1.Click
Dim webobj As Object
webobj = CreateObject("Internet
Explorer.Application")
With webobj
.visible = True
.Navigate2(";)
Do While (.busy Or .readyState4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = https://www.04ip.com/post/Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
关于vb.net浏览和vbnet web的介绍到此就结束了 , 不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。
推荐阅读
- 抖音直播运营方案比亚迪,抖音直播运营发展前景
- 鸿蒙系统改成英文模式,鸿蒙系统怎么切换成中文
- python用字典求班级平均成绩,python求字典的平均值
- 变态游戏恋爱养成,变态游戏恋爱养成小说
- php修改数据库一行记录 php数据库修改语句
- redis提高性能,Redis性能瓶颈
- 毕业设计题目网站类的,毕业设计做个网站题目
- 幼儿园便利店益智游戏教案,中班便利店教案
- php防止刷数据库 php防sql