vb中 当鼠标点击shape不同部位,shape如何驶向不同方向?

 我来答
anankid
2012-03-22 · TA获得超过2047个赞
知道小有建树答主
回答量:1174
采纳率:0%
帮助的人:848万
展开全部
shape不接受事件,你可以用image代替,效果差不多,代码如下:
Private Sub Form_Load()
Image1.BorderStyle = 1
Image1.Appearance = 0
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X - Image1.Width / 2 > 0 Then
Image1.Left = Image1.Left + 300
Else
Image1.Left = Image1.Left - 300
End If
If Y - Image1.Height / 2 > 0 Then
Image1.Top = Image1.Top + 300
Else
Image1.Top = Image1.Top - 300
End If
End Sub
点击左上角就往左上移动,点击右下就往右下移动
更多追问追答
追问
很好很好
但是在图片框里程序怎么就运行不了了?
追答
你是说把Image1放在图片框内还是用picture1代替image1?如果是前者是可以运行的,但是注意form-load里的代码不要忘记了,否则看不出来image1的存在;如果是后者就要改相应的代码了
zx001z7d53
2012-03-22 · TA获得超过2万个赞
知道大有可为答主
回答量:2.4万
采纳率:52%
帮助的人:5570万
展开全部
shape不接受事件,你还是用image吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式