Jump to content
Xtreme .Net Talk

Search the Community

Showing results for tags 'richtextbox'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • New Member at Xtreme .Net Talk?
    • Meet and Greet
    • Announcements
  • .NET
    • General
    • Windows Forms
    • ASP.NET
    • Directory / File IO / Registry
    • Database / XML / Reporting
    • Network
    • Graphics and Multimedia
    • Interoperation / Office Integration
    • Deployment
    • Regular Expressions
    • Syntax Specific
  • Knowledge Base
    • Tutors Corner
    • Code Library
    • Quick Tips
  • Xtreme .Net Talk Members Area
    • Water Cooler
    • Suggestions, Bugs, and Comments

Blogs

There are no results to display.

Categories

  • Code Samples
  • Tutorials & Guides
  • Articles
  • Code Downloads

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


About Me


Location


Occupation


Visual Studio .NET Version


.NET Preferred Language


Skype


Facebook


Twitter ( X )

Found 1 result

  1. Hi,I'm Polas and i need to someone to help me to fix the problem. The problem is how remove these google junk pages from richtextbox and fix listbox problem ? Here is the picture to understand what i mean. http://s1.ipicture.ru/uploads/20120804/bzt2Kk9l.png This code is for richtextbox to add pages. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim htmlele As HtmlElementCollection htmlele = WebBrowser1.Document.GetElementsByTagName("h3") For Each htm As HtmlElement In htmlele Dim chld As HtmlElementCollection = htm.GetElementsByTagName("a") For Each ch As HtmlElement In chld If ch.GetAttribute("href").Contains("google") And ch.GetAttribute("href").Contains("http") Then RichTextBox1.AppendText(ch.GetAttribute("href") & vbCrLf) End If Next Next End Sub This code adds pages from ritchtextbox and seperate and adds only matched pages in listbox but something wrong with richtextbox and with listbox. The richtextbox pages scrolls good and adds in it all links but with google junk pages and in listbox it adds only some links wwithout google junk page. So how do i fix this problem ? do someone knows ? listbox removes google pages and not add them in list but adds only some of them not all i it should be. Dim allelements As HtmlElementCollection = WebBrowser1.Document.Links For Each url As HtmlElement In allelements If Not url.GetAttribute("href").Contains("google") And url.GetAttribute("href").Contains("http") Then lbx.Items.Add(url.GetAttribute("href")) End If
×
×
  • Create New...