各位大神新年好！有个条码控件问题请指教，多谢了！

bdx808 发布于 2023-01-28 15:38， 1891 次点击

vfp9 sp2环境：
1、想用控件在报表中显示C128条形码，在网上下载barcodex.ocx控件控件，复制到C:\Windows\System32目录下
2、以管理员身份运行cmd，输入regsvr32 barcodex.ocx回车，提示成功
3、打开vfp，在工具-选项-控件中选Barcodex by fath Software点添加在出现的窗口中找到并点选C:\Windows\System32目录下barcodex.ocx，最后确定，没有发现报表控件工具栏图标有变化，再次打开选项的控件选项卡，发现Barcodex by fath Software还处于选择状态
问题是（

只有本站会员才能查看附件，请登录

）：
重新启动vfp，发现报表控件工具栏中还是没有Barcodex控件，怎么调出barcodex控件？如果是下载的控件有问题请哪位提供一个条码控件，多谢了！

13 回复

laowan0012023-01-28 15:58

用foxbarcode，不需要注册

https://www.
参考一下

[此贴子已经被作者于2023-1-28 16:02编辑过]

bdx8082023-01-28 16:26

先谢谢！

bdx8082023-01-28 16:37

回版主：太高深，看不懂……

laowan0012023-01-28 17:37

（1）form.init里加下面的句子

SET PROCEDURE TO foxbarcode ADDITIVE
SET PROCEDURE TO gpimage2.prg ADDITIVE

（2）在打印报表的程序中：

程序代码：

PRIVATE poFbc
poFbc = CREATEOBJECT("FoxBarcode")
WITH poFbc
  .cImageType = "BMP"
*  .cImageFile [color=#808080]= SYS(5)+SYS(2003)+"\xbarcode"[/color]
  .nBarcodeType = 110  && Code 128
  .cSet128 = "B"    &&"Auto" && Set 128 C
  .nImageHeight = 70
  .nFactor = 2
ENDWITH

参数可参考2楼链接
（3）在报表里这样用

只有本站会员才能查看附件，请登录

以上是我的用法，供参考

[此贴子已经被作者于2023-1-28 17:42编辑过]

bdx8082023-01-28 18:57

多谢耐心指导！

laowan0012023-01-28 20:15

回复 6楼 bdx808

我截图是标签，报表中也是用一样的控件和方法

bdx8082023-01-28 21:23

明白，再次感谢版主！

sam_jiang2023-01-29 10:39

最好是用版主的二维码生成器，纯VFP代码的。

另外微软系统自带的条码控件也是不错的，其他第三方控件建议少用，太麻烦。

#10

igaoyuan2023-01-29 11:05

学习了。
版主推荐的生成器FoxBarcode的源码链接下载需要积分，有下载了的狐友能否分享一下，谢谢！

#11

laowan0012023-01-29 11:19

回复 10楼 igaoyuan

5楼附件里有

#12

igaoyuan2023-01-29 11:27

回复 11楼 laowan001

看到了，已下载，谢谢！！

#13

sam_jiang2023-01-29 11:30

https://bbs.bccn.net/thread-474836-1-1.html

#14

igaoyuan2023-01-29 11:34

回复 13楼 sam_jiang

谢谢！
研究一下