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 SubPrivate 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没有响应,请教,在线等

解决方案 »

  1.   

    那你有没有mouseup的动作呢?
    在有你的鼠标在(X < 300) Or (X > 9300) Or (Y < 300) Or (Y > 9300)条件内吗?
      

  2.   

    你的两个 Image 是否在 PictureBox 前面?你应该响应两个 Image 的鼠标事件!
      

  3.   

    zq972(偶宣布,偶已经不是路盲啦~~~~~~) 
    那你有没有mouseup的动作呢?
    在有你的鼠标在(X < 300) Or (X > 9300) Or (Y < 300) Or (Y > 9300)条件内吗?  有啊,单击释放鼠标按键的时候,不就应该触发mouseup事件
     Tiger_Zhao(VB老鸟) ( )  
       你的两个 Image 是否在 PictureBox 前面?你应该响应两个 Image 的鼠标事件!
     两个image本身没有任何事件,是在mousemove里更改imouse的位置,在mouseup里更改将white(0)放到什么位置,
       
     
      

  4.   

    解决了,谢谢 Tiger_Zhao(VB老鸟) ( ) ,我不应该处理PicQiPan_MouseUp,应该处理IMouse_MouseUp事件,接分了阿