Originariamente inviato da Salvatore_91
ok,
comunque non ho capito la tua soluzione di prima? potresti farmi un esempio completo?
credo sia già 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