还是对象移除

[taohua300]

imgedit 控件里只有addobject 却没有对应的removeobject方法，那么以添加的对象用什么办法删除 ？

[十豆三]

用隐藏代替删除。(Visible=.F.)

[十豆三]

为何不用 Image 控件。

你的需求，Image 控件实现不了吗？

[十豆三]

用 Image 控件也可以移动，放大、缩小。

<VFP将图片移动、放大、缩小、拖动后裁剪生成另一张图片>
http://blog.csdn.net/apple_8180/archive/2009/11/03/4762570.aspx

[taohua300]

[Quote=引用 2 楼 apple_8180 的回复:]
为何不用 Image 控件。

你的需求，Image 控件实现不了吗？
[/Quote]

可以，但用imgedit 控件更简单一些，imgedit 里的对象必须要删除，因为之后还要重新添加对象，这样的话，对象名称就重复了

[十豆三]

[Quote=引用 4 楼 taohua300 的回复:]

可以，但用imgedit 控件更简单一些，imgedit 里的对象必须要删除，因为之后还要重新添加对象，这样的话，对象名称就重复了
[/Quote]

没有 RemoveObject 方法，就只能隐藏。

每次添加时先判断一下 对象 是否存为，如果存在就换一个对象名称，这样就不重复了。

	Do While .T.
		oObject = 'shape' + Transform(nno)
		If Type("Thisform.kk.&oObject.")="U"
			Exit
		Endif
		nno = nno + 1
	Enddo
	This.AddObject(oObject,'shape')

[十豆三]

或者每次的 shape 名称是唯一，并将这些唯一对象名写到一个表中，以便隐藏时知道该引用哪个名称。

如：

oObject = 'shape' + Sys(2015)
This.AddObject(oObject,'shape')