扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
我不得不说,楼主很贪心!
创新互联公司主营鄂城网站建设的网络公司,主营网站建设方案,成都app软件开发公司,鄂城h5小程序开发搭建,鄂城网站营销推广欢迎鄂城等地区企业咨询
“选项卡”的已经很不错了,人家勉强可以无偿提供给你
“网页缩放”,呵呵,楼主太天真了,人家有也不会把功能这么完善的给你!
谁愿意把自己辛辛苦苦做的东西送给人家呢!
建议楼主还是先去下载一个单窗口、能前进、后退、刷新、地址栏的小作品!然后再在这个基础上自己完善一下!
简单的可以提供给你,复杂的也有,但是不免费提供!
如果楼主需要简单的,可以HI我!
1、如果不用用户控件,那就用Panel,单击按钮时显示相应的Panel,隐藏不相关的Panel。
2、E死了:
ADD按钮的Click事件:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一个Form2窗口,里面有一个文本输入框TextBox1和一个按钮Button1。
Form2.Show() '打开编辑窗口。
End Sub
Form2窗口的Button1按钮事件Click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text "" Then '当TextBox1的类容不为空时。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的类容添加到ListView中。
Me.Close()'添加完后关闭窗口。
Else ’Else,如果为空。
Dim k = MsgBox("类容为空!" Chr(10) "是否取消添加?", vbYesNo)'提醒用户是否取消向ListView添加类容。
If k = vbYes Then '用户点击确认时。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要点“项目”“添加Windows窗体”,在弹出的对话框中的“名称”写为“Form2.vb”,再“创建”,就行了。之后在里面添加相应的用户控件。
如下两种方法,
1,
采用默认的浏览器打开FTP站点,不需要知道IE在什么地方,建议采用。
Shell("rundll32
url.dll
FileProtocolHandler
")
2,采用IE打开,只要更改为你的ie路径就可以了。不建议使用这个方法。
Shell("C:\Program
Files\Internet
Explorer\iexplore.exe
")
你说的操作是像人一样用鼠标点击网页?
直接应该是不行的,可以考虑先抓包分析数据包,在模拟浏览器发送请求获取数据,然后进行相应处理
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 .readyState 4)
Thread.Sleep(100)
Loop
.Document.f.q.Value = Me.TextBox1.Text
.Document.f.btng.Click()
End With
MsgBox("completed.")
End Sub
VB.net中点击标签页面触发的Selected事件,代码如下。
Private Sub TabControl_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl.Selected
If e.TabPage.TabIndex = TabPage1.TabIndex Then
MsgBox("你点击了第一个标签控件")
End If
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流