API 函数与鼠标有关的实用技巧-林岚
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2018/1/30 22:56:20 评论(0) 浏览(4317)  评论 | 加入收藏 | 复制
   
摘 要: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

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
屏蔽报表鼠标右键。  【蟹仔  2014/2/15】
【Access示例】快速设置鼠标左右键,设置鼠标右键为单击  【缪炜  2014/8/1】
【Access扫盲】让控件不能获得焦点,鼠标无法选择\始终不能获得...  【麥田  2015/7/25】
Access的文本框实现鼠标滚轮滚动  【杜超  2017/1/22】
树控件报的鼠标点击移动等事件错误  【伊西军  2017/9/26】
常见问答
技术分类
相关资源
文章搜索
关于作者

林岚

文章分类

文章存档

友情链接