4568.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 31 行

HTML
31 行
字号 
<html>
  <head>
    <title>Sorry ! 漏掉了一点东东</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Sorry ! 漏掉了一点东东</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 10, 1998 at 18:33:30:<p>
In Reply to: <a href="4539.html">Re: 如何使表单常驻视窗的最上层？及设定程式的热键？</a> posted by Honey on August 09, 1998 at 18:23:40:<p>
sorry !!!<br>Form_Activate()<br>事件中应该这样写<br>我漏掉了最重要的一行<br>别介意哦!!  <br>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>: 浮动式视窗得使用 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检视员<br>: 之后再 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: 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-->
<br><hr size=7 width=75%><p>

</body></html>

4568.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 4568.html 源码文件，采用 HTML 编程语言编写，共 31 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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