Originariamente inviato da Salvatore_91
Salva ragazzi, mi servirebbe creare delle immagini a tipo barcode, che pero oltre al codice a barre devono specificare anche il numero vero e proprio (al di sotto del barcode)


Con questo codice che ho trovato, l'immagine viene creata correttamente, pero non è visibile il codice:

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)
In pratica vorrei vedere sotto al codice anche la stringa:
*1234567890*

se la vuoi su un immagine unica, crei una bitmap leggermente più grande, crei il graphic da essa, disegni l'immagine del barcode, e sotto disegni la stringa con il codice.

una cosa del genere
codice:
        appImage = barcode.CreateDrawingImage(Color.Black, Color.White)
        Dim bitmap As New Bitmap(appImage.Width + 30, appImage.Height + 30)
        Dim g As Graphics
        g = Graphics.FromImage(bitmap)
        g.DrawImage(appImage, New Point(15, 0))
        g.DrawString(barcode.Code, New Font(FontFamily.GenericMonospace, 10), Brushes.Black, 0, appImage.Height + 5)
dove ovviamente le dimensioni e distanze le devi vedere un po tu...