bitmapの宣言

質問

こんばんわ。
bitmapの宣言を最初に行い、途中のサブルーチン内で大きさの変更を行いたいのですが、可能でしょうか？

Public Class Form1
Dim BMP As New Bitmap(300, 200)
Private Sub
このなかで、300*200の指定を行いたいです。
End Sub

ちなみに、

Public Class Form1
Dim BMP As Bitmap
Private Sub
BMP = New Bitmap(300, 200)
End Sub

などと悪あがきをしましたがダメでした。
良い解決策を教えてください。よろしくお願いします。
バージョンは、.NET 2005です。

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

えっ？普通に出来ますよね？
Public Class TestForm
　　Private m_bmp As Bitmap

　　Private Sub test()
　　　　Me.m_bmp = New Bitmap(300, 200)
　　End Sub
End Class

> ダメでした。
何がダメだったのか補足していただけないでしょうか。

参考URL：

http://msdn2.microsoft.com/ja-jp/library/system.drawing.bitmap.aspx

お礼

早々の回答ありがとうございます。
具体的には、以下のエラーが表示されます。
教えていただいた方法でも同様のエラーが表示され、Privateでも、Dimでも、変わりませんでした。
それで、教えていただいた方法と組み合わせて対策してみたところ、

Public Class Form1
Dim BMP As　New BMP(1,1)
Private Sub
Me.BMP = New Bitmap(14400, 500)
End Sub
End Class

で、出来ましたが、この文で問題はないでしょうか？

フォームの作成中にエラーが発生しました。詳細については、Exception.InnerException を参照してください。エラー: 値を Null にすることはできません。

回答No.2

naganaga_001

お世話になります。

Dim BMP As　New BMP(1,1)
少なくとも、この New BMP... という記述は
コンパイルエラーになるはずですが、
書き間違えですよね。

それで、
> フォームの作成中にエラーが発生しました。詳細については、Exception.InnerException を参照してください。エラー: 値を Null にすることはできません。
こちらのエラーですが、
tyuioopp さんが、今動かしているプログラム内に
実際に書かれている構文だとしたら、
　Dim BMP As New Bitmap(1,1)
　Me.BMP = New Bitmap(14400, 500)
の上記 2 行とも、
この例外が発生する可能性は
多分ないです。
ここ以外の他の場所だと思います。

怪しそうな箇所にブレークポイントを付けて、
ステップ実行をして、原因の箇所を突き止めてみてください。

本題とは若干ずれますが、
Private や Dim についてはこちらをごらん下さい。
[Visual Basic でのアクセス レベル]
http://msdn2.microsoft.com/ja-jp/library/76453kax(d=ide).aspx
[Dim ステートメント (Visual Basic)]
http://msdn2.microsoft.com/ja-jp/library/7ee5a7s1(d=ide).aspx

参考URL：

http://www.atmarkit.co.jp/fdotnet/dotnettips/367breakpoint/breakpoint.html

お礼

回答ありがとうございます。
大変遅れてすみません。
BMPは違う名前をつけていたので、書き出す時に変更しました。なので、実際に作動するかを確認しないまま、書き込んでしまいました。申し訳ありません。
なんとか動いているようなので、このまま行きたいと思います。