منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

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 

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

salahmax12

a.ahmed

salahmax12