Question

我在VB里加了图片 如何点击到图片周围范围内时，使图片在对话框里随机移动到别的地方？

Answer 1

Private Sub Picture1_Click()
  Randomize
  X = Int((Me.Height - Picture1.Height + 1) * Rnd)
  Y = Int((Me.Width - Picture1.Width + 1) * Rnd)
  Picture1.Move Y, X
End Sub
'请参考采纳！谢谢！

追问

你写的Private Sub Picture1_Click() 是手写吗？ 还是双击picturebox 自己生成的？
还有最后一行的Picture1.Move Y, X 出现错误哦？是什么原因呢？

在线等，麻烦您给我讲解一下，回答了我会给你高分的

追答

双击picturebox 自己生成的，
已调试没发现错误，请检查你的控件名称是否是Picture1
谢谢！

追问

但是我双击picturebox 在VB2010里生成的是
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox1.Click 这 为什么呢？

追答

我用的是vb6你用的是vb.net

追问

高人，那我应该怎么写您写的代码才能生效呢? 在线等

追答

不好意思，vb.net我没用过。

Answer 2

你说的图片周围是什么控件还是窗体，只在相应的单击事件中重新设置图片框的坐标就可以啊，位置随机的话，可以使用随机数函数的。

追问

我是新手，您这么讲！我挺不明白能不能帮我写一下？