Dim barcode As Barcode128 barcode = BarcodeFactory.GetBarcode(Symbology.Code128) barcode.Number = TextBox1.Text.ToUpper barcode.Height = 120 Dim bitmap As Bitmap = barcode.Render() Dim Cr As New Rectangle(5, 55, 130, 80) 'upperleft(x),upperleft(-y),right(-x),bottom(y) Dim OrignalImage As Bitmap OrignalImage = bitmap Dim CropImage = New Bitmap(CropRect.Width, CropRect.Height Using grp = Graphics.FromImage(CropImage) grp.CompositingQuality = Drawing2D.CompositingQuality.HighQuality grp.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic grp.SmoothingMode = Drawing2D.SmoothingMode.HighQuality grp.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality grp.DrawImage(OrignalImage,New Rectangle(7,5,Cr.Width,Cr.Height),Cr, GraphicsUnit.Pixel) PicBarCode.Image = CropImage CropImage.Save("D:\bc.jpeg") grp.Dispose() End Using
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)