2,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
mingyueruwu 2006-09-25
- 打赏
- 举报
根据大家的提示，和我个人的专研，我已经有了大概的思路，很感谢Gucciwu和其他同行的技术支持。谢谢
dfwxj 2006-09-24
- 打赏
- 举报
可以，不过好象没现实意义，综合应用鼠标事件
Gucciwu 2006-09-22
- 打赏
- 举报
大概思路是这样的，当你点击到某一条线时就把该线的对象赋给一个thisform的对象，然后跟踪鼠标的运行轨迹，改变这条线的layout就可以了。
Gucciwu 2006-09-22
- 打赏
- 举报
在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()
**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()
mingyueruwu 2006-09-22
- 打赏
- 举报
呵呵，谢谢。
我主要向可以画线，移动和修改画出来的线。类似于vfp的添加控件的功能。
我能实现移动，但是无法选中用鼠标修改长度。
我主要向可以画线，移动和修改画出来的线。类似于vfp的添加控件的功能。
我能实现移动，但是无法选中用鼠标修改长度。
Gucciwu 2006-09-22
- 打赏
- 举报
let me try,还要vfp支持画图功能
mingyueruwu 2006-09-22
- 打赏
- 举报
鼠标的坐标应该是很好跟踪吧？
mingyueruwu 2006-09-22
- 打赏
- 举报
难道不能够做一个类似vfp设计界面的表单吗？
Gucciwu 2006-09-22
- 打赏
- 举报
晕,看错了,这个估计有点难度,看能否跟踪鼠标的坐标.
Gucciwu 2006-09-22
- 打赏
- 举报
如果是vfp9.0的话可以使用anchor属性,可以在调整form大小的同时自动调整控件大小和布局.
十豆三 2006-09-22
- 打赏
- 举报
对
mingyueruwu 2006-09-22
- 打赏
- 举报
嗯，我想画图之后，把所有的控件的坐标读出来。只能通过修改属性值吗？
十豆三 2006-09-22
- 打赏
- 举报
那不简单，没弄过，这不是VFP强项，VFP的强项是数据处理。
mingyueruwu 2006-09-22
- 打赏
- 举报
我的意思是用鼠标改变，想设计时，vfp中的那种模式。
十豆三 2006-09-22
- 打赏
- 举报
thisform.控件名.width=10
mingyueruwu 2006-09-22
- 打赏
- 举报
你说的方法我试了，可以画线，但是我还是不知道怎么修改，有什么好的方法吗？
