狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

動(dòng)態(tài)改變webbrowser的內(nèi)容，斷行的字無(wú)法改變，功能無(wú) 下面可以動(dòng)態(tài)改變webbrowser的內(nèi)容 1.處理方式一產(chǎn)生的問(wèn)題 如果字串有斷行就無(wú)法修改了例如 "我的書(shū) 集收藏" ""<-- 內(nèi)的是一整句 2.處理方式二產(chǎn)生的問(wèn)題 執(zhí)行後可以取代所有文字含連結(jié)也可以修改 但 原來(lái)的 js 或者是 script 的一部分功能無(wú)法使用了 請(qǐng)問(wèn)有高手知道我的問(wèn)題要如解決嗎？ 還是我方法錯(cuò)了可以指導(dǎo)我一下嗎？ '程式碼 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.WebBrowser1.Url = New System.Uri("http://www.csdn.net", System.UriKind.Absolute) End Sub 處理方式一： Private Sub WebCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted test() End Sub Private Sub test() Dim htmlDoc As HtmlDocument = WebBrowser1.Document '遍曆HtmlElement對(duì)象 For Each htmlEle As HtmlElement In htmlDoc.All With htmlEle Try '檢查目前元素的純文字 Select Case .OuterText Case "我的簡(jiǎn)曆" '根據(jù)需要取代掉 .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的帖子" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的Blog" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的網(wǎng)摘" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的書(shū)架" .OuterHtml = .OuterHtml.Replace("我", "你") Case "我的資源" .OuterHtml = .OuterHtml.Replace("我", "你") Case Else End Select Catch ex As Exception MsgBox(ex.Message) End Try End With Next End Sub 處理方式二： Private Sub WebCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted test() End Sub Private Sub test() Dim htmlDoc As HtmlDocument = WebBrowser1.Document '遍曆HtmlElement對(duì)象 For Each htmlEle As HtmlElement In htmlDoc.All With htmlEle Try '檢查目前元素的純文字 strHtml = .OuterHtml intWord = -1 Do While intWord <= UBound("目標(biāo)文字陣列") intWord += 1 strHtml = strHtml.Replace("目標(biāo)文字","取代文字") Loop .OuterHtml = strHtml Catch ex As Exception MsgBox(ex.Message) End Try End With Next End Sub 不好意思 這個(gè)問(wèn)題己經(jīng)處理了 方法是過(guò)瀘掉 js 就可以了 ^^"