存档

文章标签 ‘foxpro’

VFP中LIST列表框选择问题

2018年5月19日
VFP中LIST列表框选择问题已关闭评论

将列表的 MultiSelect 属性设置为“真”(.T.)。 为了处理选定的项,例如把它们复制到一个数组或在应用程序的其他地方使用它们,可以循环遍历各列表项,处理 Selected 属性为“真”(.T.) 的项。下面的代码包含在列表框的 InteractiveChange 事件中,在 comboSelected 组合框中显示这个列表框中的选定项,并且在 txtNoSelected 文本框中显示选定项的数目:nNumberSelected = 0 && 跟踪数目的变量 THISFORM.cboSelected.Clear && 清除组合框 FOR nCnt = 1 TO THIS.ListCount IF THIS.Selected(nCnt) nNumberSelected = nNumberSelected + 1 THISFORM.cboSelected.Additem (THIS.List(nCnt)) ENDIF ENDFOR THISFORM.txtNoSelected.Value = nNumberSelected 下边的代码是输出列表框选中的行的值 for ncnt = 1 to thisform.list1.listcount if thisform.list1.selected(ncnt) && 选择了这个项吗? ? space(5) + thisform.list1.list(ncnt) &&显示该选项 endif endfor

more...

软件技巧

foxpro 的进制转换函数

2017年10月24日
foxpro 的进制转换函数已关闭评论

之前收藏一位大虾的: ***************************************************************** ***  数的进位制的转换 GetNumSystem V1.00 1T2T ***  作用:将指定进位制的数转换为另一个指定进位制的数 ***  语法: ***        ?GetNuMSystem(2,10,”1010″)      &&结果为”10″ ***        ?GetNumSystem(32,10,”1T2T”)     &&结果为”62557″ ***  事件: ***        2007.03.05  建立本函数 ***        2007.03.06  修改 ***                    (1)将lcSource表示的字符改为大写并去掉前导和尾部空格 ***                    (2)增加若lnFrom和lnTo相等时的直接返回原来数据 ***                    (3)Local变量增加lnDec、lcResult ***************************************************************** Parameters lnFrom,lnTo,lcSource *  判断参数个数及其类型 If Type(“lnFrom”)#Chr(78) Or Type(“lnTo”)#Chr(78) Or Type(“lcSource”)#Chr(67) Return “Error #0001 : 缺少参数或参数数据类型错误。” EndIf *  判断进制是否为2-36进制 If Int(lnFrom)#lnFrom Or !Between(lnFrom,2,36) Or Int(lnTo)#lnTo Or !Between(lnTo,2,36) Return “Error #0002 : 转换的数的进制错误,只能在2-36进制之间转换。” EndIf *  判断需要转换的数是否符合lnFrom进制要求 Local lc

more...

软件技巧

foxpro动态创建表单form

2017年9月20日
foxpro动态创建表单form已关闭评论

createobject(“form”)创建表单如何保存 1、createobject(“form”)创建表单? 2、如何用命令向该表单添加按钮? 3、如何用命令向该表单的load事件添加加代码? 感谢您的帮助! ——解决方案——————– form1 = createobject('form1')                  && 创建一个表单 form1.addobject('cmdcmndbtn1','cmdmycmndbtn1') && 退出命令按钮 form1.show                                     && 显示表单 read events                                    && 启动事件处理 define class form1 as form     && 创建表单    autocenter=.t.              && 表单初始化时居中    caption="Commandbotton示例" && 表单标题    closable=.f.                && 表单关闭按钮不可用    procedure load       *---创建临时表       create cursor tabname (name c (10))       for i=1 to 10           insert into tabname values (replicate(chr(i+64),10))       endfor       browse enddefine define class cmdmycmndbtn1 as commandbutton && 创建命令按钮    caption = '退出' && 命令按钮上的标题    cancel = .t.     && 默认“取消

more...

程序设计

foxpro 动态创建的控件

2017年4月17日
foxpro 动态创建的控件已关闭评论

thisform.newobject(“text1″,”textbox”)&&创建一个text文本对象 thisform.text1.visible=.t.&&设置文本对象可见 thisform.text1.top= 90 &&设置顶部距离 thisform.text1.left=120&&设置左侧距离 thisform.text1.width=100 &&设置宽度 thisform.text1.height=50 &&设置高度 对象的保存 Object.saveas 方法应用于 请参阅把一个对象作为 .SCX 文件保存起来。 语法 Object.SaveAs(cFileName [, oObjectName]) 参数 cFileName 指定保存对象的 .SCX 文件。 oObjectName 指定对数据环境对象的引用。 说明 可以使用 saveas 方法创建表单或表单集,并把它保存为一个 .SCX 文件。saveas 方法只在 Visual FoxPro 交互工作期可用。 在使用 saveas 方法的同时,也保存了与对象有关的所有属性、事件和方法。注意,只能保存根据 Visual FoxPro 基类创建的对象。不能保存用户自定义类。 ———————————————-

more...

程序设计

foxpro 程序自动注册ActiveX控件

2016年4月27日
foxpro 程序自动注册ActiveX控件已关闭评论

由于各种开发工具的局限性,我们在进行程序设计时,很多功能的实现不能在一个开发环境里完成。如果我们使用另一种语言来实现,则会更 加方便、快捷,即使用可以跨平台的 ActiveX 控件(*.ocx、*.dll)。今天就请猎狐者俱乐部的黄昱先生为大家谈谈“注册ActiveX 控件”的话题,大家欢迎!黄先生请!!(黄先生在嘉宾席就坐)。 谢谢卧龙传说!谢谢《中国电脑教育报》的读者朋友们! 使用 ActiveX 控件可快速实现小型的组件重用、代码共享,从而提高编程效率,降低开发成本。但是ActiveX控件对于最终用户并不能直接使用,因为 ActiveX 控件必须先在 Windows 中注册。注册ActiveX 控件一般来说有六种途径,它们有各自的优点,运用范围也不同。 Regsvr32.exe 注册 Regsvr32.exe 位于Windows目录的system子目录下。点击 Windows 的“开始→运行”菜单,在对话框中输入以下命令: regsvr32 netshare.ocx && 注册 netshare.ocx 控件 regsvr32 /u netshare.ocx && 解除 netshare.ocx 控件的注册 如果 netshare.ocx 文件不在system目录时,还必须在文件名前加上完整的路径。 除了regsvr32 应用程序之外,Microsoft 在它的Web站点上还提供了一个称为 regclean.exe的程序,可以检查注册表并去掉丢失的组件在注册表中的条目。regclean.exe 除了可以删除“悬挂”的条目,它

more...

程序设计