发布于 2007-05-29 17:41:03
0楼
我把脚本写出来,给有用的同志参考一下。
Sub OnClick(ByVal Item)
Dim aa
Set aa=ScreenItems("控件1")
aa.DeleteData=True
aa.DataX=0
aa.DataY=30
aa.InsertData=True
aa.InsertData=False
aa.DataX=10
aa.DataY=30
aa.InsertData=True
aa.InsertData=False
aa.DataX=20
aa.DataY=45
aa.InsertData=True
aa.InsertData=False
aa.DataX=30
aa.DataY=65
aa.InsertData=True
aa.InsertData=False
aa.DataX=40
aa.DataY=65
aa.InsertData=True
aa.InsertData=False
aa.DataX=50
aa.DataY=45
aa.InsertData=True
aa.InsertData=False
aa.DataX=60
aa.DataY=20
aa.InsertData=True
aa.InsertData=False
End Sub