在表单上画横刻度线,有时会被冲掉,加个容器可能会好些
FOR I=0 TO 18
kd=ALLTRIM(STR(i))
THIS.AddObject('shpLine&kd.','Line')
&& Add a Line control to the form
THIS.shpLine&kd..Visible = .T.
&& 使 Line 控件可见
THIS.shpLine&kd..height=0
&& 指定 Line 高度
THIS.shpLine&kd..Top = h1+i*10
&& 指定 Line 控件与表单上边距
THIS.shpLine&kd..Left =20
&& 指定 Line 控件与表单左边距
THIS.shpLine&kd..width=1480
ENDFOR
图片附件: 游客没有浏览图片的权限,请
登录 或
注册