تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ال favicon
#1
كاتب الموضوع : Friendassist

ان كنت تريد عمل متصفح انترنت و اردت ان تظهر ايقونات المواقع التي تقوم بفتحها كهذه :


فما عليك سوي استخدام هذا الكود :
قم بالاستعانة بالمكتيتين ...
VB.NET

كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][COLOR=#0000bb]Net
Imports System[/COLOR][color=#007700].[/color][COLOR=#0000bb]IO  
[/COLOR][/COLOR]

++C

كود :
[color=#000000][COLOR=#0000bb]using namespace System[/color][color=#007700]::[/color][color=#0000bb]Net[/color][COLOR=#007700];
    [/COLOR][color=#0000bb]using namespace System[/color][color=#007700]::[/color][color=#0000bb]IO[/color][COLOR=#007700];  
[/COLOR][/COLOR]

ضع اداة BictureBox و WebBrowser ...

و قم بالاستعانة بالدالة التالية :

VB.NET

كود :
[color=#000000][COLOR=#007700]Public [/color][color=#0000bb]Sub getico[/color][COLOR=#007700]()
        [/COLOR][color=#0000bb]Dim c [/color][color=#007700]As New [/color][COLOR=#0000bb]WebClient
        Dim ico [/COLOR][color=#007700]As New [/color][color=#0000bb]Uri[/color][color=#007700]([/color][color=#0000bb]WebBrowser1[/color][color=#007700].[/color][color=#0000bb]Url[/color][color=#007700].[/color][color=#0000bb]ToString[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]Dim memstr [/color][color=#007700]As New [/color][color=#0000bb]MemoryStream[/color][color=#007700]([/color][color=#0000bb]c[/color][color=#007700].[/color][color=#0000bb]DownloadData[/color][color=#007700]([/color][color=#dd0000]"http://" [/color][color=#007700]& [/color][color=#0000bb]ico[/color][color=#007700].[/color][color=#0000bb]Host [/color][color=#007700]& [/color][color=#dd0000]"/favicon.ico"[/color][COLOR=#007700]))
        [/COLOR][color=#0000bb]Dim webicon [/color][color=#007700]As New [/color][color=#0000bb]Icon[/color][color=#007700]([/color][color=#0000bb]memstr[/color][COLOR=#007700])
        [/COLOR][color=#0000bb]PictureBox1[/color][color=#007700].[/color][color=#0000bb]Image [/color][color=#007700]= [/color][color=#0000bb]webicon[/color][color=#007700].[/color][COLOR=#0000bb]ToBitmap
    End Sub  
[/COLOR][/COLOR]

++C
كود :
[color=#000000][COLOR=#0000bb] void Form1[/color][color=#007700]::[/color][color=#0000bb]getico[/color][COLOR=#007700]()
         {
             [/COLOR][color=#0000bb]WebClient [/color][color=#007700]^[/color][color=#0000bb]c [/color][color=#007700]= [/color][color=#0000bb]gcnew WebClient[/color][COLOR=#007700]();
             [/COLOR][color=#0000bb]Uri [/color][color=#007700]^[/color][color=#0000bb]ico [/color][color=#007700]= [/color][color=#0000bb]gcnew Uri[/color][color=#007700]([/color][color=#0000bb]webBrowser1[/color][color=#007700]->[/color][color=#0000bb]Url[/color][color=#007700]->[/color][color=#0000bb]ToString[/color][COLOR=#007700]());
             [/COLOR][color=#0000bb]MemoryStream [/color][color=#007700]^[/color][color=#0000bb]memstr [/color][color=#007700]= [/color][color=#0000bb]gcnew MemoryStream[/color][color=#007700]([/color][color=#0000bb]c[/color][color=#007700]->[/color][color=#0000bb]DownloadData[/color][color=#007700]([/color][color=#dd0000]"http://" [/color][color=#007700]+ [/color][color=#0000bb]ico[/color][color=#007700]->[/color][color=#0000bb]Host [/color][color=#007700]+ [/color][color=#dd0000]"/favicon.ico"[/color][COLOR=#007700]));
             [/COLOR][color=#0000bb]System[/color][color=#007700]::[/color][color=#0000bb]Drawing[/color][color=#007700]::[/color][color=#0000bb]Icon [/color][color=#007700]^[/color][color=#0000bb]webicon [/color][color=#007700]= [/color][color=#0000bb]gcnew System[/color][color=#007700]::[/color][color=#0000bb]Drawing[/color][color=#007700]::[/color][color=#0000bb]Icon[/color][color=#007700]([/color][color=#0000bb]memstr[/color][COLOR=#007700]);
             [/COLOR][color=#0000bb]pictureBox1[/color][color=#007700]->[/color][color=#0000bb]Image [/color][color=#007700]= [/color][color=#0000bb]webicon[/color][color=#007700]->[/color][color=#0000bb]ToBitmap[/color][COLOR=#007700]();
         }  
[/COLOR][/COLOR]

في حدث WebBrowser1_Navigated استعن بالدالة ..

VB.NET

كود :
[color=#000000][COLOR=#0000bb]getico[/color][COLOR=#007700]()  
[/COLOR][/COLOR]

++C
كود :
[color=#000000][COLOR=#0000bb]getico[/color][COLOR=#007700]();  
[/COLOR][/COLOR]

}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم