若要实现上述功能,部分控件的部分属性和事件代码可按如下设计:
(1)列表框控件(List1)的Rowsourcetype属性值为“7-文件”,Rowsource属性值为“*.jpg”,其LostFocus事件代码如下:
Public Cpath, i
Thisform.list1.selected(2)=.t. &&选择列表框中第2项(当前文件夹路径)
Cpath=thisform.list1.value &&将文件夹路径保存在变量中
i=4
(2)计时器控件(Timer1)的Enabled属性值为.F.,Interval属性值为10000,其Timer事件代码如下:
IF i>thisform.list1.listcount
This.enabled=.f.
Else
i=i+1
Endif
Thisform.list1.selected(i)=.t.
Thisform.image1.picture= Cpath+ Alltrim(thisform.list1.value)
Thisform.refresh
(3)命令按钮的Click事件代码为:
Thisform. Timer1.Enabled=.t.
50、对象引用可以分为绝对引用和相对引用,用户在设计事件处理代码时通常使用相对引用。例如,将当前对象的直接容器的背景色改为红色,采用相对引用则可以使用语句:
This. parent.backcolor=rgb(255,0,0)
51、如果需要在报表中打印页码,则在需要打印页码的位置(某带区中)使用字段控件,其报表表达式中一般需要使用系统变量_PageNo