Question

webbrowser无法取得页面标题

我的显示标题代码如下：
事件：dowmloadcomplete
dim a as string
dim b as string
a = webbrowser1.LocationName
b = replace(a,"- 高清正版在线观看 - 搜狐视频","- 正在观看"
main.Caption = b

可打开程序后要等很久才出现“XXX - 正在观看”
是不是放错了事件？

Answer 1

页面标题是 webbrowser1.document.title

如果要实时显示标题,可以把代码放到 WebBrowser1_TitleChange 事件...

Answer 2

在titlechange事件中写：窗口.Title = text就行了