摘要：
Private Sub Command1_Click() Call showiframes(WebBrowser1)End Sub Private Sub showiframes(wb As WebBrowser) Dim i%, j%, intFraLen%, objFraColl As Object Dim vTag As Object Dim strNode2 As String Set objFraColl = wb.Document.frames intFraLen = objFraColl.length Text1.Text = Text1.Text & "wb.Document 阅读全文
posted @ 2009-07-30 18:10 随风飘零0 阅读(191) 评论(0) 推荐(0) 编辑