C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[1]: webbrowserコントロールでアイコンを取得したい


(過去ログ 45 を表示中)

[トピック内 2 記事 (1 - 2 表示)]  << 0 >>

■24214 / inTopicNo.1)  webbrowserコントロールでアイコンを取得したい
  
□投稿者/ カイ (1回)-(2008/08/29(Fri) 12:48:43)

分類:[.NET 全般] 

VB2005にてサイトのアイコン(favicon.pngイメージ)をwebbrowserで取得したいのですが、
どのようにすればよいのでしょうか?
引用返信 編集キー/
■24239 / inTopicNo.2)  Re[1]: webbrowserコントロールでアイコンを取得したい
□投稿者/ YAS (6回)-(2008/08/29(Fri) 22:54:04)
> VB2005にてサイトのアイコン(favicon.pngイメージ)をwebbrowserで取得したいのですが、

favicon.icoではないのですか?
favicon.icoなら例えば次のように取得できます。(webbrowserではありませんが...)

Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WebBrowser1.GoHome()
    End Sub

    Public Function GetFavicon(ByVal Url As String) As Image
        Dim Img As Image = Nothing
        Dim Req As WebRequest = Nothing
        Dim i As Integer = Url.LastIndexOf("/")
        Url = Url.Substring(0, i) & "/favicon.ico"
        Try
            Req = WebRequest.Create(Url)
            Using myResponse As WebResponse = Req.GetResponse()
                Using myStream As Stream = myResponse.GetResponseStream()
                    Img = Image.FromStream(myStream)
                End Using
            End Using
            Return Img
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim f As New Form
        f.BackgroundImage = GetFavicon(e.Url.ToString)
        f.Show()
    End Sub

End Class

引用返信 編集キー/


トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

管理者用

- Child Tree -