+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية استخدام خاصية imagekey (/showthread.php?tid=22416)
كيفية استخدام خاصية imagekey - salahmax12 - 05-11-17
السلام عليكم
الان انا اسوي مشروع web browser و كل فترة كذا ادخل اسألكم شوية حاجات
المهم دلوقتي
انا عندي tab control
به web browser
ابي يطلع جمب اسم التاب كنترول ايقونة الموقع
(اسمها بالانجليزي favicon )
انا استخدم ذالكود
لكن الايقونة ما تطلع
رغم انه يقول ان ما في اخطاء syntax
كود :
If CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.ToString <> "about:blank" Then
Dim host = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Url.Host
Dim iconURL = "http://" & host & "/favicon.ico"
Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(iconURL)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim stream As System.IO.Stream = response.GetResponseStream()
Dim favicon = Image.FromStream(stream)
imglst.Images.Add(favicon)
For Each img As Image In imglst.Images
TabControl1.SelectedTab.ImageKey = img.ToString
Next
End Ifطبعا imglst
معرفه بال public class
كود :
Public Class Form1
Dim tab As New TabPage
Dim imglst As New ImageList
Dim web As WebBrowserطبعا في ملاحظتين يمكن تساعدكم عشان تساعدوني
الاولي ان imagekey هي الخاصية اللي تسوي ايقونة للتاب
و الثانية هي انها ما تقبل الا string
(حاولت احط صورة لل error لمن امسح <ToString.> لكن ما عرفت)
ف هل تكرمتم بمساعدتي ؟ 
RE: كيفية استخدام خاصية imagekey - a.ahmed - 05-11-17
PHP كود :
Public Class Form1
Private imglst As New ImageList
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.TabControl1.Controls.Clear()
Me.TabControl1.ImageList = imglst
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
CreateNewTab(Me.TextBox1.Text)
End Sub
Private Sub CreateNewTab(ByVal url As String)
Dim wb As WebBrowser = New WebBrowser With {.Dock = DockStyle.Fill, .ScriptErrorsSuppressed = True}
Dim tb As TabPage = New TabPage
TabControl1.Controls.Add(tb)
tb.Text = "..."
tb.Controls.Add(wb)
wb.Navigate(url)
AddHandler wb.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
End Sub
Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
Dim wb As WebBrowser = TryCast(sender, WebBrowser)
Dim tb As TabPage = TryCast(wb.Parent, TabPage)
Dim url As String = wb.Url.GetLeftPart(UriPartial.Authority)
tb.Text = wb.DocumentTitle
Try
Dim favicon As Image = Image.FromStream(New IO.MemoryStream(New Net.WebClient().DownloadData(url & "/favicon.ico")))
imglst.Images.Add(url, favicon)
tb.ImageKey = url
Catch ex As Exception
End Try
End Sub
End Class
RE: كيفية استخدام خاصية imagekey - salahmax12 - 05-11-17
(05-11-17, 04:26 AM)a.ahmed كتب :PHP كود :
Public Class Form1
Private imglst As New ImageList
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.TabControl1.Controls.Clear()
Me.TabControl1.ImageList = imglst
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
CreateNewTab(Me.TextBox1.Text)
End Sub
Private Sub CreateNewTab(ByVal url As String)
Dim wb As WebBrowser = New WebBrowser With {.Dock = DockStyle.Fill, .ScriptErrorsSuppressed = True}
Dim tb As TabPage = New TabPage
TabControl1.Controls.Add(tb)
tb.Text = "..."
tb.Controls.Add(wb)
wb.Navigate(url)
AddHandler wb.DocumentCompleted, AddressOf WebBrowser_DocumentCompleted
End Sub
Private Sub WebBrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
Dim wb As WebBrowser = TryCast(sender, WebBrowser)
Dim tb As TabPage = TryCast(wb.Parent, TabPage)
Dim url As String = wb.Url.GetLeftPart(UriPartial.Authority)
tb.Text = wb.DocumentTitle
Try
Dim favicon As Image = Image.FromStream(New IO.MemoryStream(New Net.WebClient().DownloadData(url & "/favicon.ico")))
imglst.Images.Add(url, favicon)
tb.ImageKey = url
Catch ex As Exception
End Try
End Sub
End Class
تظهر لي رسالة خطأ عندما اضع هذا الجزء
PHP كود :
Dim wb As WebBrowser = TryCast(sender, WebBrowser)
Dim tb As TabPage = TryCast(wb.Parent, TabPage)
Dim url As String = wb.Url.GetLeftPart(UriPartial.Authority)
tb.Text = wb.DocumentTitle
Try
Dim favicon As Image = Image.FromStream(New IO.MemoryStream(New Net.WebClient().DownloadData(url & "/favicon.ico")))
imglst.Images.Add(url, favicon)
tb.ImageKey = url
Catch ex As Exception
انا استخدمت هذا الجزء فقط ..
بالتحديد في هذا السطر
PHP كود :
Dim tb As TabPage = TryCast(wb.Parent, TabPage)