以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]照片上传尺寸控制问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132514) |
-- 作者:sunion -- 发布时间:2019/3/23 17:59:00 -- [求助]照片上传尺寸控制问题 (已经解决,谢谢)请教大家个问题: 上传照片按钮代码如何限制上传照片尺寸(800*600)?免得服务器爆掉! Dim CurRow As Row = Tables("学生信息表").Current Dim xueh As String = CurRow("学号") Dim ftp1 As new ftpclient ftp1.host="***" ftp1.Account = "***" ftp1.password = "***" ftp1.RootDir = "\\photo\\" & xueh & "\\" \'根目录已经创建,设置根目录 Dim dlg As New openFileDialog \'定义一个新的SaveFileDialog dlg.MultiSelect = True If dlg.showDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 For Each f As String In dlg.FileNames If ftp1.Upload(f,"/" & filesys.GetName(f) , True) = True Then Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If Next ftp1.Close End If
[此贴子已经被作者于2019/3/23 18:57:54编辑过]
|
-- 作者:sunion -- 发布时间:2019/3/23 18:58:00 -- 自己已经解决,谢谢 |