credo sia già un esempio completo...Originariamente inviato da Salvatore_91
ok,
comunque non ho capito la tua soluzione di prima? potresti farmi un esempio completo?
nel senso che tu crei la bitmap che contiene il barcode (appImage) solo che la scrivi dentro un bitmap più grande (quella che ho chiamato bitmap) e sotto aggiungi la scritta, a questo punto, usi la bitmap di nome "bitmap" che contiene sia il barcode che la scritta.
codice:Dim appImage As Bitmap Dim barcode As New iTextSharp.text.pdf.Barcode128 barcode.BarHeight = 28 barcode.ChecksumText = True barcode.GenerateChecksum = True barcode.StartStopText = True barcode.Code = "*1234567890*" appImage = barcode.CreateDrawingImage(Color.Black, Color.White) 'creo una nuova bitmap più grande di quella col barcode Dim bitmap As New Bitmap(appImage.Width + 30, appImage.Height + 30) 'creo un oggetto graphic dalla nuova bitmap Dim g As Graphics g = Graphics.FromImage(bitmap) 'disegno in esso la bitmap del barcode g.DrawImage(appImage, New Point(15, 0)) 'disegno la scritta nella bitmap finale g.DrawString(barcode.Code, New Font(FontFamily.GenericMonospace, 10), Brushes.Black, 0, appImage ' a questo punto "bitmap" contiene sia barcode che scritta 'per capirci meglio: appImage = bitmap

Rispondi quotando