美人時計(4)

　美人時計のブログパーツを表示するソフトをVisual Basic 2010で作ってみました。
　デザイナ画面でForm1にWebBrowser1コントロールを、左上にLabel1を設置して、下記ソースで動きます。
　今回は、ファイルを作らないようにしました。そのため、起動時の画面に戻るときのためにラベルをボタン代わりに付けました。
　VB2010では、2行にまたがるとき、行末に「_」を付けなくていいので見た目がきれいになりました。

Public Class Form1
    'strSrc のソースは、参考URLの「美人時計(bijin-tokei)ブログパーツ」の
    '「ブログパーツ設置コード」のところにあります。ただし、｢"｣→Chr(34)
    Private strSrc As String = "<script src=" + Chr(34) +
        "http://www.gmodules.com/ig/ifr?url=http://bijint.com/" +
        "bijint.xml&synd=open&w=240&h=330&title=" +
         "%E7%BE%8E%E4%BA%BA%E6%99%82%E8%A8%88%EF%BC%88bijin-tokei" +
         "%EF%BC%89&border=%23ffffff%7C3px%2C1px+solid+%23999999&output=js" +
         Chr(34) + "></script>"

    Private Sub Form1_Load(
        ByVal sender As System.Object, ByVal e As System.EventArgs
    ) Handles MyBase.Load
        'Form1.vb[デザイン]でプロパティを設定してもよい。
        Label1.Text = "*"
        Label1.Cursor = Cursors.Hand
        Me.Text = "bijin-tokei"
        Me.Size = New System.Drawing.Size(285, 450)
        WebBrowser1.ScrollBarsEnabled = False
        WebBrowser1.ScriptErrorsSuppressed = True   'スクリプトエラーを非表示にする
        WebBrowser1.DocumentText = strSrc
    End Sub

    '表示後のフォームのサイズ調整
    Private Sub WebBrowser1_Navigated(
        ByVal sender As System.Object,
        ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs
    ) Handles WebBrowser1.Navigated
        Dim strUrl As String = WebBrowser1.Url.ToString() 'ブラウザ表示後にURLを文字列として得る

        If strUrl.StartsWith("http://www.bijint.com/") Then
            Me.Size = New System.Drawing.Size(860, 670)
        Else
            'その他は手動
        End If
    End Sub

    Private Sub Label1_Click(
        ByVal sender As System.Object, ByVal e As System.EventArgs
    ) Handles Label1.Click
        Me.Size = New System.Drawing.Size(285, 450)
        WebBrowser1.DocumentText = strSrc
    End Sub
End Class

※参考URL
http://d.hatena.ne.jp/rsc96074/20101227/1293460106
●美人時計(bijin-tokei)ブログパーツ