将列表的 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
之前收藏一位大虾的：
*****************************************************************
*** 数的进位制的转换 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
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
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 控件（*.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...
程序设计
foxpro