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···