Access API使用集锦

核心提示： 3.把以下代码添加如Form1，Private Sub Command1_Click()EnableTrap Form1End Sub Private Sub Command2_Click()DisableTrap Form1End Sub Private Sub Form_Unload(Cancel As Inte

　　3.把以下代码添加如Form1。

Private Sub Command1_Click()

EnableTrap Form1

End Sub

Private Sub Command2_Click()

DisableTrap Form1

End Sub

Private Sub Form_Unload(Cancel As Integer)

'程序结束时释放鼠标。

DisableTrap Form1

End Sub

怎样使我的程序总处于屏幕最前方？（Always on top）

　　如果你想让你的程序处于前方，可以使用以下代码：

Form1.ZOrder

　　配合计时器使用，每隔一段很小的时间间隔调用这种方法可以使窗体Form1处于屏幕前方，但是用户还是可能使别的窗体在短暂的时间里处于Form1的上方。所以这种方法并不能使窗体真正的实现Always on top，而要真正的Always on top可以使用API函数SetWindowPos，代码如下：

'声明函数：

Declare Function SetWindowPos Lib "user32" _(ByVal h%, ByVal hb%, ByVal x%, ByVal y%, _ByVal cx%,ByVal cy%,ByVal f%) As Integer

Global Const SWP_NOMOVE = 2

Global Const SWP_NOSIZE = 1

Global Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Global Const HWND_TOPMOST = -1

Global Const HWND_NOTOPMOST = -2

'把窗体放在最前面：

res% = SetWindowPos (Form1.hWnd, HWND_TOPMOST, _

0, 0, 0, 0, FLAGS)

'如果res%=0， 就产生错误

'使窗体恢复普通模式：

res% = SetWindowPos (Form1.hWnd, HWND_NOTOPMOST, _0, 0, 0, 0, FLAGS)

怎样得到文本框（TextBox）中的文本行数？

　　计算文本框中输入文本的行数可以使用SendMessage函数返回，当一行文字发生环绕时，它将被当作新的一行，而被非简单的计算文本中的换行符个数。