又来了,一个关于shape的问题理解不到~ - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 又来了,一个关于shape的问题理解不到~

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 550 人关注过本帖

标题：又来了,一个关于shape的问题理解不到~

只看楼主加入收藏

hyp625

等　级：新手上路
帖　子：26
专家分：0
注　册：2010-5-7
结帖率：75%

楼主

已结贴√ 问题点数：10 回复次数：1

又来了,一个关于shape的问题理解不到~

Private Sub HScroll1_Change()
Shape2.Left = HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Shape2.Top = VScroll1.Value
End Sub
Private Sub Form_Load()
VScroll1.Min = Shape1.Top
VScroll1.Max = Shape1.Top + Shape1.Height - Shape2.Height
HScroll1.Min = Shape1.Left
HScroll1.Max = Shape1.Left + Shape1.Width - Shape2.Width
End Sub

图片附件: 游客没有浏览图片的权限，请登录或注册

我不明白为什么限制圆圈走出矩形范围的代码是~
VScroll1.Max = Shape1.Top + Shape1.Height - Shape2.Height 和 HScroll1.Max = Shape1.Left + Shape1.Width - Shape2.Width
谁可以解释一下。

搜索更多相关主题的帖子: shape　

2010-05-11 12:41

风吹过b

等　级：贵宾
威　望：364
帖　子：4943
专家分：30067
注　册：2008-10-15

第 2 楼

得分:10

VScroll1.Min = Shape1.Top
VScroll1.Max = Shape1.Top + Shape1.Height - Shape2.Height

范围等于
VScroll1.Max - VScroll1.Min
也即:
(Shape1.Top + Shape1.Height - Shape2.Height) - (Shape1.Top)
= Shape1.Height - Shape2.Height
结果就是 shape1 的高
=, 圆圈的高不得超过 shape1 的高, 也就不会出界.

授人于鱼，不如授人于渔
早已停用QQ了

2010-05-11 13:09

快速回复：又来了,一个关于shape的问题理解不到~