1

Pictureboxコントロールで2つの気象レーダー画像オーバーレイを重ね合わせようとしています。グラフィックのサイズは両方とも600、550です。私のコードではエラーは発生しませんが、実行すると空白のフォームが表示されます。私は何が間違っているのですか？

これが私のコードです：

Dim Image1 As New Bitmap("http://radar.weather.gov/ridge/Overlays/Topo/Short/FWS_Topo_Short.jpg")
    Dim Image2 As New Bitmap("http://radar.weather.gov/ridge/RadarImg/N0R/FWS_N0R_0.gif")
    Dim Image3 As New Bitmap(600, 550)
    Dim g As Graphics = Graphics.FromImage(Image3)
    g.DrawImage(Image1, New Point(0, 0))
    g.DrawImage(Image2, New Point(0, 0))
    PictureBox1.Image = Image3
    g.Dispose()
    g = Nothing
4

1 に答える 1

1

ビットマップにURIを使用することはできません。ローカルパスを指定する必要があります。ただし、ビットマップでストリームを使用できるため、最初にサイトの画像へのストリームを開き、それを介してロードします。

例えば：

        Dim Image1 As Bitmap = GetStreamBitmap("http://radar.weather.gov/ridge/Overlays/Topo/Short/FWS_Topo_Short.jpg")
        Dim Image2 As Bitmap = GetStreamBitmap("http://radar.weather.gov/ridge/RadarImg/N0R/FWS_N0R_0.gif")

        'TODO implement error checking, "if image1 is nothing" etc..

        Dim Image3 As New Bitmap(600, 550)
        Dim g As Graphics = Graphics.FromImage(Image3)
        g.DrawImage(Image1, New Point(0, 0))
        g.DrawImage(Image2, New Point(0, 0))

        PictureBox1.Image = Image3

        g.Dispose()
        g = Nothing

        Image2.Dispose()
        Image1.Dispose()

'...

    Private Function GetStreamBitmap(url As String) As Bitmap

        Dim bmp As Bitmap = Nothing

        Try
            Dim request As System.Net.WebRequest = _
                System.Net.WebRequest.Create(url)

            Dim response As System.Net.WebResponse = request.GetResponse()
            Dim responseStream As System.IO.Stream = response.GetResponseStream()
            bmp = New Bitmap(responseStream)

        Catch ex As System.Net.WebException
            ' handle error here
        End Try

        Return bmp

    End Function
于 2012-10-05T19:45:22.097 に答える