[VB.NET] การนำภาพมาใส่ลงในหลักของตารางกริดได้แบบหลายแถว

thongkorn

อันนี้เป็นคำถามมาจากชาวต่างชาติ แอดมินคิดว่าโจทย์มันน่าสนใจดี เพราะเอาไปใช้งานได้หลายอย่างมาก เช่น แผนที่ภาษี แบบแปลนบ้าน ภาพประกอบข้อมูลรถ และอื่นๆอีกเยอะแยะ สำหรับในตอนนี้แอดมินจะให้โค้ดสำหรับการเพิ่มแถว ลบแถว และเบราซ์ไฟล์ภาพมาเก็บไว้ในหลักของตารางกริดได้แบบหลายๆแถว โดยจะเลือกภาพมาใส่ไว้ในแถวที่ถูกโฟกัสอยู่ ส่วนการจัดเก็บข้อมูลค่อยว่ากันอีกที เพราะกรณีนี้เราไม่รู้ว่าจำนวนภาพที่จะเก็บมีจำนวนเท่าไหร่ ดังนั้นในเรื่องของฐานข้อมูล เราจะต้องแยกตารางการจัดเก็บภาพไปไว้อีกตารางหนึ่ง ...
มาดูโค้ดฉบับบเต็มกันเถอะ ...

1. Imports System.IO
   
2. 
   
3. Public Class frmImage2DataGrid
   
4.     Dim strPath As String = MyPath(Application.StartupPath)
   
5. 
   
6.     Private Sub frmImage2DataGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         '// Initialize DataGridView Control
   
8.         With DataGridView1
   
9.             .AllowUserToAddRows = False
   
10.             .AllowUserToDeleteRows = False
    
11.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
12.             .AutoResizeColumns()
    
13.             .AllowUserToResizeColumns = True
    
14.             .AllowUserToResizeRows = True
    
15.         End With
    
16.         DataGridView1.RowTemplate.Height = 120
    
17.         '// Declare columns type.
    
18.         Dim Column1 As New DataGridViewTextBoxColumn()
    
19.         Dim Column2 As New DataGridViewTextBoxColumn()
    
20.         '// Add new Columns
    
21.         DataGridView1.Columns.AddRange(New DataGridViewColumn() { _
    
22.                 Column1, Column2 _
    
23.                 })
    
24.         With DataGridView1
    
25.             .Columns(0).Name = "Product ID"
    
26.             .Columns(1).Name = "Product Name"
    
27.         End With
    
28.         Dim row As String() = New String() {"1", "Product 1"}
    
29.         DataGridView1.Rows.Add(row)
    
30.         '// Add 3th column (Index = 2), It's Image.
    
31.         Dim imgCol As New DataGridViewImageColumn()
    
32.         Dim img As Image = Image.FromFile(strPath & "Blank.gif")
    
33.         With imgCol
    
34.             .Image = img
    
35.             .HeaderText = "Image"
    
36.             .Name = "img"
    
37.             .ImageLayout = DataGridViewImageCellLayout.Stretch
    
38.             .Width = 120
    
39.         End With
    
40.         DataGridView1.Columns.Add(imgCol)
    
41.         '//
    
42.         '// Add 4th column (Index = 3), Show image path.
    
43.         Dim PicturePath As New DataGridViewTextBoxColumn()
    
44.         DataGridView1.Columns.Add(PicturePath)
    
45.         With PicturePath
    
46.             .HeaderText = "Image Path"
    
47.             .ReadOnly = True
    
48.             '// Normally have to hide this columns.
    
49.             .Visible = True
    
50.         End With
    
51.         Me.DataGridView1.Focus()
    
52.     End Sub
    
53. 
    
54.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
55.         If Me.DataGridView1.Rows.Count = 0 Then Return
    
56.         Call BrowseImage()
    
57.     End Sub
    
58. 
    
59.     Private Sub btnAddRow_Click(sender As System.Object, e As System.EventArgs) Handles btnAddRow.Click
    
60.         Call AddRow()
    
61.     End Sub
    
62. 
    
63.     Private Sub btnRemoveRow_Click(sender As System.Object, e As System.EventArgs) Handles btnRemoveRow.Click
    
64.         Call RemoveRow()
    
65.     End Sub
    
66. 
    
67.     Private Sub AddRow()
    
68.         Dim row As String()
    
69.         If Me.DataGridView1.RowCount = 0 Then
    
70.             row = New String() {"1", "Product 1"}
    
71.             DataGridView1.Rows.Add(row)
    
72.         Else
    
73.             Dim CellValue As String = DataGridView1.Rows(DataGridView1.RowCount - 1).Cells(0).Value + 1
    
74.             row = New String() {CellValue, "Product " & CellValue}
    
75.             DataGridView1.Rows.Add(row)
    
76.         End If
    
77.         Me.DataGridView1.Focus()
    
78.         SendKeys.Send("^{HOME}")
    
79.         SendKeys.Send("^{DOWN}")
    
80.     End Sub
    
81. 
    
82.     Private Sub RemoveRow()
    
83.         '// Delete current row from DataGridView1
    
84.         DataGridView1.Rows.Remove(DataGridView1.CurrentRow)
    
85.     End Sub
    
86. 
    
87.     Private Sub BrowseImage()
    
88.         Dim dlgImage As OpenFileDialog = New OpenFileDialog()
    
89.         ' / Open File Dialog
    
90.         With dlgImage
    
91.             '.InitialDirectory = strPath
    
92.             .Title = "Select images"
    
93.             .Filter = "Images types (*.jpg;*.png;*.gif;*.bmp)|*.jpg;*.png;*.gif;*.bmp"
    
94.             .FilterIndex = 1
    
95.             .RestoreDirectory = True
    
96.         End With
    
97.         ' Select OK after Browse ...
    
98.         If dlgImage.ShowDialog() = DialogResult.OK Then
    
99.             Using FS As IO.FileStream = File.Open(dlgImage.FileName, FileMode.Open)
    
100.                 Dim bitmap As Bitmap = New Bitmap(FS)
     
101.                 Dim currentPicture As Image = CType(bitmap, Image)
     
102.                 Me.DataGridView1.CurrentRow.Cells(2).Value = currentPicture
     
103.             End Using
     
104.             '// Keep Image Path.
     
105.             Me.DataGridView1.CurrentRow.Cells(3).Value = dlgImage.FileName
     
106.         End If
     
107. 
     
108.     End Sub
     
109. 
     
110.     ' / --------------------------------------------------------------------------------
     
111.     ' / Get my project path
     
112.     ' / AppPath = C:\My Project\bin\debug
     
113.     ' / Replace "\bin\debug" with ""
     
114.     ' / Return : C:\My Project\
     
115.     Function MyPath(ByVal AppPath As String) As String
     
116.         '/ MessageBox.Show(AppPath);
     
117.         AppPath = AppPath.ToLower()
     
118.         '/ Return Value
     
119.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
     
120.         '// If not found folder then put the \ (BackSlash ASCII Code = 92) at the end.
     
121.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
     
122.     End Function
     
123. 
     
124.     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
     
125.         Me.Close()
     
126.     End Sub
     
127. 
     
128.     Private Sub frmImage2DataGrid_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
129.         Me.Dispose()
     
130.         Application.Exit()
     
131.     End Sub
     
132. 
     
133. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

Taplet

ขอบคุณครับ