此主题相关图片如下：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")

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

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

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

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

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