首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请问,在picturebox中同时使用mouseup和mousemove遇到的有关问题

2011-12-29 
请教,在picturebox中同时使用mouseup和mousemove遇到的问题PrivateSubPicQiPan_MouseMove(ButtonAsInteger

请教,在picturebox中同时使用mouseup和mousemove遇到的问题
Private   Sub   PicQiPan_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)
  If   X   Mod   600   >   300   Then
      x0   =   Int(X   /   600)   +   1
    Else
      x0   =   Int(X   /   600)
  End   If
  If   Y   Mod   600   >   300   Then
      y0   =   Int(Y   /   600)   +   1
    Else
      y0   =   Int(Y   /   600)
  End   If
  'If   (x0   <   1)   Or   (y0   <   1)   Or   (x0   >   16)   Or   (Y   >   16)   Then   Exit   Sub
  If   x0   <   1   Then   x0   =   1
  If   y0   <   1   Then   y0   =   1
  If   x0   >   15   Then   x0   =   15
  If   y0   >   15   Then   y0   =   15
  IMouse.Left   =   x0   *   600   -   IMouse.Width   /   2
  IMouse.Top   =   y0   *   600   -   IMouse.Height   /   2
End   Sub

Private   Sub   PicQiPan_MouseUp(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)
If   (X   <   300)   Or   (X   >   9300)   Or   (Y   <   300)   Or   (Y   >   9300)   Then   Exit   Sub
White(0).Visible   =   True
White(0).Left   =   x0   *   600   -   White(0).Width   /   2
White(0).Top   =   y0   *   600   -   White(0).Height   /   2
Text1.Text   =   X   &   "   "   &   Y   &   "   "   &   x0   &   "   "   &   y0
End   Sub
PicQiPan是一个picture
White(0),IMouse是image
当运行的时候只有mousemove事件被触发,mouseup没有响应,请教,在线等

[解决办法]
你的两个 Image 是否在 PictureBox 前面?你应该响应两个 Image 的鼠标事件!

热点排行