3837.html

来自「VB技巧问答10000例,是一个教程」· HTML 代码 · 共 23 行

HTML

23 行

<html>
  <head>
    <title>Code to Capture Mouse_Exit</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Code to Capture Mouse_Exit</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:wangkai@nease.net">kingkong</a> on July 12, 1998 at 16:12:57:<p>
In Reply to: <a href="3826.html">请问如何 当mouse 移到 按钮上时有浮动的效果!</a> posted by 阿忠 on July 12, 1998 at 00:25:17:<p>
Use this code to capture Mouse_exit:<br>Writen in Chinese GB code and from:<br>http://www.nease.net/~jackyyin<br>====================================<p>Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long<br>Private Declare Function ReleaseCapture Lib "user32" () As Long <br>然后，我&#20204;可以在控件（以 Picture1 &#20026;例）的 MouseMove 事件上加上以下代&#30721;： <br>    Dim MouseExit As Boolean<br>    MouseExit = (0 <= X) And (X <= Picture1.Width) And (0 <= Y) And (Y <= Picture1.Height)<br>    If MouseExit Then<br>       ' do somthing<br>        SetCapture Picture1.hWnd<br>    Else<br>       ' do songthing<br>        ReleaseCapture<br>    End If <br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 3837-->
</ul><!--end: 3837-->
<br><hr size=7 width=75%><p>

</body></html>

3837.html - 源码说明

本页面展示了「VB技巧问答10000例,是一个教程」中的 3837.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?