FAQ TBarCode OCX
Comment créer un bitmap optimal pour 203 DPI en VB6 ?
Comment créer un bitmap optimal pour 203 DPI en VB6 ?
L'exemple de code ci-dessous utilise une largeur de module prédéfinie (personnalisée), définit les DPI, puis calcule la largeur totale du symbole. Le principe fonctionne également pour d'autres imprimantes.
La méthode OCX BCWidthHdc2 peut être utilisée pour calculer la largeur du code-barres. Si une largeur de module a été définie, utilisez une valeur factice pour le paramètre [in] nWidth. Si vous calculez la largeur en unité=mm, convertissez-la en pixels pour la fonction SaveImage. Si vous créez un code 2D, utilisez la fonction BCHeightHd2 pour la hauteur.
Exemple de code :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
Une largeur de module de 0,250 mm correspond à 2 pixels d'imprimante à 203 dpi, ce qui donne une qualité optimale. Utilisez toujours un multiple entier de 1 pixel (0,12512 mm)