Foxtable(狐表)用户栏目专家坐堂 → 为什么图像上传至ftp后,不能在picturebox中显示?


  共有1919人关注过本帖树形打印复制链接

主题:为什么图像上传至ftp后,不能在picturebox中显示?

帅哥哟,离线,有人找我吗?
ycwk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1218 积分:8445 威望:0 精华:0 注册:2016/2/2 21:52:00
为什么图像上传至ftp后,不能在picturebox中显示?  发帖心情 Post By:2018/3/21 10:13:00 [只看该作者]

文件来源都设置了,就是绑定那里 没有设置,设置成对应的 附件  字段,也没有用  ,不好意思再次发贴,因为比较着急


Dim myGraphics As Graphics = basemainform.CreateGraphics()
Dim s As new Size(2000, 1000) '截取的大小
Dim bit As New Bitmap(s.Width, s.Height, myGraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(bit)
memoryGraphics.CopyFromScreen(0, 0, 0, 0, s) '截取的开始位置,坐标(100, 200)


Dim str_serialno As String =  e.Form.Controls("TB_日常问题ID").value & "_" & Format(Date.now, "yyMMddhhmmss") & ".jpg"


bit.save(ProjectPath & "RemoteFiles\" & str_serialno)    '保存图片到本地
msgbox(ProjectPath & "RemoteFiles\" & str_serialno)

'上传到FTP服务器
Dim ftp1 As new ftpclient 
ftp1.host="172.16.5.13" 
ftp1.Account = "075"
ftp1.password = "075"
ftp1.upload(ProjectPath & "RemoteFiles\" & str_serialno,"/李朝阳/" & str_serialno,True) '上传


Tables("自助报障记录表").Current("问题描述附件")= str_serialno     '在"自助报障记录表"中保存上述图片路径
Tables("自助报障记录表").current.Save    


bit.Dispose()     '丢弃资源,不知道是否起作用

MessageBox.Show("截图成功", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Question, 0, Windows.forms.MessageBoxOptions.ServiceNotification)     '模态窗口提示


Dim pbx As WinForm.PictureBox
pbx = Forms("软件自助报障系统窗口").Controls("PictureBox1")
pbx.SizeMode = ImageSizeMode.Zoom
pbx.Image = GetImage(ProjectPath & "RemoteFiles\" & str_serialno)


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/21 11:41:00 [只看该作者]

pictureBox控件,不要绑定表列,不然无法直接设置image属性。

 

如果要绑定,那直接设置修改 Tables("自助报障记录表").Current("问题描述附件") 的值即可。


 回到顶部