エラーを回避するには？ (ID:141640)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

下記を実行すると以下のようなエラーメッセージが出てしまいます。
どの様にすればエラー回避出来るのでしょうか？

変数'BMP'は、値が割り当てられる前に使用されています。Null参照の例外が実行時に発生する可能性があります。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim bmp As Bitmap
        Dim g As Graphics
        Dim img As Image
        Dim imst(2) As Integer
        '画像を作成する
        'Dim bmp As New Bitmap("C:\test.bmp")
        '画像データをクリップボードにコピーする
        Clipboard.SetDataObject(PictureBox1.Image, False)
        '後片付け
        'PictureBox1.Image.Dispose()
        'クリップボードにあるデータの取得
        Dim d As IDataObject = Clipboard.GetDataObject()
        'ビットマップデータ形式に関連付けられているデータを取得
        img = CType(d.GetData(DataFormats.Bitmap), Image)
        If Not (img Is Nothing) Then
            'データが取得できたときは表示する
            PictureBox1.Image = img
        End If
        Select Case Kaizoudo(1)
            Case 700
                bmp = New Bitmap(1280, 960)
                imst(1) = 1280
                imst(2) = 960
            Case 400
                bmp = New Bitmap(640, 480)
                imst(1) = 640
                imst(2) = 480
            Case 280
                bmp = New Bitmap(320, 240)
                imst(1) = 320
                imst(2) = 240
        End Select
        PictureBox1.Image = bmp
        g = Graphics.FromImage(PictureBox1.Image)
        img = Image.FromFile("C:\test.jpg")
        g.DrawImage(img, 0, 0, imst(1), imst(2))
        img.Dispose()
        PictureBox1.Image.Save("C:\test2.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る