- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 图片管理 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150077)
-- 发布时间：2020/5/20 11:16:00
-- 图片管理
老师好，下面的错误请求老师帮忙了。
此主题相关图片如下：image 1.png
-- 发布时间：2020/5/20 11:34:00
--
把图片浏览器控件改为图片框控件：http://www.foxtable.com/webhelp/topics/0812.htm
-- 发布时间：2020/5/20 12:00:00
--
老师，改代码可以吗？
-- 发布时间：2020/5/20 12:11:00
--
图片浏览器控件必须绑定列使用，如果要往这个控件添加图片，参考：http://www.foxtable.com/webhelp/topics/2699.htm
-- 发布时间：2020/5/20 13:11:00
--
老师，我想把复制的图片摆在ttachments\\下面指定的文件夹里。
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
-- 发布时间：2020/5/20 14:27: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
-- 发布时间：2020/5/20 15:22:00
--
此主题相关图片如下：image 2.png
-- 发布时间：2020/5/20 15:26:00
--
把行拉高即可
-- 发布时间：2020/5/20 16:02:00
--
此主题相关图片如下：image 4.png
-- 发布时间：2020/5/20 16:25:00
--
没有办法