VFP获取系统默认打印机的设备名

作者:吹水佬 DECLARE long GetDefaultPrinter IN winspool.drv string@,long@ nlen = 0 GetDefaultPrinter(NULL, @nLen) cName = SPACE(nLen) IF GetDefaultPrinter(@cName, @nLen) != 0 ? LEFT(cName,nLen-1) ELSE ? "没有默认打印机" ENDIF
2023-03-30 10:15 | 阅读 715 次 | 评论 0 条

生成数据库中表间关系名

* 生成数据库中表间关系名 CLEAR CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20)) OPEN DATABASE Mdf\Comm_Dbf nRelas=ADBOBJECTS(aRela,"RELATION") =ASORT(aRela) FOR i=1 TO nRelas INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3]...
2018-08-22 22:29 | 阅读 1220 次 | 评论 0 条

生成数据库中表结构明细

* 生成数据库中表结构明细 CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE Made_Dbf\T_Name (表名 c(30),字段名 c(20),字段说明 c(100),字段类型 c(1),索引类型 c(10),索引方式 c(4),宽度 n(3),小数位 n(1),表说明 c(100)) OPEN DATABASE Made_Dbf\Comm_Dbf nTables=ADBOBJECTS(aTable,"TABLE") =ASORT(aTable) FOR i=1 TO nTables USE ("Made_D...
2018-08-22 22:25 | 阅读 1740 次 | 评论 0 条

语音

oSpeech = CreateObject("SAPI.SpVoice") &&连接到系统的语音功能 sWord='中华人民共和国'&&被阅读的字串 oSpeech.Speak(sWord) &&让系统读出字符串里的内容 oSpeech=NULL &&阅读完毕
2015-11-20 16:06 | 阅读 2161 次 | 评论 0 条

BMP 转JPG 的代码

DECLARE INTEGER GdipLoadImageFromFile IN Gdiplus.dll STRING, INTEGER @ DECLARE INTEGER GdipSaveImageToFile IN Gdiplus.dll INTEGER, STRING, STRING, INTEGER DECLARE INTEGER GdipDisposeImage IN Gdiplus.dll INTEGER lcBMPFile = GETPICT("BMP") lcJPGFile = FORCEEXT(lcBMPFile,"JPG") lnImage =0 =G...
2015-10-29 14:32 | 阅读 2428 次 | 评论 0 条

获取本机IP地址

ox=CreateObject("MSwinsock.Winsock") ?'IP地址:',ox.LocalIP ?'计算机名:',ox.LocalHostName RELEASE OX
2015-05-01 23:53 | 阅读 2775 次 | 评论 0 条

获取显卡详细信息

作者:自由之风 Clear objWMIService = Getobject("winmgmts:\\.\root\CIMV2") colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48) For Each ye In colItems ?"型 号: "+ ye.VideoProcessor ?"厂 商: "+ye.AdapterCompatibility ?"名 称: "+ ye.Name ?"状 态: "+ y...
2015-04-09 01:02 | 阅读 1825 次 | 评论 0 条

WAIT信息屏幕居中 函数

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 名称:WAIT信息屏幕居中 函数 * 作者:宋** * 公司:SYRSOFT(R) 上海 中国 * 声明:版权所有(C)宋** 保留所有权利 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 语法 MsgCent(cExpression [,nModel]) * 参数 * cExpression * 指定要显示的自定义信息。若省略...
2015-04-01 00:35 | 阅读 1897 次 | 评论 0 条

其它问题

在百度搜索框内打入 site www.meizvfp.com 你要搜索的关键字
2015-02-26 13:38 | 阅读 1246 次 | 评论 0 条
浏览376331次