关于图片上传压缩的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

要实现的目标是：1.只能拍照上传一张图片；2.压缩图片大小到1M左右。下面的代码试了不会压缩，要怎么改？

With wb.AddInputGroup("form3","ipg3","文件上传") '文件上传

With .AddUploader("up1","请上传一张检查实时图片",False)

.AllowDelete = True '允许删除

.Incremental = False '不允许重复选择文件或连续拍照

.ScaleWidth = 100 '自动压缩图片宽度为100个像素,高度等比例压缩

.TextPosition = 0 '标题靠左

End With

主题：关于图片上传压缩的问题