📄 4979.html
字号:
<html>
<head>
<title>Re: 如何写出Always On Top</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: 如何写出Always On Top</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on August 22, 1998 at 18:00:11:<p>
In Reply to: <a href="4960.html">如何写出Always On Top</a> posted by 我依然是小呆瓜 on August 22, 1998 at 01:18:40:<p>
: 有时候..一些视窗画面会用到Always on top的功能..请问一下，如何用VB写出能有Always on top的功能，又不会影响其它程式的运作。<p>: 在此先向大家说声谢谢!!<br>产生浮动式视窗得使用 API 中的SetWindowPos函式<br>首先通常是在一般宣告部分这样宣告 若在模组<br>中宣告得去掉Private<p>Private Declare Function SetWindowPos _<br>Lib "user32" (ByVal hwnd As Long, _<br>ByVal hWndInsertAfter As Long, _<br>ByVal x As Long, ByVal y As Long, _<br>ByVal cx As Long, ByVal cy As Long, _<br>ByVal wFlags As Long) As Long<p>' hwnd 代表要放置视窗的hWnd, <p>' hWndInsertAfter 是常数 若常数可为 _<br> HWND_BOTTOM : 放在Z-order最底层 _<br> HWND_TOP : 放在Z-order最顶层 _<br> HWND_TOPMOST : 放在Z-order最顶层 且高于其他视窗 _<br> HWND_NOTOPMOST : 放在Z-order最顶层 但低于于其他<br> 最顶层视窗视窗 _<br> 常数所代表的值 请查阅 API检视员<p>' x 代表新视窗的新 X 轴座标<p>' y 代表新视窗的新 Y 轴座标<p>'cx 视窗的新高度<p>'cy 视窗的新宽度<p>'wFlags 旗标可为下列常数 _<br> SWP_DRAWFRAME : 在视窗周围画一框架 _ <br> SWP_HIDEWINDOW : 隐藏视窗 _<br> SWP_NOACTIVE : 不启动(active)视窗 _<br> SWP_NOMOVE : 保留目前位置(忽略 x,y 参数) _<br> SWP_NOREDRAW : 不重画视窗 _<br> SWP_NOSIZE : 保留目前大小 (忽略 cx,cy 参数)_<br> SWP_NOZORDER : 保留视窗目前在 -<br> Z-order的位置 (忽略hWndInsertAfter参数) _<br> SWP_SHOWWINDOW : 显示视窗 _<br> 常数所代表的值 请查阅 API检视员<br>'参数可重复使用(用 or 连接) 像_<br>wFlags=SWP_NOMOVE or SWP_NOSIZE <p>之后再 Form_Activate()事件中加入以下<br>程式码就好了<p>Const SWP_NOMOVE = &H2<br>Const SWP_NOSIZE = &H1<br>Const HWND_TOPMOST = -1<br>Dim wFlags As Integer<br>Dim result As Integer<br>Dim x As Integer<br>x = Screen.ActiveForm.hwnd<br>wFlags = SWP_NOMOVE Or SWP_NOSIZE<br>Call SetWindowPos(x, HWND_TOPMOST, _<br>0, 0, 0, 0, wFlags)<p>另外~不会影响其它程式的运作 ? <br>不晓的你是指哪一方面 <p><p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4979-->
</ul><!--end: 4979-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -