怎样使得鼠标的形状随着不同的区域，按要求变化？

Question

在各个想变化的区域加上同样区域大小的label框，每个label框的mouseicon属性设置为你想要的鼠标形状，在各个label框里的mousemove事件里加上label.MousePointer=99就行了。

Answer 1

在form上根据mousemove事件返回的坐标,改变形状啊

Answer 2

如下的代码演示了用法：
'设置Form的Name为MainForm
'设置MainForm的WindowState为2-Maximized
Private Sub Form_Load()
Dim i As Integer
MainForm.ScaleMode = 3
MainForm.AutoRedraw = True
For i = 0 To 7
Line (i * 100, 0)-(i * 100 + 100, 600), QBColor(i + 1), BF
Next i
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
For i = 0 To 7
  If X > i * 100 And X < i * 100 + 100 Then MainForm.MousePointer = i + 6
  '当然你也可以在原程序的目录下放置名称分别为MI1，MI2，MI3...到MI7的ICON图标，代码就改为：
  'If X > i * 100 And X < i * 100 + 100 Then
  '  MainForm.MouseIcon = App.Path + "\MI" + CStr(i) + "ico"
  '  MainForm.MousePointer = 99
  'End If
Next i
End Sub
'还是要打上“原创”的记号
--------------------------------------------------------------------
Made by Thirdapple's Studio

Answer 3

有一行代码错误：
  'If X > i * 100 And X < i * 100 + 100 Then
  '  MainForm.MouseIcon = App.Path + "\MI" + CStr(i) + "ico"
  '  MainForm.MousePointer = 99
  'End If
应改为：
  'If X > i * 100 And X < i * 100 + 100 Then
  '  MainForm.MouseIcon = App.Path + "\MI" + CStr(i) + ".ico"
  '  MainForm.MousePointer = 99
  'End If
其他的代码部分自己除一下虫吧！
--------------------------------------------------------------------
Made by Thirdapple's Studio

Answer 4

在form上根据mousemove事件返回的坐标,改变形状啊

Answer 5

有一行注释错了：
  '当然你也可以在原程序的目录下放置名称分别为MI1，MI2，MI3...到MI7的ICON图标，代码就改为：
应更正为：
  '当然你也可以在原程序的目录下放置名称分别为MI0，MI1，MI2...到MI7的ICON图标，代码就改为：
--------------------------------------------------------------------
Made by Thirdapple's Studio

Answer 6

针对不同的区域利用API函数 CreatePolygonRgn 建立区域，然后在光标移动时利用 API 函数 PtInRegion判断光标是否在这个区域内并改变光标类型。

Answer 7

用cursor在，各个地方云设置吧！

Answer 8

在mousemove里进行代码的设置吧。