Windows_API_函数.docVIP

API函数： 通常，制作OCX是离不开API的，对于API函数，主要就是参数的使用方法，我们虽然不能提供很全面的内容供你参考，但可以就自己积累的一些函数特别是实例代码写出来，这些代码都是在VB6中调试过正确的，你只要依例句写出来就可以了，对每一个API，我们都提供了实例代码。 鼠标类函数得到当前鼠标指针的坐标：GetCursorPos函数声明：public Type POINTAPIx As Longy As LongEnd TypePublic Declare Function GetCursorPos Lib user32 _(lpPoint As POINTAPI) As Long 参数缺省为byref指针传递?调用：先声明一个自定义类型变量： Dim z As POINTAPIPrivate Sub Timer1_Timer()GetCursorPos z 注：这里z是引用地址传递，其值改变，就象返回值Label1.Caption = z.xLabel2.Caption = z.yEnd Sub参数lpPoint返回鼠标在屏幕上坐标（不限于程序窗体），如将鼠标指针移到屏幕左上角时，z.x=0,z.y=0,而鼠标移到屏幕右下角时，z.x=639;z.y=477===========================================================设置鼠标在屏幕上的坐标 ： SetCursorPos函数声明：Private Declare Function SetCursorPos Lib user32 (ByVal X As Long, ByVal Y As Long) As Long调用如：Private Sub Command1_Click()Call SetCursorPos(600, 100) 将鼠标定位到屏幕(600，100)处。End Sub很简单，注：屏幕是以象素为单位的（与屏幕分辨率设定有关）。不是缇。?==========================================================自动按下鼠标按纽：mouse_event过程函数该过程能在程序中模拟手工按下或抬起鼠标，移动鼠标的操作，声明：Public Declare Sub mouse_event Lib user32 (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)一般只用它的第1个参数，指明按下或抬起哪个按纽，如果要模拟鼠标移动，则要用到第2，3个参数dx和dy, 而最后面两个参数始终不用。第1个参数dwFlags的可能设置值如下：MOUSEEVENTF_LEFTDOWN=H2： 模拟鼠标左键按下?MOUSEEVENTF_LEFTUP ：模拟鼠标左键抬起?MOUSEEVENTF_RIGHTDOWN： 模拟鼠标右键按下?MOUSEEVENTF_RIGHTUP ：模拟鼠标右键抬起?MOUSEEVENTF_ABSOLUTE=H8000： 由参数dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元?MOUSEEVENTF_MOVE=H1 ：移动鼠标?调用如：在屏幕上指定位置按下鼠标左键：Public Const MOUSEEVENTF_LEFTDOWN = H2Public Declare Function SetCursorPos Lib user32 (ByVal x As Long, ByVal y As Long) As LongPrivate Sub Timer1_Timer()SetCursorPos 300, 20mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0End Sub模拟鼠标移动需要设置其dx和dy参数来确定鼠标位置，这时第1个参数用MOUSEEVENTF_MOVE加上MOUSEEVENTF_ABSOLUTE组合，如下：Public Const MOUSEEVENTF_MOVE = H1Public Const MOUSEEVENTF_ABSOLUTE = H8000?mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, 65535, 65535, 0, 0 移动鼠标mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0,