Come Posso Creare una Bitmap Ottimale per 203 DPI in VB6?

Come Posso Creare una Bitmap Ottimale per 203 DPI in VB6?

Il codice di esempio sotto utilizza una larghezza modulo preimpostata (personalizzata), imposta i DPI e quindi calcola la larghezza totale del simbolo. Il principio funziona anche per altre stampanti.

Il metodo OCX BCWidthHdc2 può essere utilizzato per calcolare la larghezza del codice a barre. Se è stata impostata una larghezza modulo, utilizzate un valore fittizio per il parametro [in] nWidth. Se calcolate la larghezza in unità=mm, convertitela in pixel per la funzione SaveImage. Se create un codice 2D, utilizzate la funzione BCHeightHd2 per l’altezza.

Dim widthPx As Long
Dim heightPx As Long
Dim heightMM As Double
TBarCode111.Dpi = 203
TBarCode111.SizeMode = eSizeMode_CustomModuleWidth  ' =1
TBarCode111.ModuleWidth = "250"
heightPx = 100
heightMM = heightPx * (25.4 / TBarCode111.Dpi)
widthPx = TBarCode111.BCWidthHdc2(0, 1000, heightMM * 1000, eMUPixel)
TBarCode111.SaveImage "c:\temp\test.bmp", eIMBmp, widthPx, heightPx, 203, 203