Private Sub BT_PHOTOADDRESS_Click(sender As Object, e As EventArgs) Handles BT_PHOTOADDRESS.Click
Dim dvic As DataGridViewImageColumn = New DataGridViewImageColumn(True) With {
.ImageLayout = DataGridViewImageCellLayout.Zoom,
.Name = "Images",
.HeaderText = "Images"
}
Dim filedialog As String
OpenFileDialog1.Filter = "图片|*.jpg;"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
filedialog = OpenFileDialog1.FileName 'IO.Path.GetFileName(OpenFileDialog1.FileName)
Me.TxtPictureURL.Text = filedialog
Me.PB_PAPHOTO.Image = Image.FromFile(filedialog)
'DataGridView1.Rows(Me.DataGridView1.CurrentCell.RowIndex).Cells("pa_photo").Value = dvic.Image
End If
End Sub