主题：请问一下，像这个有没有可能截图之后直接就上传了，不用在文件夹那里去查找呢，因为这里上传的文件几乎都是直接截图的

此主题相关图片如下：qq截图20180308143453.png

或者是右键做个快捷键，直接右键选择上传

编写代码实现->截图->保存为文件->上传

 

截图、保存

 

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

我可以将它写在doubleclick事件里吗，是截图之后，双击它才会触发第一段代码吗？

有没有可能，不只是在foxtable中的界面截图之后再上传的呢

截图代码

 

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

 

我这样写，截图之后虽然提示上传成功了，但是查看管理那里，是没有这张图片的，"\D:\myftp\web文件管理器\test.jpg")  这个是服务器里的存放位置

好的，谢谢

路径要这样写

 

If ftp1.Upload("d:\test.jpg","/test.jpg") = True Then '/web文件管理器/test.jpg

好的