主题：[求助]关于painter窗口画图问题

此主题相关图片如下：qq图片20140324153238.jpg

如图所示，我在画二维码图片的时候，长宽都定义好是10 ，10，应该是个正方形，旁边的白色边缘怎么多出来的，如何去掉呢？

 

测试：窗口是“电子照片加二维码”，发布后，首先在特种载体表的第一条记录里的数字档案字段（图片格式）里添加三张图片，测试图片已经在压缩包里，然后在目录打印菜单下有个添加二维码的按钮，按一下，打印前置，添加。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:萧山区特种载体一体化管理系统.rar

就不能做个简单的例子来展示问题吗? 也许是没有拉伸

        Dim p As WinForm.Painter = e.Form.Controls("Painter1")
        Dim g As Graphics = p.Graphics

        g.DrawImage(getImage(projectpath & "电子照片\" & fn & ".jpg"),0,0,800,600)
        g.DrawImage(bar.GetImage,690,480,100,100)
        g.DrawImage(getImage("archives.ico"),725,515,26,30)
        Dim fnt As New Font("黑体",10,FontStyle.Bold)
        g.DrawString(fn,fnt,Brushes.Black,670,585)
        p.Repaint()
        p.save(projectpath & "电子照片\" & fn & ".jpg")

 

能不能不用画板实现，我发现图片没办法适应画板，画板大小固定的话，图片画上去会失真的。 

 

        Dim g As Graphics = p.Graphics

        g.DrawImage(getImage(projectpath & "电子照片\" & fn & ".jpg"),0,0,800,600)
        g.DrawImage(bar.GetImage,690,480,100,100)
        Dim rm As New prt.RenderImage '定义一个图片对象
        rm.Image = GetImage("archives.ico") '设置图片
        rm.Style.ImageAlign.StretchHorz = True
        g.DrawImage(rm.Image,725,515,26,30)
        Dim fnt As New Font("黑体",10,FontStyle.Bold)
        g.DrawString(fn,fnt,Brushes.Black,670,585)
        p.Repaint()
        p.save(projectpath & "电子照片\" & fn & ".jpg")

 

 

我拉伸了二维码，没有效果。

设置成图片大小的话，如果图片换一张不一样大小的也有这个问题，批量图片也是，由于原始图片大小都不一样，画板固定大小后，有些图片只能部分显示。

参考4楼,根据现实的图片,动态设置大小

哦，意思我了解了，是获取图片大小赋值给面板高宽。

版主，我做了一个精简案例，测试图片也在包里，在案卷库的第一行的数字档案列（图片型）加三张图片，会自动保存到项目的电子照片文件夹下，然后可以通过添加二维码窗口对其批量添加二维码。

现在是画板只能动态一次，for循环无法多次调整画板大小，第二是二维码无法拉伸，边缘出现白色。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:案例.rar

完全没办法理解你的意思,你这样做意义何在?

首先画板放的是原本图片,和二维码有空白八竿子打不着