以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问图片管理器中增加按钮的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66730)
--  作者：表哥
--  发布时间：2015/4/12 23:10:00
--  [求助]请问图片管理器中增加按钮的代码
谢谢
--  作者：Bin
--  发布时间：2015/4/13 8:45:00
--  
无法做到,除非你自己设计一个图片管理器.
--  作者：表哥
--  发布时间：2015/4/13 10:19:00
--  
通过窗口按钮单击事件直接添加图片到表格的备注列，无法做到吗？
--  作者：Bin
--  发布时间：2015/4/13 10:23:00
--  
可以, 直接绑定一个图片管理控件,更加方便
--  作者：狐狸爸爸
--  发布时间：2015/4/13 10:26:00
--  

如果一定要自己通过菜单按钮添加的话，先看看：

http://www.foxtable.com/help/topics/2717.htm

http://www.foxtable.com/help/topics/0328.htm

http://www.foxtable.com/help/topics/0331.htm

 

 

 
--  作者：狐狸爸爸
--  发布时间：2015/4/13 10:39:00
--  

掌握了上面的帮助，你会发现其实增加文件很简单：

 

 

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  \'如果用户单击了确定按钮
    Dim dr As DataRow = Tables("表A").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("文件")  \'获取文件集合
    lst.Add(Filesys.GetName(dlg.FileName))  \'给集合增加一个文件
    dr.Lines("文件") = lst  \'将新的集合赋值给文件列
    If dlg.FileName.ToLower.StartsWith((ProjectPath & "Attachments").ToLower) = False Then \'如果文件不在Attachments目录
        FileSys.CopyFile(dlg.FileName,ProjectPath & "Attachments\\" & Filesys.GetName(dlg.FileName),True)  \'那么复制到Attachments目录
    End If
End  If
--  作者：鲁吉
--  发布时间：2017/3/3 9:12:00
--  
表中有姓名和照片列，希望向照片列添加文件的时候，能自动根据姓名来重命名此文件，楼上代码如何改才是最好的？
--  作者：有点色
--  发布时间：2017/3/3 9:16:00
--  
以下是引用鲁吉在2017/3/3 9:12:00的发言：
表中有姓名和照片列，希望向照片列添加文件的时候，能自动根据姓名来重命名此文件，楼上代码如何改才是最好的？

 

参考 http://www.foxtable.com/webhelp/scr/2209.htm

 
--  作者：鲁吉
--  发布时间：2017/3/3 9:18:00
--  
直接复制例六的代码放在下面，出错 
--  作者：鲁吉
--  发布时间：2017/3/3 9:21:00
--  
希望能结合7楼代码给改下