以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 求助 其它 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145212) |
-- 作者:jackyfashion -- 发布时间:2020/1/12 16:32:00 -- 求助 其它 老师: 您好! dl g.Fil ter = "图形 文件|*.bm p;*.jp g;*.gif;*.p ng" dlg.M ultiS elect = True If d lg.Sh ow Di alog = Dia logRes ult.OK Then Fo r Ea c h file As String In dlg.FileNames Tables("qrymyf.susrtrou").AddNew Dim r A s Ro w = Tab les("表A.表B").Current r("物料图") = r("物料编号") & ".jpg" Di m bm pSrc As Ne w Bitmap(file) Di m k A s Single = 800 / bmpSrc.width Di m l As Integer = Format(bmpSrc.Height * k, "######") Di m bmpDest As New Bitmap(800,l) Di m g = Graphics.FromImage(bmpDest) Di m rect Dest As New Sy stem.Drawi ng.Rect angle(0, 0, 800, l) Di m rectS rc As New Syst em.Drawi ng.Rec tangle(0, 0, bm pSrc.Widt h, bm pSrc.Height) g.Draw Image(bmpSrc, rectDest, rectSrc, Gr aphic sUnit. Pixel) g.Dispose() bm pDest.Save(“D:\\” & r("物料图")) N e x t End If 以上代码,不知那里出着问题,增加一个图片时提示: .NE T Fram ework 版本:2.0.50727.8789 Foxtable 版本:2018.10.9.1 错误所在事件: 详细错误信息: 标准表达式中数据类型不匹配。 请老师指教!!! 谢谢!!!
[此贴子已经被作者于2020/1/12 21:37:15编辑过]
|
-- 作者:有点蓝 -- 发布时间:2020/1/12 21:17:00 -- lk变量是什么东西?给出完整代码 |
-- 作者:jackyfashion -- 发布时间:2020/1/12 21:38:00 -- 老师: 您好! LK是像素的变量 LK = 800 谢谢老师
|
-- 作者:有点蓝 -- 发布时间:2020/1/12 22:31:00 -- 上传实例说明。我这样测试没有问题 Dim dlg As New OpenFileDialog dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png" dlg.MultiSelect = True If dlg.ShowDialog = DialogResult.OK Then For Each file As String In dlg.FileNames \'Dim r As Row = Tables("qrymyf.susrtrou").AddNew \'r("物料图") = r("物料编号") & ".jpg" Dim bmpSrc As New Bitmap(file) Dim k As Single = 800 / bmpSrc.width Dim l As Integer = Format(bmpSrc.Height * k, "######") Dim bmpDest As New Bitmap(800,l) Dim g = Graphics.FromImage(bmpDest) Dim rectDest As New System.Drawing.Rectangle(0, 0, 800, l) Dim rectSrc As New System.Drawing.Rectangle(0, 0, bmpSrc.Width, bmpSrc.Height) g.DrawImage(bmpSrc, rectDest, rectSrc, GraphicsUnit. Pixel) g.Dispose() bmpDest.Save("D:\\111.jpg") Next End If |
-- 作者:jackyfashion -- 发布时间:2020/1/12 23:34:00 -- 好的 谢谢老师!!! 谢谢!!!
|
-- 作者:jackyfashion -- 发布时间:2020/1/13 13:15:00 -- 老师: 您好! 以下的提示是那里出问题,查好久查不出来,代码没问题。 .NET Framework 版本:2.0.50727.8789 Foxtable 版本:2018.10.9.1 错误所在事件:窗口,ymyfBOM,Button13,Click 详细错误信息: GDI+ 中发生一般性错误。 请老师指点!!! 谢谢!!!
|
-- 作者:有点蓝 -- 发布时间:2020/1/13 14:43:00 -- 请上传实例,图片测试 |
-- 作者:有点蓝 -- 发布时间:2020/1/13 14:43:00 -- 如果要按比例缩放,参考 Dim file As String = "d:\\test.jpg" Dim img As image = getImage(file) Dim bmp As bitmap If img.width > 800 Then If 800 * (img.height / img.width) > 600 Then bmp = new bitmap(img, 800*(600/(800*(img.height/img.width))), 600) Else bmp = new bitmap(img, 800, 800 * (img.height / img.width)) End If End If bmp.save("d:\\缩略图.jpg",img.RawFormat) bmp.Dispose |
-- 作者:jackyfashion -- 发布时间:2020/1/13 20:45:00 -- 谢谢老师!!! 谢谢!
|