这是我之前发的求助内容。
各位大神帮帮忙: 请问如何用狐表 跳转API(Chaxun URL)
------------------------------------------------------------------
这是快递100的URL API 其中 com=[变量1] nu=[变量2] 为变量
http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2]
要求实现内容:
如何用狐表自带的网页浏览器来实现 或者 打开外部的浏览器来实现都可以
【在狐表窗口设计中 添加网页浏览器 和 按钮 】
【按钮获取指定的表格中的两个单元格的内容分别加入变量1和变量2中】
【狐表自带网页浏览器打开连接http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2]】
------------------------------------------------------------------
狐表帮助里有说道
在窗口中加一个WebBrowser和一个按钮,希望单击该按钮可以显示Foxtable主页,可以将按钮的Click事件代码设为:
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = "http://www.foxtable.com/"
但是因为我的连接http://www.kuaidi100.com/chaxun?com=[变量1]&nu=[变量2] 牵涉到两个要变动的数值
这个是快递100的 跳转API 说明
Chaxun
URL使用说明
1、API地址: |
http://www.kuaidi100.com/chaxun?com=[]&nu=[] |
2、传入参数说明: |
名称 |
类型 |
是否必需 |
描述 |
com |
String |
是 |
要查询的快递公司的代码,支持中文和模糊输入
|
nu |
String |
是 |
要查询的快递单号,请勿带特殊符号,不支持中文(大小写不敏感) | |
3、返回结果说明: |
直接跳转到快递100的快递公司二级页面显示查询结果。 |
以上不知道是否您能明白。如有表达不清楚的地方请多多见谅
以上我的意思是变量可以改变,以获取单元格内的数据来打开连接
实例说明:
使用说明 在窗口设计里放一个网页浏览器和按钮,按钮里面添加以下代码。实现很容但这是菜鸟的
实现方法:这里再次感谢lin_hailun
以下内容为程序代码:
1 Dim rpt As String = "http://www.kuaidi100.com/chaxun?com=[bl1]&nu=[bl2]"
2 rpt = rpt.Replace("[bl1]","yunda")
3 rpt = rpt.Replace("[bl2]","1900171113992")
4 e.Form.Controls("WebBrowser1").AddRess = rpt
感谢 飞 的代码
外部浏览器打开
Dim R As Row = CurrentTable.Current
If R Is Nothing OrElse R.IsNull("物流编号") OrElse R.IsNull("物流公司") Then Return
Dim Proc As New Process
Proc.File = "http://www.kuaidi100.com/chaxun?com=[" & R("物流公司") & "]&nu=" & R("物流编号")
Proc.Start
内部浏览器打开
Dim R As Row = CurrentTable.Current
If R Is Nothing OrElse R.IsNull("物流编号") OrElse R.IsNull("物流公司") Then Return
Dim Proc As String
Proc = "http://www.kuaidi100.com/chaxun?com=[" & R("物流公司") & "]&nu=" & R("物流编号")
e.Form.Controls("WebBrowser1").AddRess = Proc
[此贴子已经被作者于2013-2-25 13:33:03编辑过]