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