- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问一下，像这个有没有可能截图之后直接就上传了，不用在文件夹那里去查找呢，因为这里上传的文件几乎都是直接截图的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=115515)
-- 发布时间：2018/3/8 14:35:00
-- 请问一下，像这个有没有可能截图之后直接就上传了，不用在文件夹那里去查找呢，因为这里上传的文件几乎都是直接截图的
此主题相关图片如下：qq截图20180308143453.png
-- 发布时间：2018/3/8 14:36:00
--
或者是右键做个快捷键，直接右键选择上传
-- 发布时间：2018/3/8 15:20:00
--
编写代码实现->截图->保存为文件->上传
截图、保存
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
ClipBoard.GetImage.save("d:\\test.jpg")
msgbox("保存到了d盘")
ClipBoard.SetText("d:\\test.jpg")
End If
上传、填写到表格
Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Upload("d:\\test.jpg","/test.jpg") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Dim r As Row = Tables("表A").current
Dim ls = r.DataRow.Lines("图片")
ls.add("/test.jpg")
r.DataRow.Lines("图片")= ls
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2018/3/8 15:29:00
--
我可以将它写在doubleclick事件里吗，是截图之后，双击它才会触发第一段代码吗？
-- 发布时间：2018/3/8 15:44:00
--
有没有可能，不只是在foxtable中的界面截图之后再上传的呢
-- 发布时间：2018/3/8 15:58:00
--
截图代码
Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
获取截图内容
If ClipBoard.GetImage IsNot Nothing Then
ClipBoard.GetImage.save("d:\\test.jpg")
msgbox("保存到了d盘")
ClipBoard.SetText("d:\\test.jpg")
End If
-- 发布时间：2018/3/8 15:59:00
--
我这样写，截图之后虽然提示上传成功了，但是查看管理那里，是没有这张图片的，"\\D:\\myftp\\web文件管理器\\test.jpg") 这个是服务器里的存放位置
此主题相关图片如下：qq截图20180308155849.png
-- 发布时间：2018/3/8 16:55:00
--
好的，谢谢
-- 发布时间：2018/3/8 17:21:00
--
路径要这样写
If ftp1.Upload("d:\\test.jpg","/test.jpg") = True Then \'/web文件管理器/test.jpg
-- 发布时间：2018/3/8 18:11:00
--
好的