| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 811 人关注过本帖
标题:画动态圆的问题
取消只看楼主 加入收藏
kwy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-7-5
收藏
 问题点数:0 回复次数:2 
画动态圆的问题

我想做一个画动态圆的小程序,但遇到一点问题,请各位大虾帮忙看一下.
要求:1.鼠标左键按下确定圆心,拖动显示虚线圆,鼠标抬起完成画圆
2.画下一个圆的时候,上一个圆仍然存在
程序如下:
Dim X0 As Single, Y0 As Single, R As Single
Dim IsDown As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X0 = X
Y0 = Y
IsDown = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsDown = True Then
DrawStyle = 2
R = ((X - X0) ^ 2 + (Y - Y0) ^ 2) ^ 0.5
Cls
Circle (X0, Y0), R
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsDown = False
DrawStyle = 0
Cls
Circle (X0, Y0), R
End Sub

问题:以上程序虽然能实现"要求1",但是每当画下一个圆的时候,上一个画的圆都被清除掉了,"要求2"实现不了.
我自己觉得应该是Cls语句用的不对,但我又找不出其他的替代方法,请高手帮忙改一下.

搜索更多相关主题的帖子: Single 鼠标 动态 Integer Sub 
2006-07-05 15:21
kwy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-7-5
收藏
得分:0 
谢谢二楼斑竹的回贴
不过这样改动后,"要求2"的问题虽然解决了,但"要求1"的鼠标左
键拖动时的"动态"显示就实现不了了.
我说的"动态"显示过程详细点描述就是:按下鼠标左键以后拖动,
而随着鼠标的拖动,会产生虚线形式的圆,当鼠标抬起的时候,才正式
生成实线圆.
可以的话再帮我看看,谢谢了~
2006-07-05 19:23
kwy
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2006-7-5
收藏
得分:0 
四楼的yeshirow:按照你的修改,要求都能够实现了,谢谢你的帮助

也谢谢五楼的黑侠的回贴
2006-07-06 11:27
快速回复:画动态圆的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021720 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved