读书人

Listbox中怎么添加Checkbox

发布时间: 2013-01-11 11:57:35 作者: rapoo

Listbox中如何添加Checkbox
请问一下VFP9中,如何给Listbox添加Checkbox?我本想用两个不同的图片来实现,在Listbox的Click事件中:
IF This.Picture[This.ListIndex] = "checkbox0.png" Then
This.Picture[This.ListIndex] = "checkbox1.png"
Else
This.Picture[This.ListIndex] = "checkbox0.png"
EndIF
未编译前单独测试表单是可以达到效果,但编译成exe文件后单击无反应。
[解决办法]
在你的代码之前加代码:
Thisform.Caption=This.Picture[This.ListIndex]

你会发现系统自动把路径加上了。
所以解决方法是把
IF This.Picture[This.ListIndex] = "checkbox0.png" Then
改为:
IF "checkbox0.png" $ This.Picture[This.ListIndex] Then

读书人网 >VFP

热点推荐