能不能把图片也改成批量添加到picturebox里面，我改了代码，If Tables("员工").Current Is Nothing Then
Return
End If
Dim dr As DataRow = Tables("员工").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
For Each file As String In dlg.FileNames
Dim fl As String = file
dr.SQLInsertFile("照片",fl) '插入文件
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = GetImage(fl)
Next
End If
批量插入图片后，在pic里面只显示了一张图片，把PictureBox的属性设置了滚动条=ture,还是没有达到效果，麻烦您指导一下
加好友 
发短信
Post By：2016/10/10 22:38:00 [显示全部帖子]
