- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 天气预报插件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184552)
-- 发布时间：2022/12/13 15:09:00
-- 天气预报插件
在论坛上下载天气预报设置上去弹窗脚本错误，不知那里问题老师帮忙看看
Dim ss As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
ss.Address = "http://www.tianqi.com/index.php?c=code&id=12&icon=1&num=5"
-- 发布时间：2022/12/13 15:49:00
--
Dim ss As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim webb = ss.BaseControl
webb.ScriptErrorsSuppressed = True
ss.Address = "http://www.tianqi.com/index.php?c=code&id=12&icon=1&num=5"
-- 发布时间：2022/12/13 16:32:00
--
谢谢
-- 发布时间：2022/12/14 11:31:00
--
蓝老师：还有点问题这天气预报设置在窗口怎么是竖向，是不是代码上区分横向和竖向，用网页打开又是横向，
-- 发布时间：2022/12/14 11:33:00
--
可能是自适应的吧，窗口和控件拉宽一点看看
-- 发布时间：2022/12/15 7:41:00
--
换一个窗口插件又出现一个问题，代码设置在窗口事件AfterLoad
Dim strXML As String = Functions.Execute("getXML", "http://www.webxml.com.cn/WebServices/WeatherWebService.asmx/getSupportProvince")
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.LoadXml(strXML)
Dim ndList As System.XML.XmlNodeList = xmlDoc.GetElementsByTagName("string")
Dim tvw_City As WinForm.TreeView = e.Form.Controls("tvw_City")
For Each Nd As System.XML.XmlNode In ndList
tvw_City.Nodes.Add(Nd.InnerText)
Next
xmlDoc = Nothing
-- 发布时间：2022/12/15 8:44:00
--
项目里没有getXML这个函数
Dim strXML As String = Functions.Execute("getXML", "ht...
-- 发布时间：2022/12/15 8:51:00
--
需要怎么设置getXML这个函数
-- 发布时间：2022/12/15 9:06:00
--
从哪里抄的，看别人项目的函数：http://www.foxtable.com/webhelp/topics/1486.htm
-- 发布时间：2022/12/15 9:21:00
--
谢谢老师指导，不知道那里面还有内部函数，可以了，谢谢