运行时，如何改变控件的大小？

[mingyueruwu]

如题。我想运行时，画一条直线，然后可以改变直线的长度，应该如何为控件添加事件？谢谢

[mingyueruwu]

你说的方法我试了，可以画线，但是我还是不知道怎么修改，有什么好的方法吗？

[十豆三]

thisform.控件名.width=10

[mingyueruwu]

我的意思是用鼠标改变，想设计时，vfp中的那种模式。

[十豆三]

那不简单，没弄过，这不是VFP强项，VFP的强项是数据处理。

[mingyueruwu]

嗯，我想画图之后，把所有的控件的坐标读出来。只能通过修改属性值吗？

[十豆三]

对

[Gucciwu]

如果是vfp9.0的话可以使用anchor属性,可以在调整form大小的同时自动调整控件大小和布局.

[Gucciwu]

晕,看错了,这个估计有点难度,看能否跟踪鼠标的坐标.

[mingyueruwu]

难道不能够做一个类似vfp设计界面的表单吗？

[mingyueruwu]

鼠标的坐标应该是很好跟踪吧？

[Gucciwu]

let me try,还要vfp支持画图功能

[mingyueruwu]

呵呵，谢谢。
我主要向可以画线，移动和修改画出来的线。类似于vfp的添加控件的功能。
我能实现移动，但是无法选中用鼠标修改长度。

[Gucciwu]

在form的mouseup, mousedown添加如下代码可以实现画线,你再修改一下应该就可以支持修改画出来的线了.

**MouseDown()
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.startx = nXCoord
thisform.starty = nYCoord

**MouseUp()
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.AddObject('oline','line')

thisform.oline.left = thisform.startx
thisform.oline.top = thisform.starty
thisform.oline.width = ABS(nXCoord - thisform.startx)
thisform.oline.Height = ABS(nYCoord - thisform.startY)

thisform.oline.visible = .t.
thisform.Refresh()

[Gucciwu]

大概思路是这样的，当你点击到某一条线时就把该线的对象赋给一个thisform的对象，然后跟踪鼠标的运行轨迹，改变这条线的layout就可以了。

[dfwxj]

可以，不过好象没现实意义，综合应用鼠标事件

[mingyueruwu]

根据大家的提示，和我个人的专研，我已经有了大概的思路，很感谢Gucciwu和其他同行的技术支持。谢谢