请教objIE.FullName这句为什么一直都不能通过呢?

yunok 2005-06-05 10:24:45
这是一段取得所有IE窗口标题和地址的代码,但是objIE.FullName这个好像有问题,请教如何解决?

Option Explicit
Dim WithEvents objIEMain As WebBrowser_V1
Dim objIE As Object
Dim dWinFolder As New ShellWindows


Private Sub Command1_Click()

If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then
For Each objIE In dWinFolder
List1.AddItem objIE.Document.Title
List2.AddItem objIE.LocationURL
Next
End If
End Sub
...全文
74 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
weesky 2005-06-05
If InStr(1, objIE.FullName, "IEXPLORE", vbTextCompare) <> 0 Then还没得到值
顺序写反了
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告