Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图形文件|*.jpg;*.png" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
'压缩图片
Dim file As String = dlg.FileName '文件路径,如:"d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.height > 500 Then
bmp = new bitmap(img,500 * (img.width / img.height), 500)
ElseIf img.width > 500 Then
bmp = new bitmap(img,500, 500 * (img.height / img.width))
End If
'暂停执行直接保存
'生成文件名,准备下面保存到本机,以备下面准备上传到服务器
'\,之前的路径
Dim luJing0 As String = dlg.FileName.Remove(dlg.FileName.LastIndexOf("\"))
'新的文件名
Dim name0 As String = Format(Date.Now,"yyyyMMddHHmmss") & Rand.Next(111111,999999) & dlg.FileName.Remove(0,dlg.FileName.LastIndexOf(".")) '新定义的文件名
'合成后,生成连接路径和新的文件名的字符串
Dim luJing0_name0 As String = luJing0 & "\" & name0
'条件已具备,可以在本机保存了
bmp.save(luJing0_name0)
bmp.Dispose
'将路径写入到文本框
e.Form.Controls("Txt_huiYuan_luJing").Value = "\biPin\" & name0 ’把服务器端ftp文件夹下的路径放在ft表格中：\bin\20230801093722241665.jpg
'ftp客服端上传
Dim ftp1 As New FtpClient
ftp1.Host="*.*.*.*"
ftp1.Account = "******"
ftp1.Password = "******"
If ftp1.Upload(luJing0_name0,"\bin\" & name0) = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
’前面，能正常执行
'希望将上传完成的图片，放到上图的pictureBox中，提示下面的错误
If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.Current.IsNull("weiXinErWeiMa") = False Then
e.Form.Controls("PictureBox_weiXinErWeiMa").Image = CurrentTable.Current("weiXinErWeiMa") ’这行怎么改？
End If
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.11.3.1
错误所在事件：窗口,moShi_huiYuan_tianErWeiMa,Btn_huiYuan_xuanZe,Click
详细错误信息：
方法调用失败，因为“Public Property Image() As System.Drawing.Image”不能用这些参数调用:
与参数“value”匹配的参数无法从“String”转换为“Image”。
加好友 
发短信
Post By：2023/7/30 9:21:00 [显示全部帖子]
此主题相关图片如下：000.png
