以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]另存为  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120049)
--  作者：江南小镇
--  发布时间：2018/6/6 10:40:00
--  [求助]另存为
老师，二进制列在添加或插入图片时把图片另存到指定的文件夹中。
--  作者：有点甜
--  发布时间：2018/6/6 10:44:00
--  

If Tables("通讯录").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
    dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) \'插入文件
    Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pic.Image = GetImage(dlg.FileName)

    FileSys.CopyFile(dlg.FileName, "h:\\二进制列\\mytest.txt",True)
End If
--  作者：江南小镇
--  发布时间：2018/6/7 14:11:00
--  
老师又要烦你，下面代码只能保存一张图片，我希望不要改变图片名称同时保存通过二进制列添加的所有图片。
If Tables("通讯录").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("通讯录").Current.DataRow
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
    dr.SQLInsertFile("个人电子信息_照片",dlg.FileName) \'插入文件
    Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
    pic.Image = GetImage(dlg.FileName)
    FileSys.CopyFile(dlg.FileName, "h:\\二进制列\\mytest.jpg",True)
End If
--  作者：有点甜
--  发布时间：2018/6/7 14:32:00
--  

FileSys.CopyFile(dlg.FileName, "h:\\二进制列\\" & FileSys.GetName(dlg.fileName),True)
--  作者：江南小镇
--  发布时间：2018/6/7 21:44:00
--  
谢谢老师