请教,在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 的鼠标事件!