被该问题困扰很久,很多有iframe框架组成的页面都不好判断其完全加载完成,特别是包含了iframe富文本编辑器的网页,再次希望大神们给出您宝贵的意见及思绪…
解决方案 »
- 有没有办法这样结合特性和线程
- 如何datagridview禁止修改单元格``
- 100分求CodeSmith3.1+3.2+注册机(必须能用)
- 此控件的tagprefix未在该web窗体中注册????这是怎么回事?高手~!大侠~!帮忙~!
- 自定义控件如何调用外部控件
- 求c#在线视频音频播放器
- 输入问题?winform中的DataGrid控件
- 小问题,怎么判断整数n是否是10的倍数,在线等待,谢谢
- 为什么把\\test去掉,连接数据库就失败!!!?????不明白!!谢了!
- 在线急等
- 64位中PRINT_NOTIFY_INFO_DATA这个Structure该怎么定义
- WCF传大于21M的文件就会出错,改了配置无效
webBrowser_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
……//自己写你想实现的}
{
if(e.Url!="自己想转到的URL")
return;……//自己写你想实现的}
或者用contains
Public Function IsHPOpen(ByVal HP As String) As Boolean
IsHPOpen = False
Dim sWind As ShellWindows
Dim IE As InternetExplorer
Set sWind = New ShellWindows
TT = Now()
LINE1: Do While DateAdd("S", 20, TT) > Now() '等待20秒
For Each IE In sWind
If InStr(IE.LocationURL, HP) <> 0 Then
N = IE.Document.Frames.Length - 1
If N > -1 Then
For I = 0 To N
If UCase(IE.Document.Frames(I).Document.ReadyState) <> "COMPLETE" Then
GoTo LINE1
End If
If I = N And UCase(IE.Document.Frames(I).Document.ReadyState) = "COMPLETE" Then
GoTo LINE2
End If
Next
End If
LINE2: M = IE.Document.All.Length - 1
If M > -1 Then
If UCase(IE.Document.ReadyState) = "COMPLETE" Then
IsHPOpen = True
Exit Function
End If
End If
End If
Next
Loop
End Function
十九楼不是写了 .Document.Frames(I).Document.ReadyState 么。