8341.html

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

HTML
23 行
字号 
<html>
  <head>
    <title>提供你一个API范例(直接拷贝就可以用了),我常会用到,可是....</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>提供你一个API范例(直接拷贝就可以用了),我常会用到,可是....</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:lai@ms3.url.com.tw">小Sam</a> on December 16, 1998 at 08:36:06:<p>
In Reply to: <a href="8326.html">请问如何设计的视窗永远显示在最上面....</a> posted by amy on December 15, 1998 at 12:44:16:<p>
提供你一个API范例,我常会用到,可是好像我用太多了 ,有时要关闭前会出现<br>'在表单以强制显示时无法再回应....' 详细讯息我忘了,不过并不会影响程式运作,<br>顺便有谁知道原因可以告知小弟一下....<p>Private Declare Sub SetWindowPos Lib "User32" _<br>                     (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, _<br>                      ByVal X As Integer, ByVal Y As Integer, _<br>                      ByVal cx As Integer, ByVal cy As Integer, _<br>                      ByVal wFlags As Integer)<br>Const HWND_TOPMOST = -1<br>Const SWP_NOSIZE = &H1<br>Const SWP_NOMOVE = &H2<p>Sub BringToTop(hWndForm As Integer)<br>Dim nFlags As Integer<br>    nFlags = SWP_NOMOVE Or SWP_NOSIZE<br>    Call SetWindowPos(hWndForm, HWND_TOPMOST, 0, 0, 0, 0, nFlags)<br>End Sub<br>-------------------------在Form_Load呼叫就可以了!<br>Private Sub Form_Load()<br> BringToTop (Me.hWnd)<br>End Sub 
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 8341-->
</ul><!--end: 8341-->
<br><hr size=7 width=75%><p>

</body></html>

8341.html - 源码说明

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

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

⌨️ 快捷键说明

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