感悟VB细水长流话API
错误改正了，并增加了新的内容，比如最新的MSDN已经增加了许多Windows XP的内容。你可以从微软的中国网站订到这套文档，不过一年的价钱从一万几到三万几，买不起的话……自己想办法吧。
好了，开篇写了这么多，无非也是想让读者在以后可以更容易理解所讲的内容。这些是基础，是一定要记住的。下面我们就先介绍一个比较简单的API，开始我们的API之旅吧！
第一话 从消息说起
由于这是《细水长流话API》的第一话，我必须注意到所讲的内容要简单，并且让你有耐心可以看到往后的文章，所以我希望可以通过一个比较特别的例子来引起你的注意（这样的情况不会总是有的）。让我们想想，VB里的CommandButton控件让我们可以做什么？按下、弹起，还有呢？请看看图3，这样的情况在你的程序运行时出现过吗？
Windows是以消息来传递信息的。当出现某个操作，比如按钮被按下，就产生按钮被按下的消息。消息被传送到被操作对象（按钮），事件就产生了。应注意不是按钮产生消息，而是Windows知道这个操作的发生，向按钮发送这个消息，按钮收到后再做相应的处理——如改变外观成为按下的状态。
Windows允许第三者向某个对象发送消息，因此当某个操作没有发生时，我们是可以让对象如同收到消息一样产生效果的，这就需要用到API函数——SendMessage了。
SendMessage的声明前面已经说过（注意以Public开头应放在标准模块中，否则用Private开头），它的各个参数中，hwnd是对象的句柄，wMsg是消息的值（具体什么消息），另外两个参数根据不同消息和不同应用有不同的值。
你看到的图3的情况，是由于我的程序向Command Button控件发送了WM_NCLBUTTONDOWN消息。这个消息发生在鼠标在窗口的非客户区域上按下时。所谓非客户区域，你可以理解成一个窗口的边缘和标题栏（当然是指一般情况，这种情况是可以被程序改变的）。
在我这个按钮的MouseDown事件中，只写了短短的几句:
Private Sub cmdResize_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nParam As Long
With cmdResize
''之所以在0和100之间以及下面 .Width-100 和 .Width 之间，是让鼠标只在按钮边缘才可以拉动按钮
If X > 0 And X < 100 Then
nParam = HTLEFT
ElseIf X > .Width - 100 And X < .Width Then
nParam = HTRight
End If
If nParam Then
Call ReleaseCapture
Call SendMessage(.hwnd, WM_NCLBUTTONDOWN, nParam, 0)
End If
End With
End Sub
可以看到，我让鼠标拉动按钮时，拉按钮左边是用 HTLEFT做参数，拉右边是用HTRIGHT做参数。这两个都是常量，可以从API浏览器中得到值。同样的，若想拉按钮的上面和下面，可用HTTOP和HTBOTTOM做参数，而 HTTOPLEFT和HTBOTTOMRIGHT则分别是左上角和右下角。
在发送消息之前有一个ReleaseCapture的API。这个API是让Windows释放对鼠标的捕捉以便使鼠标位置的信息不能被收到，CommandButton不知道鼠标在哪里，也就不会发生按钮在这时被按下的情况。当然，可以放心，Windows释放对鼠标的捕捉只是暂时的，当你放开鼠标再次发生移动时，Windows又会捕捉鼠标了——它是时时都在发生的。
你可能希望如同我的程序一样在按钮边缘光标会变化，下面是我写的程序段:
Private Sub cmdResize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NewPointer As MousePointerConstants
With 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 With
End Sub
作用很明显，而
好了，开篇写了这么多，无非也是想让读者在以后可以更容易理解所讲的内容。这些是基础，是一定要记住的。下面我们就先介绍一个比较简单的API，开始我们的API之旅吧！
第一话 从消息说起
由于这是《细水长流话API》的第一话，我必须注意到所讲的内容要简单，并且让你有耐心可以看到往后的文章，所以我希望可以通过一个比较特别的例子来引起你的注意（这样的情况不会总是有的）。让我们想想，VB里的CommandButton控件让我们可以做什么？按下、弹起，还有呢？请看看图3，这样的情况在你的程序运行时出现过吗？
Windows是以消息来传递信息的。当出现某个操作，比如按钮被按下，就产生按钮被按下的消息。消息被传送到被操作对象（按钮），事件就产生了。应注意不是按钮产生消息，而是Windows知道这个操作的发生，向按钮发送这个消息，按钮收到后再做相应的处理——如改变外观成为按下的状态。
Windows允许第三者向某个对象发送消息，因此当某个操作没有发生时，我们是可以让对象如同收到消息一样产生效果的，这就需要用到API函数——SendMessage了。
SendMessage的声明前面已经说过（注意以Public开头应放在标准模块中，否则用Private开头），它的各个参数中，hwnd是对象的句柄，wMsg是消息的值（具体什么消息），另外两个参数根据不同消息和不同应用有不同的值。
你看到的图3的情况，是由于我的程序向Command Button控件发送了WM_NCLBUTTONDOWN消息。这个消息发生在鼠标在窗口的非客户区域上按下时。所谓非客户区域，你可以理解成一个窗口的边缘和标题栏（当然是指一般情况，这种情况是可以被程序改变的）。
在我这个按钮的MouseDown事件中，只写了短短的几句:
Private Sub cmdResize_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nParam As Long
With cmdResize
''之所以在0和100之间以及下面 .Width-100 和 .Width 之间，是让鼠标只在按钮边缘才可以拉动按钮
If X > 0 And X < 100 Then
nParam = HTLEFT
ElseIf X > .Width - 100 And X < .Width Then
nParam = HTRight
End If
If nParam Then
Call ReleaseCapture
Call SendMessage(.hwnd, WM_NCLBUTTONDOWN, nParam, 0)
End If
End With
End Sub
可以看到，我让鼠标拉动按钮时，拉按钮左边是用 HTLEFT做参数，拉右边是用HTRIGHT做参数。这两个都是常量，可以从API浏览器中得到值。同样的，若想拉按钮的上面和下面，可用HTTOP和HTBOTTOM做参数，而 HTTOPLEFT和HTBOTTOMRIGHT则分别是左上角和右下角。
在发送消息之前有一个ReleaseCapture的API。这个API是让Windows释放对鼠标的捕捉以便使鼠标位置的信息不能被收到，CommandButton不知道鼠标在哪里，也就不会发生按钮在这时被按下的情况。当然，可以放心，Windows释放对鼠标的捕捉只是暂时的，当你放开鼠标再次发生移动时，Windows又会捕捉鼠标了——它是时时都在发生的。
你可能希望如同我的程序一样在按钮边缘光标会变化，下面是我写的程序段:
Private Sub cmdResize_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NewPointer As MousePointerConstants
With 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 With
End Sub
作用很明显，而