[求助]请问图片管理器中增加按钮的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问图片管理器中增加按钮的代码

共有3066人关注过本帖树形打印复制链接主题：[求助]请问图片管理器中增加按钮的代码

表哥

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

加好友

发短信

等级：婴狐帖子：44 积分：409 威望：0 精华：0 注册：2015/3/17 19:31:00

[求助]请问图片管理器中增加按钮的代码 发帖心情

Post By：2015/4/12 23:10:00 [只看该作者]

谢谢

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/13 8:45:00 [只看该作者]

无法做到,除非你自己设计一个图片管理器.

表哥

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

加好友

发短信

等级：婴狐帖子：44 积分：409 威望：0 精华：0 注册：2015/3/17 19:31:00

Post By：2015/4/13 10:19:00 [只看该作者]

通过窗口按钮单击事件直接添加图片到表格的备注列，无法做到吗？

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/4/13 10:23:00 [只看该作者]

可以, 直接绑定一个图片管理控件,更加方便

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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