Foxtable(狐表)用户栏目专家坐堂 → 求助 PictureViewer


  共有1806人关注过本帖平板打印复制链接

主题:求助 PictureViewer

帅哥哟,离线,有人找我吗?
jackyfashion
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:657 积分:5101 威望:0 精华:0 注册:2013/10/7 22:27:00
求助 PictureViewer  发帖心情 Post By:2017/5/29 17:29:00 [只看该作者]

老师:

您好!

怎样修改,可以每次打开多个图片,同时在绑定的列增加多行,选几个图片就增加几行.

求老师指教!

谢谢!!!

Dim dlg As New OpenFileDialog
Dim
piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg
.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If
dlg.ShowDialog = DialogResult.OK Then
Dim pth As String = ProjectPath & "Attachments\"
If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then
'如果文件来自Attachments目录
piv.AddFile(dlg.FileName.SubString(pth.Length))
Else
'如果不是
FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
piv.AddFile(FileSys.GetName(dlg.FileName))
End If
End
If

[此贴子已经被作者于2017/5/29 17:29:59编辑过]

 回到顶部