비주얼 베이직 .Net 강좌 - 4. DataGridView에 이미지 경로와 이미지 추가하기

데이터베이스에서 이미지를 어떻게 관리하는지 찾아보니 이미지를 데이터베이스에 넣는게 가능하지만  그렇게는 하지 않고 파일의 경로만 데이터베이스에 저장하는 군요.. 

데이터베이스와 연동하기전에 먼저 DataGridView에 파일 경로와 이미지를 불러와 출력하는 것을 만들어봤습니다. 

Load버튼을 클릭하여 이미지를 찾아주면 텍스트박스에 이미지의 경로가 출력됩니다. 이때 추가버튼을 클릭하면 DataGridView에 이미지 경로가 추가되고 그 옆에 이미지의 썸네일이 출력됩니다.  

삭제는 원하는 행을 선택한 후 삭제를 클릭하면 삭제되도록 구현하였습니다. 

이미지 두개를 시험삼아 추가해본 결과입니다. 

DataGridView와 TextBox, Button 3개를 아래처럼 추가합니다. 그리고 OpenFileDialog를 추가합니다. 

클릭하면 아래 이미지가 크게 보입니다. 

사용한 코드는 다음과 같습니다. 각각의 이벤트 함수를 생성하는 것은 생략합니다.  

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        'DataGridView를 선택하면 전체 한줄이 선택되게 됩니다. 
        DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
 
 
        Dim columnTextBox As New DataGridViewTextBoxColumn
        columnTextBox.Name = "파일 위치"
        columnTextBox.Width = 700
 
        DataGridView1.Columns.Add(columnTextBox)
 
 
        Dim columnImage As New DataGridViewImageColumn
        columnImage.Name = "이미지"
        columnImage.Width = 100
 
        'Add column to datagridview
        DataGridView1.Columns.Add(columnImage)
 
 
    End Sub
 
 
    Private Sub loadButton_Click(sender As Object, e As EventArgs) Handles loadButton.Click
 
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            filepathTextBox.Text = OpenFileDialog1.FileName
        End If
    End Sub
 
    Private Sub addButton_Click(sender As Object, e As EventArgs) Handles addButton.Click
 
        '공백을 입력할 수 없도록 에러처리 
        If filepathTextBox.Text = "" Then
            MsgBox("이미지 파일을 먼저 불러오세요")
            Return
        End If
 
 
        Dim original_image As Image = Image.FromFile(filepathTextBox.Text)
        Dim thumbimage As Image = original_image.GetThumbnailImage(100, 100, Nothing, New IntPtr())
 
        DataGridView1.Rows.Add(filepathTextBox.Text, thumbimage)
 
 
 
        '데이터가 입력되었던 텍스트박스를 비웁니다.
        filepathTextBox.Text = ""
    End Sub
 
    Private Sub deleteButton_Click(sender As Object, e As EventArgs) Handles deleteButton.Click
        '삭제할 수 없는 셀인 경우 에러처리
        If DataGridView1.SelectedRows(0).Cells(0).Value = Nothing Then
            Return
        End If
 
 
        Dim msgResult As MsgBoxResult = MsgBox("삭제하시겠습니까?", MsgBoxStyle.YesNo)
 
        If msgResult = MsgBoxResult.Yes Then
            DataGridView1.Rows.RemoveAt(DataGridView1.SelectedRows(0).Index)
 
            filepathTextBox.Text = ""
        End If
    End Sub
End Class
 

프로젝트 파일을 압축한 파일입니다. 

ImageList_Example.zip