VFP关于webbrowser控件问题
我在webbrowser控件的documentcomplete事件里写入：
if thisform.webbrowser.readystate!=thisform.web.readystate_complete
return
else
thisform.webbrowser.navigate('www.shipfinder.com')
thisform.webbrowser.document.forms("cbgz").searchkey.VALUE="LUO SHENG"
thisform.webbrowser.document.forms("cbgz").search.click
endif
执行的时候 只把www.shippfinder.com这个网页打开，没有把LUO SHENG这个值填入框里 也没有执行搜索按钮，不知道哪里出错了
我看了网页的代码，输入框的ID是searchkey 搜索按钮的ID是search 我是要软件自动填入LUO SHENG这个船名 然后自动点击搜索按钮。
[解决办法]
thisform.webbrowser.document.forms("cbgz").searchkey.VALUE="LUO SHENG"
这是神马写法？？document对象中哪里来的cbgz这个东东，混乱啊混乱，呵呵。
试试这个
oInputBox = thisform.webbrowser.document.getElementById("searchKey")
oInputBox.Value = "LUO SHENG"
oSearchButton = thisform.webbrowser.document.getElementById("search")
oSearchButton.Click
[解决办法]
*--表单的 Load 事件加代码：_vfp.AutoYield=.F. &&当表单包含 ActiveX 控件时，应将 AutoYield 属性设置为假(.F.),不处理未决的 Windows 事件表单的 Unload 事件加代码：_vfp.AutoYield=.T.*--Webbrowse控件的DocumentComplet事件加代码：*** ActiveX Control Event ***Lparameters pdisp, urlThisform.Tag=url*--查询按钮 Click 事件代码:Thisform.Tag=""Thisform.webbrowser.Navigate('www.shipfinder.com')Do While .T. If !Empty(Thisform.Tag) Exit Endif Inkey(0.2,"H") &&防止程序失去响应EnddoThisform.webbrowser.Document.getElementById('searchkey').Value='LUO SHENG' && 此处换成你的字段名Thisform.webbrowser.Document.getElementById('search').click