API 函数与鼠标有关的实用技巧

时　间:2018-01-30 22:56:20
作　者:林岚   ID：3651  城市：中卫
摘　要:1、如何以某种颜色填充某区域？
2、如何得知TextBox中文字所有的行数？
3、如何设置ListBox的水平卷动轴的宽度？
4、如何交换鼠标按键？
5、怎样找到鼠标指针的XY坐标？
6、怎样获得和改变双击鼠标的时间间隔？
7、如何获得Windows启动方式?
正　文:

1、如何以某种颜色填充某区域？

*API函数声明
Private Declare Sub FloodFill Lib "gdi32" _ (ByVal Hdc As Long, ByVal X As Long, ByVal Y As _ Long, ByVal crColor As Long
注释：设(fillx,filly)为此区域内任一点
注释：Color为某种颜色
FloodFill Picture1.Hdc, fillx, filly,Color

2、如何得知TextBox中文字所有的行数？

*API函数声明
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_GETLINECOUNT = &HBA
注释：在程序中调用
LineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)
注释：LineCnt即为此TextBox的行数。 

3、如何设置ListBox的水平卷动轴的宽度？

*API函数声明
Const LB_SETHORIZONTALEXTENT = &H194
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As Long 
注释：调用
Call SendMessage(List1.hwnd, LB_SETHORIZONTALEXTENT, 400, ByVal 0&) 
注释：注意400是以象素为单位，你可以根据情况自行设定。 

4、如何交换鼠标按键？

*API函数声明
Declare Function SwapMouseButton& Lib "user32" _ (ByVal bSwap as long) 
要交换鼠标按键，将bSwap参数设置为True。要恢复正常设置，将bSwap设置为False。 然后调用函数就可以交换和恢复鼠标按键了。 

5、怎样找到鼠标指针的XY坐标？

*API函数声明
Type POINTAPI
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
调用：
GetCursorPos z
print z.x
print z.y

6、怎样获得和改变双击鼠标的时间间隔？

获得鼠标双击间隔时间： 
Public Declare Function GetDoubleClickTime Lib "user32" Alias _ "GetDoubleClickTime" () As Long

获得鼠标双击间隔时间： 
Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long
注释：注意：这种改变将影响到整个操作系统 

以上两个函数都可精确到毫秒级。  

7、如何获得Windows启动方式?

在Form1中加入一个CommandButton、一个Label并加入如下代码:
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
Const SM_CLEANBOOT = 67 

Private Sub Command1_Click() 
　Select Case GetSystemMetrics(SM_CLEANBOOT) 
　Case 1 
　　Label1 = "安全模式." 
　Case 2 
　　Label1 = "支持网络的安全模式." 
　Case Else
　　Label1 = "Windows运行在普通模式." 
　End Select 
End Sub