[vb 2008]Try Catch 정리

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' ① 기본적으로 이미지 불러오기
        'PictureBox1.Image = Bitmap.FromFile("0000.jpg")

        '==============================================================================================
        ' ② 디스트 드라이버 오류처리
        'Try
        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch
        '    Label1.Text = "Please insert the disk in drive A:!"
        'End Try

        '===============================================================================================
        ' ③ 정리 작업을 위해 Finally 절 사용하기
        'Try
        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch
        '    Label1.Text = "Please insert the disk in drive c:!"
        'Finally
        '    MsgBox("Error handler complete")
        'End Try

        '================================================================================================
        ' ④ 더 복잡한 Try Tatch 오류 처리하기
        ' Err 개체중에서 유용한 속성은 Err.Number , Err.Description 이 가장 최근에 런타임 오륭 대한
        ' 번호를 가지고 있다.
        'Try
        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch When Err.Number = 53 '파일을 찾을 수 없습니다.
        '    Label1.Text = "Check Pathname and disk drive"
        '    MsgBox("Check Pathname and disk drive")
        'Catch When Err.Number = 7 ' 메모리가 부족 합다.
        '    Label1.Text = "Is this really a bitmap?"
        '    MsgBox("Is this really a bitmap?", , Err.Description)
        'Catch
        '    MsgBox("Problem loading file", , Err.Description)
        'End Try
        '=================================================================================================
        '⑤ 런타임 오류 추적을 위해 변수 사용하기
        'Try
        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch
        '    Retries += 1
        '    If Retries <= 2 Then
        '        Label1.Text = "Please insert the disk in drive A:!"
        '    Else
        '        Label1.Text = "File Load feature disabled"
        '    End If
        'End Try

        '===================================================================================================
        ' ⑥ 중첩된 Try   Catch 블럭 사용 하기
        'Try
        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch
        '    MsgBox("Insert the disk in drive A, then click OK!!")

        '    Try
        '        PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        '    Catch
        '        MsgBox("File Load feature disabled")
        '        Button1.Enabled = False
        '    End Try
        'End Try

        '====================================================================================================
        ' ⑦ Exit try 문장
        'Try
        '    If PictureBox1.Enabled = False Then Exit Try

        '    PictureBox1.Image = Bitmap.FromFile("0000.jpg")
        'Catch
        '    Retries += 1
        '    If Retries <= 2 Then
        '        MsgBox("Please insert the disk in drive A:!")
        '    Else
        '        MsgBox("File Load feature disabled")
        '        Button1.Enabled = False
        '    End If
        'End Try

    End Sub

닷넷을 이제 막 시작 하고 데이터 저장겸 해서 기록 해 둔다.

Image 메소드를 사용하기 위해서는 프로그램 맨 첫 줄에 imports 를 사용 하여 Drawing을 해주어야 사용이 가능 하다.

(ex)imports system.Drawing.bitmap.FromFile(이미지 path 지정 / 불러올 이미지 화일명 )