📄 8341.html
字号:
<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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -