- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 PictureViewer (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101374)
-- 发布时间：2017/5/29 17:29:00
-- 求助 PictureViewer
老师:
您好!
怎样修改,可以每次打开多个图片,同时在绑定的列增加多行,选几个图片就增加几行.
求老师指教!
谢谢!!!
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编辑过]
-- 发布时间：2017/5/31 8:41:00
--
该控件绑定的表格增加行即可
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
For Each file In dlg.FileNames
Tables("表A").AddNew
Dim pth As String = ProjectPath & "Attachments\\"
If file.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
piv.AddFile(file.SubString(pth.Length))
Else \'如果不是
FileSys.CopyFile(file, pth & FileSys.GetName(file))
piv.AddFile(FileSys.GetName(file))
End If
Next
End If
-- 发布时间：2017/5/31 21:22:00
--
谢谢老师!!!
-- 发布时间：2017/5/31 21:41:00
--
老师:
您好!
有提示
此主题相关图片如下：1.png
请再次指教!!!
谢谢!!!
[此贴子已经被作者于2017/5/31 21:41:42编辑过]
-- 发布时间：2017/5/31 21:44:00
--
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
For Each file as string In dlg.FileNames
Tables("表A").AddNew
Dim pth As String = ProjectPath & "Attachments\\"
If file.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
piv.AddFile(file.SubString(pth.Length))
Else \'如果不是
FileSys.CopyFile(file, pth & FileSys.GetName(file))
piv.AddFile(FileSys.GetName(file))
End If
Next
End If
-- 发布时间：2017/5/31 22:11:00
--
谢谢老师!!!