十豆三-CSDN博客

原创表单分隔条示例

相关帖子：相关帖子：http://bbs.csdn.net/topics/390255831根据不同分辨率自行调整大小、位置可以用 vfp9.0 的 anchor属性，如果不是 vfp9.0，就需要自己写代码实现左边的树和右边的的容器中间可以左右拖动（分隔条），用 vfp 代码即可。下面是例子代码，将以下代码粘帖到一个prg中后运行，然后左右拖动分隔条，也可最大化或手动改变表单大小

2012-11-05 15:49:29 3568 4

原创鼠标拖动(移动、拖曳)控件

*!* 作者：十豆三*!* 日期：2012-11-05*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*!* 功能：鼠标拖动(移动、拖曳)控件方法一：*!*控件的MouseDown事件Lparameters nButton, nShift, nXCoord, nYCoord&&系统代码If

2012-11-05 14:59:37 3321 1

原创在表单上任意位置滑动鼠标滚轮来使表单上下滚动

*!* 作者：十豆三*!* 日期：2011-12-03*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*-- 前提：表单具有滚动条，即表单 ScrollBars 属性为 2 或 3*-- 为了测试，在表单添加了多种控件*-- 主要代码在自定义方法 mymousewheel、setmousewheel

2012-01-07 16:49:42 4129 3

原创将字符串尽量平均分成等长度的子字符串,且不受中文字影响

*!* 作者：十豆三*!* 日期：2011-12-26*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*!* 功能：将字符串尽量平均分成等长度的子字符串,且不受中文字影响*!* 参数：tcStr ==> 要做分割的字符串,tnLen ==> 想分成的长度*-- 如：?CUT_STR

2012-01-07 16:39:59 2982 4

原创 ANSI、UTF-8、Unicode(little endian)、Unicode big endian的互相转换

*!* 作者：十豆三*!* 日期：2011-11-15*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*!* ANSI：*!* ANSI字符串我们最熟悉，英文占一个字节，汉字2个字节，以一个\0结尾，常用于txt文本文件*!* Unicode：*!* Unicode字符串每个字符(汉字

2011-11-24 10:54:09 11338 3

原创 WIN API-VFP取得任务栏的尺寸(宽度和高度)及位置

*!* 作者：dkfdtf(方法一)、十豆三(方法二、方法三)*!* 日期：2011-11-11*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)、Windows 7 32位(SP1)*-- 方法一：by dkfdtf*!* 取任务栏尺寸和位置可以直接用 SHAppBarMessage 函数来查询，*!*

2011-11-24 10:40:58 4695

原创 vfp9.0通过WebBrowser控件获取QQ新闻标题及链接

*!* vfp9.0通过WebBrowser控件获取QQ新闻标题及链接*!* -------------------------------------------*!* 作者：十豆三*!* 日期：2011-09-17*!* vfp版本：vfp9.0*!* 控件名称： Microsoft Web Browser(Microsoft Internet Cont

2011-09-19 14:48:25 8481 9

原创通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息

*!* 作者：十豆三*!* 日期：2011-08-05*!* 说明：通过WMI获取系统.进程.CPU.磁盘.分区.网卡.主板.内存.显卡.共享.键盘.鼠标等信息oWMI=Getobject('winmgmts:')&& vfp9.0m.cWin32C

2011-08-05 15:58:13 5550 4

原创获取CSDN论坛帖子列表

本例是获取CSDN-其他数据库开发-VFP版最近的200个帖子列表，同理也可以获取其他版块的帖子列表。

2010-08-23 14:31:00 2483 2

原创支票日期大写转换

票据的出票日期必须使用中文大写。为防止变造票据的出票日期；在填写月、日时，月为壹、贰和壹拾的，日为壹至玖和壹拾、贰拾和叁拾的，应在其前加“零”；日为拾壹至拾玖的，应在其前加“壹”。如1月15日，应写成零壹月壹拾伍日。再如10月20日，应写成零壹拾月零贰拾日。

2010-08-23 14:24:00 17968

原创 WIN API-VFP提取文件中(图标资源)的图标

*!* 作者：十豆三*!* 日期：2010-06-10*!* vfp版本：vfp9.0(SP2 7423)*!* 操作系统：Windows XP(SP3)*!* 说明：部分代码为转帖内容(感谢原作者)，本人只对_GetFile过程等处稍加修改并加入生成图标文件模块。可惜由于所用 API 的限制生成的图标只能是16色的。*!* 由于本方法提取的图标不够完

2010-08-23 14:16:00 3978

原创搜狗云输入法使用心得

由于当年上学时盛行学五笔输入法，所以我从学会五笔输入就一直用到现在。五笔输入法用过多个版本：微软五笔86版、五笔加加、极点五笔及搜狗五笔。拼音输入法却只用过搜狗拼音，因为大家都在用，理由不用说了。我大多时候主要还是用五笔输入法，遇到难打出（不会折字根）的字、词时会切换到搜狗拼音来输入，不能说拼音不好，只是五笔用太久了，习惯了。不过发现越来越多的字、词用五笔都不会打了

2010-04-07 17:32:00 3083 7

原创 WIN API-VFP获取第三方窗体的控件信息(句柄,窗口ID,进程ID,类名,标题)

*十豆三 2010-02-09 *函数返回与指定字符创相匹配的窗口类名或窗口名的最顶层窗口的窗口句柄。这个函数不会查找子窗口。Declare Long FindWindow In WIN32API String lpClassName,String lpWindowName *函数获得一个窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口，从排在给定的子窗口后面的下一

2010-03-27 11:47:00 10967 4

原创在 CSDN论坛不用链接发本地图片方法

*!* 通过学习伴水此帖而得来*!* http://topic.csdn.net/u/20100127/14/A961DF9A-34A1-44F1-9F9A-C10A4D168736.html*!* 运行环境：VFP8.0 OR VFP9.0*!* apple_8180(十豆三) 2010-02-01m.lcPictureFile=Getfile("所有支持的文件(*.bmp,*.jpg,

2010-03-27 11:39:00 1993

原创有关网络打印

VFP搜索打印机顺序：报表默认打印机(报表内保存的) -> VFP默认了打印机( Set Printer To 设置) -> Windows 默认打印机所以要使用网络打印机时，首先设计报表时不要保存报表打印机环境，方法如下：VFP9.0以下： Use 报表名.frx Replace All Tag With ,tag2 With For Objtype=1 Use

2010-01-11 13:05:00 3533 3

转载搜索引擎提交入口

· 一个免费登录网站只需提交一页（首页），百度搜索引擎会自动收录网页。· 符合相关标准您提交的网址，会在1个月内按百度搜索引擎收录标准被处理。· 百度不保证一定能收录您提交的网站。· 提交地址：http://www.baidu.com/search/url_submit.html · Google 经常在网上漫游，搜寻新的资料。Google 也欢迎您提供新的网站信息。但 Google 会分

2009-11-27 11:15:00 2644 1

原创 VFP9将图片移动、放大、缩小、拖动后裁剪生成另一张图片

本程序借鉴了 dkfdtf 版主的一些代码，在此表示感谢。应网友 taohua300 需求，将我程序中用到照片裁剪程序分离出来，共享给大家，使用环境为VFP9.0（SP2）。此程序的功能为：选择图片后，可对图片进行移动、放大、缩小、拖动等操作，然后再将控件内可见的图片裁剪生成另一张图片。（不是用鼠标拖出矩形框后裁剪的。）程序下载地址：1、http://p.blog

2009-11-03 15:12:00 7771 6

原创 VFP实现网络校时

VFP实现网络校时 *客户机与校时服务器日期相同时可以校对时间，日期有差异时校时会失败 =Strtofile("@net Time /setsntp:210.72.145.44"+Chr(13)+Chr(10)+"@net stop w32time"+Chr(13)+Chr(10)+"@net start w32time"+Chr(13)+Chr(10)+"@w32tm /resync /re

2009-07-01 10:58:00 6211 9

原创 VFP在表单上画图(画直线、曲线等)

本示例并没有应用GDI+ Public oform1oform1=Newobject("form1")oform1.ShowReturn Define Class form1 As Form Top = 1Left = 1Height = 500Width = 700ScrollBars = 0DoCreate = .T.ShowTips = .F.Picture = ""

2009-04-27 11:38:00 12936 13

原创 CSDN 2009中国软件技术英雄会(北京站) 之我评的奖

CSDN 2009中国软件技术英雄会(北京站)于2009年04月18日盛大召开了，此次大会为 CSDN MVP、MVB、优秀版主及金牛奖颁了奖，那我也来评几项奖吧：辛苦奖我认为最应该先说这个奖，因为这个奖我颁给 CSDN 英雄会的所有工作人员。记得3月末某天晚上8点左右，接到了 CSDN 莫依（李家佳）的电话，与我沟通此次英雄会行程的事，让我感到意外的是，离英雄会召开还

2009-04-20 17:23:00 2125 1

原创 CSDN 2009中国软件技术英雄会(北京站) 之获奖感言

CSDN 2009中国软件技术英雄会(北京站)于2009年04月18日盛大召开了，由于此次 CSDN 各奖项（MVP、MVB、优秀版主）的获奖名单在英雄会之前是保密的（以前每届英雄会之前就公布了获奖名单），所以多了几分神秘，在公布CSDN 2008-2009优秀版主名单中听到了我的名字，有一种出乎意外的惊喜，感谢 CSDN 的认可，感谢朋友们的支持。 2004年开始活跃论坛以来，一直与

2009-04-20 13:13:00 1344 3

原创 WIN API-VFP获得其他程序多个输入框的内容

WIN API-VFP获得其他程序多个输入框的内容*--------------------------------------先用SPY++得知其他程序（我测试的软件）的输入框类是Edit下面你启动测试的软件，在多个输入框中随意输入几个字符，然后用以下代码即可获得你在多个输入框中输入的字符。Declare Integer FindWindow In user32 String lpClass

2009-04-07 16:20:00 4032 2

转载公布一些常用的WebServices，希望对大家的应用有帮助

转自：http://blog.csdn.net/jackyren007/archive/2008/12/17/3540177.aspx感谢:HDNGO============================================ 天气预报Web服务，数据来源于中国气象局 Endpoint Disco WSDL IP地址来源搜索 WEB 服务（是目前最完整的IP地址数据） E

2008-12-23 11:13:00 1803 2

转载向表单拖放文件,文件路径及名称显示到列表框中（更简单的方法）

向表单拖放文件,文件路径及名称显示到列表框中 *------------------------------------------ By:dkfdtf 之前用API实现过，不过这个更简单，利于VFP本身的功能即可。　如：在一个表单上加一个List列表框控件 1. 设置此列表框的 OLEDropMode=1 2. 在列表框的 OLEDragOver 事件中写代码： Lparameters

2008-12-22 16:25:00 4427 2

转载 WIN-API方法向表单拖放文件,文件路径及名称显示到列表框中

出处：http://www.news2news.com/vfp/?function=-1&example=323环境支持：VFP9.0从Windows拖拽文件到表单,文件路径及名称将自动添加到列表框中 Local oForm As TFormoForm=Createobject("TForm")oForm.Visible=.T.Read Events* end of mainDefin

2008-12-09 15:29:00 2347 12

原创 VFP通过在表单或表单内的控件上按下鼠标左键来移动窗口

通过在表单或表单内的控件上按下鼠标左键来移动窗口 *（而不是通过在标题栏上按下鼠标左键来移动窗口） *----------------------------------------------- *表单的Init事件代码： Declare Long ReleaseCapture In "user32" Declare Long SendMessageA In "user32" Long HWnd

2008-12-09 12:13:00 4555 12

原创 Vfp获得：月天数.月初日期.月末日期及两个日期之间天数.月数.年数

ClearldDate=Date()ldDateB={^2004/02/29}ldDateE={^2005/02/28} *--月天数?"月天数",32-Day(ldDate-Day(ldDate)+32) *--月初日期?"月初日期",ldDate-Day(ldDate)+1?"月初日期",Date(Year(ldDate),Month(ldDate)

2008-05-12 14:17:00 6581 7

原创 WIN API-VFP更改Windows的区域选项:(长)日期格式(分隔符),时间格式(分隔符)[参考：控制面板-区域和语言选项-区域选项]

*!* 其实在VFP中，此方法可以说是多余的，因为VFP本身的命令SET DATE .../SET CENTURY .../Time()等*!* 即可完成程序内的转换及使用，可是个别开发工具转换起来并不轻易，甚至有些软件让用户手动改控制面板中设置。*!* 为了不让用户手动更改，所以找了找API函数，写成在VFP中实现对区域选项的更改。 *----------------------------

2008-04-29 11:54:00 6088 3

原创 VFP将图片或其他文件保存到SQL Server的Text类型字段或者Access的备注字段中，并可以还原或显示。

*-- vfp8.0、9.0*--保存1、将图片文件用 Filetostr()转成字符A。2、再用 Strconv("字符A",13)将字符A转成base64编码数据的字符B。3、将字符B保存到SQL Server的Text类型字段或者Access的备注字段。*--还原或显示1、用 Strconv("字符B",14)将base64编码数据还原成未编码的数据字符A。2、用

2008-04-25 16:10:00 18048 20

转载 WIN API-VFP获取系统内存信息

Declare GlobalMemoryStatus In kernel32 String @lpBufferlpBuffer=Replicate(Chr(0),250)=GlobalMemoryStatus(@lpBuffer)Clear=_display("缓冲区长度(字节) ...........................:", 1)=_display("目前内存管理系统的繁忙程序(1

2008-04-25 10:38:00 2589 2

原创 VFP9获得Windows虚拟内存(页面值)大小

?MyGetPageFileVal() Function MyGetPageFileVal lnPageFileVal=0 For I=67 To 90 &&循环C盘到Z盘 If Directory(Chr(I)+":/RECYCLED",1) &&如果存在回收站,说明此分区存在.此句要求是VFP9,VFP9以下没有第2个参数. lnFileNu

2008-04-24 17:31:00 2589 5

转载 Md5算法在VFP中的实现

* --------------------------------------------------------------* Md5算法在VFP中的实现* 调用方法: MD5(要加密的字符串,32),或 MD5(要加密的字符串,16)* 第二个参数:16或32,默认为32,16:中间16位结果,32:常序32位结果* mayleelife 2005-09-25* 注：Md5是可以破解的(ht

2008-04-24 12:21:00 4361 2

原创 VFP编写DLL

有两种 DLL 文件，一种是用 Declare 声明然后调用，这种文件 Copy 了就能用，但不能用智能提示，只能用专门的工具查看里面有什么东西，这种 Dll 一般是用 C 编写的。另外一种是 COM 方式的 Dll ,用 Createobjectex() 或 Createobject() 调用，对象名的两部分组成，也不能直接看出，需要开发者提供，下面就可以用智能提示了。文件要注册（reg

2008-04-23 17:16:00 12178 4

转载 WIN API-VFP枚举系统服务

*--转自：dkfdtf 大侠 #Define STANDARD_RIGHTS_REQUIRED 0x000F0000#Define SC_MANAGER_ENUMERATE_SERVICE 0x0004#Define SERVICE_WIN32 0x00000030#Define SERVICE_STATE_ALL 0x00000003#Define SERVICE_STOPPED 0x0

2008-03-25 11:18:00 2679 1

原创 WIN API-VFP获取网络信息、流量等

*--VFP调用API：使用Iphlpapi.dll获取网络信息、网络流量（即发送字节和接收字节）等。*--效果等同于DOS命令netstat -eClear#Define ERROR_INSUFFICIENT_BUFFER 122Declare Integer GetIfTable In iphlpapi String @pIfTable,Long @pdwSize,Long BorderD

2008-03-22 17:24:00 3992 2

原创 WIN API-VFP枚举网络连接

*--首先感谢网友dkfdtf对GetTcpTable方法的编写，才使我轻意的写成了GetExtendedTcpTable*--API-GetTcpTable：结果含有远程地址为空的记录，但不含有PID(进程ID) Clear#Define ERROR_INSUFFICIENT_BUFFER 122Declare Long GetTcpTable In Iphlpapi String @pTc

2008-03-20 17:05:00 4229 1

原创如何用VFP判断文本文件的编码格式？

*--文本文件的编码格式手动查看方法：*--用记事本打开文本后，点击菜单上的“另存为”，编码格式在出现的对话框下方。*--那用VFP如何取得文本文件的编码格式呢，如下：lcFileName=C:/A.txt &&文本文件名lcStr=Filetostr(lcFileName)lcStrType=Createbinary(Substr(lcStr,1,2))Do Case Case

2008-02-20 17:35:00 9360 1

原创创建(含删除)SQL Server登录(用户)

Use MasterDeclare @username sysname,@userpassword nvarchar(50)Set @username=Naa --要创建的登录(用户)名称Set @userpassword=bb --要创建的登录(用户)密码If Exists (Select * From Master.dbo.syslogins

2008-01-29 15:53:00 3427

原创 VFP的优劣势

VFP的优劣势：优点与缺点是一回事，能不能流行又是另一回事，vfp9的推出，可见微软件是不会放弃vfp的。对小型应用，vfp+sql server数据库引擎不错，开发起来也快。其实各种语言都差不多，学会了一种，再学其它的会很容易。不过vfp处理数据更方便，如直接对临时表执行select 查询，还没有其它哪种前台应用语言能对一ado recordset执行select 的不知道为什么

2007-12-22 14:11:00 15193 4

原创 VFP获得10天的天气预报

*--气象地址:http://xoap.weather.com （此地址当前信息1小时更新一次，10天信息2小时更新一次，感谢CSDN用户mmadd3提供此地址，并对数据进行分析）。*--在以上网页上方的Local weather后的文本框中输入要查询的城市（如：Beijing,China），出来页面后将鼠标移动到*--Cities (1 of 1)*--1. Beijing,China*--中的

2007-11-15 09:42:00 5537 1

Visual FoxPro ODBC Driver(6.01.8629.01)

Visual FoxPro ODBC Driver(6.01.8629.01) VFPODBC驱动程序不再支持，强烈建议您使用Microsoft OLE DB Provider for Visual FoxPro 9.0作为替代。用OleDB for vfp9.0(如9.0 Microsoft OLE DB Provider for Visual FoxPro 9.0)连接,可支持vfp的大部分命令不是OleDB for odbc oledb for vfp下载地址： http://www.microsoft.com/en-us/download/details.aspx?id=14839 发布日期：2008.05.16 版本：1.2 语言：English File Name Size vfpoledb.msm 829 KB VFPOLEDBSetup.msi 1.2 MB (安装此项) 安装后，连接字串 Provider=VFPOLEDB.1;Data Source=c:\temp;Password="";Collating Sequence=MACHINE 或安装完oledb for vfp后，建一ado连接，选oledb for vfp,如果是数据库，连接到数据库，如果是自由表，连接到自由表所在目录,然后建一ado command或用ado连接的execute方法

2016-10-09

CursorAdapter(CA)相关资料

我从网络下载的有关 CursorAdapter(CA)相关资料，其中有：介绍CursorAdapter类 CursorAdapter 起步国外FoxPro MVP的CursorAdapter示例 VFP9对CursorAdapter的改进 vfp9CA的新方法 CursorAdapter类的制作和应用1-2(作者：mihu) vfp9.0 C/S(ODBC)方面极富人性化的增强(作者：mihu) vfp9 CursorAdapter 事务应用的2个注意事项(作者：mihu)

2012-09-19

Text+List示列

Text+List查询或ComboBox组合框.rar

2012-04-27

学生管理系统_源程序(vfp6)

vfp6编写的学生管理系统，不少同学用这个当毕业设计。

2011-12-09

VFP-视频照相

VFP-视频照相方面的示例及资料，包含： AVCap视频控件及使用说明 ezVidCap视频控件使用示例 VFP+API实现视频照相功能医学影像浏览Dicom.ocx控件(ezdicomax.ocx、gdicom.ocx) picclp32.ocx VideoCap.ocx

2011-11-23

vfp报表转Word(FrxToWord)

vfp报表转Word 用法：Do FrxToWord.prg With *.frx &&(直接运行程序代码并带frx报表)

2011-10-08

有关在VFP中使用和打印条码

有关在VFP中使用和打印条码，其中条码字体（39码）和条码控件

2011-07-12

农历相关控件(支持1900-2030、2031、2049和2090年)

XP风格农历控件组合（支持1901-2030年）农历&公历控件（Calendar）支持1920-2031年农历控件（CnCalendar）支持1900-2049年农历控件（CnCalendar）支持1901-2090年

2011-07-11

VFP9.0行缓冲方式操作Grid数据

VFP9.0,行缓冲方式,操作Grid数据,表单只有按钮和Grid，增加和修改直接在Grid中操作

2011-04-21

木瓜的MyFll.fll(1.182.10.526)及说明

木瓜大侠的MyFll.fll及说明，MyFll.fll版本为1.182.10.526

2010-07-01

InstallShield(各版本使用说明).rar

内含： 1、如何使用InstallShield制作安装文件 2、InstallShield简明教程 3、InstallShield(相关说明) 4、InstallShield Express VFP Limited Edition 5.0汉化包 5、InstallShield Express For Visual Foxpro Limited ver 3.5 使用说明 6、Installshield 10.5 使用介绍

2010-03-01

如何使用Kodak图像扫描控件

张洪举老师《开发答疑160问》中“如何使用Kodak图像扫描控件”的原文及示例

2009-09-26

VFP2个托盘程序示例

1、VFP8托盘示例简单化。请参考：VFP7.0以上自带的托盘类(systray.vcx)和例子(systray_sample.scx)：类位置：VFP安装目录\Samples\Solution\Toledo\systray.vcx 例子位置：VFP安装目录\Samples\Solution\Toledo\systray_sample.scx 2、《小丑》的托盘例子程序。

2009-08-06