4539.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 35 行

HTML
35 行
字号 
<html>
  <head>
    <title>Re: 如何使表单常驻视窗的最上层？及设定程式的热键？</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 如何使表单常驻视窗的最上层？及设定程式的热键？</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 09, 1998 at 18:23:40:<p>
In Reply to: <a href="4528.html">如何使表单常驻视窗的最上层？及设定程式的热键？</a> posted by 小顺子 on August 09, 1998 at 04:54:15:<p>
浮动式视窗得使用 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<br>' hwnd 代表要放置视窗的hWnd, <p>' hWndInsertAfter 是常数 若常数可为 _<br>  HWND_BOTTOM : 放在最底层 _<br>  HWND_TOP : 放在最顶层 _<br>  HWND_TOPMOST : 放在最顶层 且高于其他视窗 _<br>  HWND_NOTOPMOST : 放在最底层 且高于其他视窗 _<br>  常数所代表的值 请查阅 API检视员<p>' X 代表新视窗的新 X 轴座标<p>' Y 代表新视窗的新 Y 轴座标<p>' wFlags 旗标可重复使用 用 or 连接 _<br>可为下列常数 _<br>  SWP_DRAWFRAME : 在视窗周围画一框架 _  <br>  SWP_HIDEWINDOW : 隐藏视窗 _<br>  SWP_NOACTIVE : 不启动(active)视窗 _<br>  SWP_NOMOVE : 保留目前位置 _<br>  SWP_NOREDRAW : 不重画视窗 _<br>  SWP_NOSIZE : 保留目前大小 _<br>  SWP_NOZORDER : 保留目前位置 _<br>  SWP_SHOWWINDOW :  显示视窗 _<br>  常数所代表的值 请查阅 API检视员<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<p>关于热键 我想可能只有在程式长驻时<br>才可以办到<br>: 1.在 window 中如何使表单常驻在最上层呢？即使表单<br>: 失去驻点也不会被其它的程式覆盖？<p>: 2.是否有什么办法设定程式的热键？例如不管那个视<br>: 窗是使用中的视窗,只要按下【Ctrl + O + K】就可<br>: 以叫出程式来,还是说程式要随 window 起动并在背<br>: 景常驻才可办到？<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4539-->
<!--top: 4568--><li><a href="4568.html">Sorry ! 漏掉了一点东东</a> <b>Honey</b> <i>18:33:30 8/10/98</i>
(<!--responses: 4568-->2)
<ul><!--insert: 4568-->
<!--top: 4611--><li><a href="4611.html">参数</a> <b>Honey</b> <i>18:56:50 8/11/98</i>
(<!--responses: 4611-->0)
<ul><!--insert: 4611-->
</ul><!--end: 4611-->
<!--top: 4574--><li><a href="4574.html">【谢谢 Honey 和 笑儿】 ^_^...</a> <b>小顺子</b> <i>02:21:31 8/11/98</i>
(<!--responses: 4574-->0)
<ul><!--insert: 4574-->
</ul><!--end: 4574-->
</ul><!--end: 4568-->
</ul><!--end: 4539-->
<br><hr size=7 width=75%><p>

</body></html>

4539.html - 源码说明

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

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

⌨️ 快捷键说明

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