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

 » 本站地址:http://www.gomoth.com

标签: