oppen的专栏

根据，您在一个查询页面中，输入的汉字字符串，获取其对应的汉字拼音首字母字符串，并灵活配置到其他id中

这是微软提供的条码控件，可以表示多种条码字体，具体资料大家可以查阅MSBCODE9.CHM，可以到office安装目录下查找。 msbcode9.ocx是微软公司OFFICE自带的一个条码控件。不需要条码字体直接就可以打印一些条码，比如CODE128、CODE39等。而且对于开发环境没有太多的限制，至少pb9、pb10都测试通过。 1、首先你要注册一下msbcode9.ocx控件。regsvr32 msbcode9.ocx 2、使用ole在PB中把注册的控件增加到窗口中或数据窗口中。 3、双击控件就会看到一些属性，包括选择条码字体。 4、不过也可以在程序中用代码来控制。 dw_1.o b j e c t.ole_1.o b j e c t.style = 7 //7代表CODE128 6代表CODE39 dw_1.o b j e c t.ole_1.o b j e c t.value = '条码值' 然后就可以打印了，最后测试没问题，激光打印机打出来的条码可以在普通的条码扫描枪上正确识别，而且扫描效果很好，比用字体实现的要好。但存在另一个问题，如果想要打印一批单据，每个单据都带条码的话，用条码字体比较好实现，用控件的话不好实现。可以先把ole对象存在数据库中，最后检索出来，但日后数据库检索的速度会很慢，这是因为存储ole对象的缘故。

能录像和抓拍图像。您可以使用函数function ulong capCreateCaptureWindowA(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) LIBRARY 'AVICAP32.DLL' ； ///开始事件： string lpszName ulong l1 l1=handle(win_test) lpszName='摄像头界面...' //capCreateCaptureWindowA(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) lhand=capCreateCaptureWindowA(lpszName,262144+12582912+1073741824 + 268435456 ,60,0,150,200,l1,0) if lhand <> 0 then send(lhand, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0) send(lhand, WM_CAP_SET_CALLBACK_ERROR, 0, 0) send(lhand, WM_CAP_SET_CALLBACK_STATUSA, 0, 0) send(lhand, WM_CAP_DRIVER_CONNECT, 0, 0) send(lhand, WM_CAP_SET_SCALE, 1, 0) send(lhand, WM_CAP_SET_PREVIEWRATE, 66, 0) send(lhand, WM_CAP_SET_OVERLAY, 1, 0) send(lhand, WM_CAP_SET_PREVIEW, 1, 0) end if ////录像事件 string s s='c:\save.avi' if lhand<>0 then Send(lhand,WM_CAP_FILE_SET_CAPTURE_FILEA,0, s); Send(lhand,WM_CAP_SEQUENCE, 0, 0) //开始捕捉 end if //停止保存 send(lhand, WM_CAP_STOP, 0, 0) /////保存图像 //保存为图片（按钮的clicked事件中） string s s='c:\save.bmp' if lhand <> 0 then Send(lhand,WM_CAP_SAVEDIB,0,s); end if