如何在 VB6 中为 203 DPI 创建最佳位图？

如何在 VB6 中为 203 DPI 创建最佳位图？

下方示例代码使用了预设（自定义）的模块宽度，设置 DPI，然后计算符号的总宽度。该原理同样适用于其他打印机。

可以使用 OCX 方法 BCWidthHdc2 来计算条码的宽度。如果已设置模块宽度，请为 [in] nWidth 参数使用一个占位数值。如果您以毫米为单位计算宽度，请在调用 SaveImage 函数之前将其转换为像素。如果您创建的是二维码，请使用 BCHeightHd2 函数计算高度。

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