PB7升级到PB8后运行程序提示数组越界(附出错误代码),请高手指导
嘉友云阁 2014-01-30 10:47:31 窗口的resize事件中如下代码,应该是调整各控件位置的。。错误提示是:
Error:Array boundary execeeded at line 9 in resize event of object w_parint_preview
在PB7中运行正常,升到PB8后出现的问题。。。
其中ir_x[],ir_y[],ir_width[],ir_height[]等是real型的窗口变量
代码如下:
integer li_i,li_count
li_count=upperbound(this.control[])
messagebox(string( li_count),string(li_count))
for li_i=1 to li_count
choose case this.control[li_i].typeof()
// messagebox(string(li_i),string(icb_obj))
case commandbutton!
icb_obj=this.control[li_i]
icb_obj.x=newwidth*ir_x[li_i]
icb_obj.y=newheight*ir_y[li_i]
icb_obj.width=newwidth*ir_width[li_i]
icb_obj.height=newheight*ir_height[li_i]
case datawindow!
idw_obj=this.control[li_i]
idw_obj.x=newwidth*ir_x[li_i]
idw_obj.y=newheight*ir_y[li_i]
idw_obj.width=newwidth*ir_width[li_i]
idw_obj.height=newheight*ir_height[li_i]
case editmask!
iem_obj=this.control[li_i]
iem_obj.x=newwidth*ir_x[li_i]
iem_obj.y=newheight*ir_y[li_i]
iem_obj.width=newwidth*ir_width[li_i]
iem_obj.height=newheight*ir_height[li_i]
case dropdownlistbox!
iddlb_obj=this.control[li_i]
iddlb_obj.x=newwidth*ir_x[li_i]
iddlb_obj.y=newheight*ir_y[li_i]
iddlb_obj.width=newwidth*ir_width[li_i]
iddlb_obj.height=newheight*ir_height[li_i]
case statictext!
ist_obj=this.control[li_i]
ist_obj.x=newwidth*ir_x[li_i]
ist_obj.y=newheight*ir_y[li_i]
ist_obj.width=newwidth*ir_width[li_i]
ist_obj.height=newheight*ir_height[li_i]
case checkbox!
icbx_obj=this.control[li_i]
icbx_obj.x=newwidth*ir_x[li_i]
icbx_obj.y=newheight*ir_y[li_i]
icbx_obj.width=newwidth*ir_width[li_i]
icbx_obj.height=newheight*ir_height[li_i]
end choose
next