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

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

共有1997人关注过本帖树形打印复制链接主题：[求助]PictureViewer

yupeng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

[求助]PictureViewer 发帖心情

Post By：2016/12/19 14:55:00 [只看该作者]

老师您好

PictureViewer 请问用这个控件添加图片时，怎样自动把添加的图片名改为“款号列的值.jpg”。添加到列里面和存放目录的文件名都要改成这样的。请问要怎样弄，

http://www.foxtable.com/webhelp/scr/2699.htm 我刚才用这里的例子二试了一下，改名的功能硬是没搞好。

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/19 15:04:00 [只看该作者]

贴出你写的代码。

yupeng

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：350 积分：2933 威望：0 精华：0 注册：2015/4/23 19:53:00

Post By：2016/12/19 18:34:00 [只看该作者]

Dim v As String = Tables("商品表").Current( "图片")

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 = "\\Dianshang\电商共享夹\ERP系统专用\图片\"
    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

老师不知道应该在哪里重命名？要把图片的名字改为 V 的值.JPG

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2016/12/19 20:11:00 [只看该作者]

Dim v As String = Tables("商品表").Current("款号")

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 = "\\Dianshang\电商共享夹\ERP系统专用\图片\"

Dim ext As String = FileSys.GetName(dlg.FileName).Split(".")(1)

Dim filename As String = pth & v & "." & ext

If FileSys.FileExists(filename) = False Then

FileSys.CopyFile(dlg.FileName, filename)

End If

piv.AddFile(filename)

End If

下一主题 >> << 上一主题

主题：[求助]PictureViewer