📄 documents2.htm

📁 api函数介绍
💻 HTM
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<style><!--
body,table {font-family:"宋体"; font-size: 9pt; line-height:11pt;}
a {text-decoration:none} a:hover {color:red;text-decoration:underline}
--></style>
<title>使窗口总在最前</title>
</head>

<body link="#FF0000" vlink="#FF0000" alink="#FF0000" bgcolor="#FFC8C8">

<table border="0" width="100%" cellspacing="4" cellpadding="6">
  <tr>
    <td width="100%" bgcolor="#336699"><font color="#FFFFFF">使窗口总在最前</font></td>
  </tr>
</table>

<p>&nbsp;&nbsp;&nbsp; 曾看到一个问题：如何使我的窗口总在最前？使用api函数 
SetWindowPos 可以很容易的作到。</p>

<p>&nbsp;&nbsp;&nbsp; 顾名思义， SetWindowPos 
就是完成设置窗口位置和状态（pos=position）的功能。源代码如下：</p>

<p><font color="#000080">&nbsp;&nbsp;&nbsp; Option Explicit<br>
</font><br>
&nbsp;&nbsp;&nbsp; <font color="#000080">Private Declare Function</font> SetWindowPos <font
color="#000080">Lib</font> &quot;user32&quot; (<font color="#000080">ByVal</font> hwnd <font
color="#000080">As Long</font>, <font color="#000080">ByVal</font> hWndInsertAfter <font
color="#000080">As Long</font>, <font color="#000080">ByVal</font> x <font color="#000080">As 
Long</font>, <font color="#000080">ByVal</font> y <font color="#000080">As Long</font>, <font
color="#000080">ByVal</font> cx <font color="#000080">As Long</font>, <font
color="#000080">ByVal</font> cy <font color="#000080">As Long</font>, <font
color="#000080">ByVal</font> wFlags <font color="#000080">As Long</font>) <font
color="#000080">As Long</font><br>
<br>
&nbsp;&nbsp;&nbsp; <font color="#000080">Private Const</font> HWND_TOPMOST&amp; = -1<br>
<font color="#008000">&nbsp;&nbsp;&nbsp; ' 
将窗口置于列表顶部，并位于任何最顶部窗口的前面<br>
</font>&nbsp;&nbsp;&nbsp; <font color="#000080">Private Const</font> SWP_NOSIZE&amp; = 
&amp;H1<br>
<font color="#008000">&nbsp;&nbsp;&nbsp; ' 保持窗口大小<br>
</font>&nbsp;&nbsp;&nbsp; <font color="#000080">Private Const</font> SWP_NOMOVE&amp; = 
&amp;H2<br>
<font color="#008000">&nbsp;&nbsp;&nbsp; ' 保持窗口位置<br>
</font><br>
&nbsp;&nbsp;&nbsp; <font color="#000080">Private Sub</font> Form_Load()<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, 
SWP_NOMOVE <font color="#000080">Or</font> SWP_NOSIZE<br>
<font color="#008000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 
将窗口设为总在最前<br>
</font><font color="#000080">&nbsp;&nbsp;&nbsp; End Sub</font></p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -