首页 相关文章 鼠标编程小技巧二则

鼠标编程小技巧二则

一.通过鼠标在屏幕上的移动来控件程序界面
  
  本例通过鼠标在屏幕上的移动来控制程序窗体的显示与隐藏:当鼠标移动到窗体所在区域时窗体显示,反之隐藏起来。仅需一条API函数:GetCursorPos。注意:如果需要将API函数置于模块中请对代码作相应修改。要尝试本例,需给标准EXE工程缺省添加一个Timer控件。
  
  PrivateTypePOINTAPI
  xAsLong
  yAsLong
  EndType
  
  PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
  
  PrivateSubForm_Load()
  Me.Visible=False
  Timer1.Enabled=True
  Timer1.Interval=100
  EndSub
  
  PrivateSubTimer1_Timer()
  DimlResultAsLong
  DimlpPointAsPOINTAPI
  DimiCounterAsInteger
  l...[ 查看全文 ]

2016-02-19 标签:

鼠标编程小技巧二则的相关文章

手机页面
收藏网站 回到头部