Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode Bar.Code = "123ABC你我他" Dim img As image = bar.GetImage Dim bmp As new bitmap( img.width+200, img.height+40) Dim g = Graphics.FromImage(bmp) g.DrawImage(img, 20, 20, img.width, img.height) '在背景离顶部100像素,左边100像素的地方开始绘制第二张图 Dim fnt As New Font("宋体",16) Dim msg As String = "I Like Foxtable" g.DrawString(msg,fnt,Brushes.Red,img.width+5,(img.height+40)/2) bmp.Save("d:\test.wmf") bmp.Dispose() Dim proc As new Process proc.file = "d:\test.wmf" proc.start
|