以文本方式查看主题

-  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=94231)
--  作者：yupeng
--  发布时间：2016/12/19 14:55:00
--  [求助]PictureViewer
老师  您好  

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

http://www.foxtable.com/webhelp/scr/2699.htm  我刚才用这里的例子二试了一下，改名的功能硬是没搞好。
--  作者：有点色
--  发布时间：2016/12/19 15:04:00
--  
 贴出你写的代码。
--  作者：yupeng
--  发布时间：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   
--  作者：有点蓝
--  发布时间：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