[salahmax12]

السلام عليكم

الان انا اسوي مشروع 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.> لكن ما عرفت)

ف هل تكرمتم بمساعدتي ؟ 

[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 


[salahmax12]

(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)