现在学vb,下面是看到的一个程序段,其中有个地方不懂,请教一下,MousePointerConstants是什么啊?是类呢?还是。。
谢谢指教!Private Sub cmdResize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NewPointer As MousePointerConstantsWith cmdResize
If X > 0 And X < 100 Then
NewPointer = vbSizeWE
ElseIf X > .Width - 100 And X < .Width Then
NewPointer = vbSizeWE
Else
NewPointer = vbDefault
End If
If NewPointer <> .MousePointer Then
.MousePointer = NewPointer
End If
End WithEnd Sub
谢谢指教!Private Sub cmdResize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NewPointer As MousePointerConstantsWith cmdResize
If X > 0 And X < 100 Then
NewPointer = vbSizeWE
ElseIf X > .Width - 100 And X < .Width Then
NewPointer = vbSizeWE
Else
NewPointer = vbDefault
End If
If NewPointer <> .MousePointer Then
.MousePointer = NewPointer
End If
End WithEnd Sub
里面有鼠标的默认指针样式你打开VB,按下键盘的“F2”键,就会出现一个“对象浏览器”,你查找一下MousePointerConstants就可以了