在documentcomplete事件中加入下面几行代码,这几行代码的意思是说,若没加载完成,继续执行加载!
while (wb.ReadyState != System.Windows.Forms.WebBrowserReadyState.Complete){
System.Windows.Forms.Application.DoEvents()
}
1. 首先,需要在工具栏中导入“Microsoft WEB 浏览器”。可以在工具栏上点右键,选择“添加/移除项”。然后在出现的自定义工具箱中选择“COM组件”,最后在组件中找到“Microsoft Web 浏览器”,勾选并确定。2. 建立一个Form,在工具栏中选择“Microsoft Web浏览器”组件,放到Form中。
3. 使用以下的代码,以便导入一个Excel表格:
axWebBrowser1.Navigate(@"c:\test\test.xls")
4. 加入axWebBrowser1的DocumentComplete事件。并在事件中获取Excel的Ole对象:
public Excel.Workbook wb
private void axWebBrowser1_DocumentComplete(object sender, AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent e)
{
wb = (Excel.Workbook)axWebBrowser1.Document
}
5. 通过wb,就可以直接访问Excel表格了。
VB6.0可通过WebBrowser控件的DocumentComplete事件来获取当前打开页面的URL(网址)。
DocumentComplete事件
描述
当被导航到该文件达到READYSTATE_COMPLETE状态时发生。
URL 属性
设置或返回 Execute 或 OpenURL 方法使用的
URL。
代码实例,新建VB的EXE工程,添加一个WebBrowser控件到窗体,放置一个TextBox控件。
Private Sub Form_Load()
On Error GoTo useErr
WebBrowser1.Navigate "http://zhidao.baidu.com/"
Exit Sub
useErr:
Print "ERR"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = URL
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)