让文本框保持光标不离开

PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 20, ; Left = 72, ; Top = 36, ; Width = 100, ; ...

数据表中不固定字段(数值型)的行合计计算方法

* 测试表 CREATE CURSOR T (BH C(4),B1 N(4),B2 N(4),B3 N(4),B4 N(4)) INSERT INTO T VALUES ([0001],1200,1000,800,600) INSERT INTO T VALUES ([0002],1100,900,700,500) INSERT INTO T VALUES ([0003],1900,1700,1500,1300) SELECT *,000000 小计 FROM T INTO CURSOR TEMP READWRITE LCSTR=[] * 生成字段名列表 FOR I=...

列出1-N之间的所有完数

clear for i=1 to 100 k=0 cstr="" for j=1 to i-1 if i % j=0 k=k+j cstr = cstr+alltrim(str(j))+"," endif endfor if k=i ?str(i) +" 完数 :" +left(cstr,len(cstr)-1) endif endfor
算法 | 2015-11-24 10:38 | 阅读 1068 次 | 评论 0 条

语音

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

杨辉三角

clear input "输入行数:" to n dime a(n,n) for i=1 to n ?space((n-i)/2*5) for j=1 to i if j=1 or i=j a(i,j)=1 else a(i,j)=a(i-1,j-1)+a(i-1,j) endif ??str(a(i,j),5) endfor ? endfor
算法 | 2015-11-20 02:40 | 阅读 1793 次 | 评论 0 条

提取字符串中的数字并求出平均值

clear cstr="abc32skfkj262ksf8k99kfsk24kf" cstr1="" ncount=0 nsum=0 ok=.f. for i=1 to len(cstr) a=substr(cstr,i,1) if isdigit(a)=.t. cstr1=cstr1+a ok=.t. else if ok=.t. nsum=nsum+val(cstr1) cstr1="" ok=.f. ...

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 | 阅读 1377 次 | 评论 0 条

中文数字转字符数字

CLEAR cStr="第一百零七章 好事多磨" =ALINES(Astr,cStr,"第","章") nLen=0 cLstr="" cRstr="" cStr1=astr[2] * 左取两个字符 IF LEFT(cStr1,2)="十" AND LEN(cStr1)>2 cLstr="1" cStr1=cLstr+SUBSTR(astr[2],3) ENDIF * 右取两个字符 DO CASE CASE RIGHT(cStr1,2)="十" AND LEN(cStr1)=2 cRstr="10" ...

2010版本excel表格如何导入到vf中

EOLE=CREATEOBJECT('EXCEL.APPLICATION') LCFILENAME=GETFILE([XLS]) && 此处 XLS 改为EXCEL2010文件的扩展名 IF EMPTY(LCFILENAME) RETURN ENDIF EOLE.WORKBOOKS.OPEN(LCFILENAME) EOLE.WORKSHEETS(1).ACTIVATE LNROW=EOLE.SHEETS(1).USEDRANGE.ROWS.COUNT LNCOL=EOLE.SHEETS(1).USEDRANGE.COLUMNS.COUNT DIM...
Excel问题 | 2015-08-13 12:08 | 阅读 3777 次 | 评论 1 条

文本框问题之一

  比如我在编辑状态,点中一个数字文本框左边部分,然后回车,文本框的内容清空了,我觉得不应该被清空才对啊,这样很容易出错的。 比如123.5678 我点到2后面回车,就变成12了,我觉得我只是点了一下回车,内容应该不变才对。怎么设置? 解决方法 文本框的 KeyPress 事件加代码: If nKeyCode=13 Nodefault KEYBOARD '{TAB}' Endif

表格控件中单元格红色选择框的设置

表格 INIT 事件代码 thisform.grid1.highlight=.f. thisform.grid1.highlightrow=.f. For i=1 to Fcount() thisform.grid1.columns(i).text1.backstyle=1 thisform.grid1.columns(i).text1.bordercolor=rgb(255,0,0) thisform.grid1.columns(i).text1.borderstyle=1 thisform.grid1.columns(i)....

VFP将指定文件夹下指定类型的文件添加到数据表中

以DBF文件为例 create cursor tt (vfile c(20)) ncnt=adir(aa,"*.dbf") b=1 append from array aa[b,1] browse list memory like aa

VFP控制EXCEL工作表

三、VFP控制EXCEL工作表   工作表是操作 EXCEL 时不可缺少的对象,同时是编辑单元格对象的入口和载体,利用 VFP 更好的控制 EXCEL 工作簿和单元格,掌握控制工作表的方法至关重要。 3.1 插入工作表   在新打开的工作簿中,默认有三个工作表,当工作表的数量不够用时,可以插入工作。 3.1.1 插入指定数量工作表   使用以下代码可以插入新的工作表。   1、插入单个空白工作表,不带参数增加新表至当前工作表之前   oExcel.Sheets.Add   说明:   ●使用 Sheets (工作表集合对象)的 Add 方法可以插入空白工作表。   2...
Excel问题 | 2015-05-02 21:28 | 阅读 5292 次 | 评论 1 条

VFP控制 Excel 工作簿

一、创建Excel对象 oExcel=CreateObject('Excel.Application') 二、控制工作簿 2.1 新建工作簿 2.1.1 新建空白工作簿   1、默认为3个工作表   oExcel.WorkBooks.Add   2、新建一个仅包含一个工作表的工作簿   oExcel.WorkBooks.Add(-4167)   说明:   ●在 Excel 中表示工作簿的关键字有 WorkBooks (工作簿集合对象)和 WorkBook (工作簿对象)。它们之间是集合与集合中对象的关系,即 WorkBooks 是 WorkBook 的集合。...
Excel问题 | 2015-05-02 16:46 | 阅读 4484 次 | 评论 0 条

应用于 Workbooks 集合(对象)的 Add 方法

应用于 Workbooks 集合(对象)的 Add 方法。   新建工作簿时,用户通常会使用 WorkBooks 集合的 Add 方法,其代码如下:   oExcel.Workbooks.Add   如果新建工作簿时忽略 Add 方法的参数,那么在默认的情况下新建的工作簿将包含3个工作表。新建的工作簿中工作表的数量具体由“选项”对话框“常规”选项卡中的“新工作簿内的工作表数”决定,如下图所示,该数值能够通过 Application 对象的 SheetsInNewWorkbook 属性返回或设置。 Workbooks 集合(对象)的 Add 方法语法如下...
Excel问题 | 2015-05-02 11:03 | 阅读 6262 次 | 评论 0 条

获取本机IP地址

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

VFP 控制 Excel 在指定位置插入图片

oExcel=CreateObject('Excel.Application') With oExcel .Workbooks.Add .SheetsInNewWorkBook=1 .Sheets(1).Cells(2,5).Select .ActiveSheet.Pictures.Insert("F:\第五十组MIS设计报告\1-110Q0130GD10.jpg").Select .Selection.ShapeRange.LockAspectRatio =.T. .ActiveSheet.Columns...
Excel问题 | 2015-04-26 11:33 | 阅读 2714 次 | 评论 0 条

VFP中矩阵转置(行列转换)算法探讨

clear local aa[5,4] aa[1,1]=1 aa[1,2]=2 aa[1,3]=12 aa[1,4]=123 aa[2,1]=3 aa[2,2]=4 aa[2,3]=34 aa[2,4]=345 aa[3,1]=5 aa[3,2]=6 aa[3,3]=56 aa[3,4]=567 aa[4,1]=7 aa[4,2]=8 aa[4,3]=78 aa[4,4]=789 aa[5,1]=9 aa[5,2]=10 aa[5,3]=910 aa[5,4]=901 *---------------------------...
算法 | 2015-04-24 02:47 | 阅读 2520 次 | 评论 0 条

组合号码算法

1-33共33个数字,生成由小到大的 1,2,3,4,5,6 1,2,3,4,5,7 .......... 27,29,30,31,32,33 28,29,30,31,32,33 6位数字不相同的新组合 CLEAR T1=SECONDS() CREATE CURSOR TEST (A1 N(2),A2 N(2),A3 N(2),A4 N(2),A5 N(2),A6 N(2)) FOR I1=1 TO 33 FOR I2=I1+1 TO 33 ...
算法 | 2015-04-22 09:08 | 阅读 832 次 | 评论 0 条

猜数游戏算法

*问题:ABCDE分别代表5个不相同的数字(每个字母代表1位数字),并且A与E不等于0,求出算式 ABCDE*A=EEEEEE 中各字母所代表的数字<P23> CLEAR N1=0 N2=0 FOR I1=1 TO 9 FOR I2=0 TO 9 FOR I3=0 TO 9 FOR I4=0 TO 9 FOR I5=1 TO 9 N1=I1*10000+I2*1000+I3*100+I4*10+I5 ...
算法 | 2015-04-22 08:30 | 阅读 2232 次 | 评论 0 条
浏览205799次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...