[VB.NET] Visualizzazione codice a barre (barcode)

[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:

            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*

[U235]

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:

            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

        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...

[Salvatore_91]

grazie, ma io volevo sapere se di per se la dll permette di visualizzare
anche il numero.

E' l'unica soluzione?

[U235]

Originariamente inviato da Salvatore_91
grazie, ma io volevo sapere se di per se la dll permette di visualizzare
anche il numero.

E' l'unica soluzione?

questo non saprei non l'ho mai usata.

[Salvatore_91]

ok,

comunque non ho capito la tua soluzione di prima? potresti farmi un esempio completo?

[U235]

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.

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