Question

VB拉框时鼠标如何换？

鼠标移到窗口的边缘，鼠标就变成了XP的鼠标，十字，我想换成自定义的？如何换？我已经知道如何在窗体里的自定义鼠标了，也就是说我想搞两个自定义鼠标，一移到边缘想拉窗口时就从原来我的自定义鼠标1变成我另外搞的自定义鼠标2，如何实现？

Answer 1

Me.MouseIcon = 你的鼠标

一移到窗口边缘就换鼠标难在你要知道标题栏的高度和边框的厚度
知道了这两个数据就简单了

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X = 0 Or X = Me.Widht - 边框厚度 * 2 Or Y = 0 Or Y = Me.Height - 标题栏高度 - 边框厚度 Then
'换鼠标的代码在这里写
End If
End Sub

Answer 2

2个办法：
1.替换系统原来的鼠标方案。
2.把窗口border=0，然后自己画边框，再设置边框时候鼠标。