文章关键字 ‘foxpro’
2018年05月19日,星期六
将列表的 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) &···
2017年10月24日,星期二
之前收藏一位大虾的:
*****************************************************************
*** 数的进位制的转换 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···
2017年09月20日,星期三
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
*---···
2017年04月17日,星期一
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 基类创建的对象。不能保存用户自定义类。
—···
2016年04月27日,星期三
由于各种开发工具的局限性,我们在进行程序设计时,很多功能的实现不能在一个开发环境里完成。如果我们使用另一种语言来实现,则会更 加方便、快捷,即使用可以跨平台的 ActiveX 控件(*.ocx、*.dll)。今天就请猎狐者俱乐部的黄昱先生为大家谈谈“注册ActiveX 控件”的话题,大家欢迎!黄先生请!!(黄先生在嘉宾席就坐)。
谢谢卧龙传说!谢谢《中国电脑教育报》的读者朋友们!
使用 ActiveX 控件可快速实现小型的组件重用、代码共享,从而提高编程效率,降低开发成本。但是ActiveX控件对于最终用户并不能直接使用,因为 ActiveX 控件必须先在 Windows 中注册。注册ActiveX 控件一般来说有六种途径,它们有各自的优点,运用范围也不同。
Regsvr32.exe 注册
Regsvr32.exe 位于Windows目录的system子目录下。点击 Windows 的“开始→运行”菜单,在对话框中输入以下命令:
regsvr32 netshare.ocx && 注册 netshare.ocx 控件
regsvr32 /u netshare···