专家坐堂-求助 PictureViewerFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 PictureViewer  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101374)

--  作者：jackyfashion
--  发布时间：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

--  作者：jackyfashion
--  发布时间：2017/5/31 21:22:00
--

谢谢老师!!!

--  作者：jackyfashion
--  发布时间：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

--  作者：jackyfashion
--  发布时间：2017/5/31 22:11:00
--

谢谢老师!!!