+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعده بالتعامل مع web browser (/showthread.php?tid=20710)
مساعده بالتعامل مع web browser - qadar elzaman - 11-06-17
عند الضغط علي رابط معين يقوم بفتح الصفحه الجديده في الانترنت اكسبلورر
انا اريده يقوم بفتحه في تاب جديده في نفس البرنامج لا اريدها في الانترنت اكسبلورر
قمت بتجربه عدت اكواد ولم تنجح
منها هذا الكود
كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim StartingUrl As String = "http://www.dreamincode.net/forums/topic/381977-opening-links-in-new-tabs-in-my-tabbed-webbrowser/"
newTab(StartingUrl)
End Sub
Private Sub newTab(ByVal url As String)
Dim browser As New WebBrowser
AddHandler browser.NewWindow, AddressOf BrowserNewWindow
AddHandler browser.DocumentCompleted, AddressOf BrowserDocumentCompleted
With browser
.Dock = DockStyle.Fill
.ScriptErrorsSuppressed = True
.Navigate(url)
End With
Dim tp As New TabPage("Loading...")
tp.Controls.Add(browser)
TabControl1.Controls.Add(tp)
TabControl1.SelectedTab = tp
End Sub
Private Sub BrowserNewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
Dim wb As WebBrowser = DirectCast(sender, WebBrowser)
Dim element As HtmlElement = wb.document.ActiveElement
Dim newurl As String = element.GetAttribute("href")
e.Cancel = True
newTab(newurl)
End Sub
Private Sub BrowserDocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
Dim wb As WebBrowser = DirectCast(sender, WebBrowser)
wb.Parent.Text = wb.DocumentTitle
End Sub
End ClassRE: مساعده بالتعامل مع web browser - qadar elzaman - 11-06-17
UUUUUUUUUUUUUUUUUUUUUUUUUp
up up
up
RE: مساعده بالتعامل مع web browser - anes - 11-06-17
(11-06-17, 06:14 PM)qadar elzaman كتب : UUUUUUUUUUUUUUUUUUUUUUUUUp
up up
up
ممكن توضح شويا على شان توصل للحل
RE: مساعده بالتعامل مع web browser - qadar elzaman - 11-06-17
عندي اداة webbrowser
عندي اداة tabcontrol
أريد عند الضغط على رابط بالصفحه داخل اداة webbrowser اريده ان يفتح tabpage جديده
لا ان يذهب الى الانترنت اكسبلولر ويفتح الصفحه هناك
RE: مساعده بالتعامل مع web browser - سعود - 24-06-17
مارايك بالاطلاع على الرابط التالي:
http://vb4arb.com/vb/showthread.php?tid=16288&pid=78984#pid78984
RE: مساعده بالتعامل مع web browser - عبدالرحمن المكاوي - 24-06-17
تابع هنا اخي http://vb4arb.com/vb/showthread.php?tid=20536
RE: مساعده بالتعامل مع web browser - qadar elzaman - 25-06-17
بارك فيكم اساتذتي الكرام وبوركت جهودكم
وجدت الحل الحمدلله
وهذا الملف السورس كود لمن اراد ان يستفيد :
https://up.top4top.net/downloadf-541ah2ou1-zip.html
وهوا بال سي شارب و وانا قد قمت بتحويله الى الدوت نت مع حذف بعد الاكواد