picturebox 得MousePointer 属性

Question

我在picture上画线的时候将 picturebox.MousePointer =12 但是仍然能继续画线，鼠标显示○,怎么让他能不画线

Answer 1

Dim DrawNow As BooleanPrivate Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.DrawWidth = 5
Picture1.MousePointer = 12
End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Picture1.MousePointer = 12 Then
  DrawNow = False
  Else
  DrawNow = True
End If
 CurrentX = X  CurrentY = Y  
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)  If DrawNow Then     Picture1.Line -(X, Y)    End IfEnd Sub

Answer 2

Picture1.MousePointer不是12时才能画,测试时若要对照,将Picture1.MousePointer的改为其它值就又能画了.

Answer 3

画线或不画线与鼠标指针的形状picturebox.MousePointer无关。