VB6 ช่วยดูให้ทีครับ เกี่ยวกับ webbrowser
Private Sub Form_Load() WebBrowser.Navigate ("http://www.kapook.com") End Sub
Private Sub WebBrowser_DownloadComplete() 'you must add the "Microsoft HTML Object Library"!!!!!!!!! Dim HTMLdoc As HTMLDocument Dim HTMLlinks As HTMLAnchorElement ' List the links. On Error Resume Next Set HTMLdoc = WebBrowser.Document For Each HTMLlinks In HTMLdoc.links Listads.AddItem HTMLlinks Next HTMLlinks End Sub
จาก code ข้าง บน มานจะโชว์ link ในเว็บทั้งหมด กำหนดไม่ได้
ช่วยแก้หน่อยครับ คือ ผมอยากให้มาน โชว์ Link ใน Listbox เฉพาะ ที่เรากำหนด อะครับ เช่น ผมสร้าง textbox มา 1 อัน ใส่คำว่า index ใน listbox ก็จะ โชว์ http://www.kapook.com/index.php ถ้าใส่คำว่า kapook ใน listbox ก็จะ โชว์ link ทั้งหมดของหน้า page นั้น
|