デバッグエラー

質問

VBで、簡単なお絵かきツールを作りましたが、ボタン４（開くイベント）で、「開く」ではなく、キャンセルをクリックした際に、デバッグエラーが出ました。
プログラムを記載しておきますので、対処方法を教えていただけませんか。

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim filename As String
OpenFileDialog1.AddExtension = True
OpenFileDialog1.Filter = "すべてのファイル|*.*"
OpenFileDialog1.ShowDialog()
OpenFileDialog1.Title = "開くファイルを指定してください。"
filename = OpenFileDialog1.FileName
If filename <> "" Then
b.Dispose()
canvas.Dispose()
canvas = Image.FromFile(filename)
b = Graphics.FromImage(canvas)
PictureBox1.Image = canvas
End If
End Sub

です。

ちなみに、保存の際には出ません。

回答No.1

D-Matsu · ベストアンサー

＃画面潰れてて見えないけどまぁこれくらいなら……

ShowDialog()の戻り値で分岐しないためです。
http://msdn.microsoft.com/ja-jp/library/system.windows.forms.openfiledialog(v=VS.100).aspx

なお、ShowDialog()より後にTitleを設定しているのは意味がありません。

お礼

ご回答ありがとうございました。
openfiledialogのところに、savefiledialogで使用しているファイル名を持ってきて、ifのところの<>""を=nothingに変えたとところ、デバッグエラーがでませんでした。