请问如何才能使窗体运行时不被其他程序覆盖！(在线等)

2003-12-11 03:22:08 307 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【C#】vs父窗体控件覆盖子窗体前因在重构的过程中使用单例模式，单例模式使用成功之后新的问题又出现了，父窗体的控件覆盖了子窗体，这种视觉效果…… 知识点介绍 user32.dll user32.dll是Windows用户界面相关应用程序接口，用于包括Windows处理，基本用户界面等特性，如创建窗口和发送消息。 using System.Runtime.InteropServices; System.Runti... 阅读详情

如上，谢谢！

...全文

uni-app中覆盖视频（原生子窗体）、视频下载在uni-app中，使用video时，要在视频上覆盖内容，并且要兼容app端，安卓端的适配还好做点，但是ios的话，就弄了我好久，搞了大半天才搞定，这里记录下 1.微信小程序端视频做的是全屏显示的视频，使用cover-view和cover-image对视频进行覆盖，不过，cover-view也有很多限制，像文字多行省略，这个没找到方式，单行的省略就直接用普通就可以了使用cover-vie... 阅读详情

Akun22

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

Akun22 2003-12-12

打赏
举报

to: yoki(小马哥)
请问要使一个程序一直显现在所有其他程序的前面，用vb能不能实现！谢谢了。
如能解决，我以50分相送。

yoki 2003-12-11

打赏
举报

在VB6中，要制作一个始终位于最上层的窗体我们只能求助于令人头痛的API函数。然而在.NET 中，我们只要简单设置窗体的TopMost属性就可实现同样效果了！例如：

Dim frm As frmTopMost=New frmTopMost()

frm.TopMost = True

frm.Show()

yoki 2003-12-11

打赏
举报

VB调用API函数使窗口保持在最上层
---- 我们看到有的应用程序不管窗口是否活动都使窗口保持在最上层，常见的Microsoft Word的文件打开和编辑查找窗口就是这样。在VB开发中可以通过调用SetWindowsPos()API函数实现这个功能。该函数声明如下：

Private Declare Function SetWindowPos
Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal
x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long,
ByVal wFlags As Long) As Long

---- hWnd变元是窗口的句柄；x，y是窗口的左上角的坐标；cx、cy是窗口宽度和高度；hWndInsertAfter变元是窗口清单中hWnd窗口前面的窗口句柄，有四个可选值：

序号可选值作用
1 HWND_BOTTOM 把窗口放在窗口清单的底部
2 HWND_TOP 把窗口放在窗口清单的字符顺序的顶部
3 HWND_TOPMOST 把窗口放在窗口清单的顶部
4 HWND_NOTOPMOST 把窗口放在窗口清单的顶部，最上层窗口之下

---- WFlags变元为整型值，有八个可选值：

序号可选值作用
1 SWP_DRAWFRAME 在窗口周围画一个方框
2 SWP_HIDEWINDOW 隐藏窗口
3 SWP_NOACTIVATE 不激活窗口
4 SWP_NOMOVE 保持窗口当前位置
5 SWP_NOREDRAW 窗口不自动重画
6 SWP_NOSIZE 保持窗口当前尺寸
7 SWP_NOZORDER 保持窗口在窗口清单中的当前位置
8 SWP_SHOWWINDOW 显示窗口

---- 下面的例子程序Test演示了对函数中的以上7个变元作正确的选择后，应用程序运行后窗口总可保持在最上层,程序清单如下：

Option Explicit
Private Declare Function SetWindowPos
Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long,
ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long,
ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOWS = &H40

Private Sub Form_Load()
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd,
HWND_TOPMOST, Me.CurrentX, _
Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)
End Sub

---- 备注：编写函数声明时，整个函数声明须在一行中写完，不可提行。一般是自动从系统中得到函数声明，方法是从VB的外接程序管理中启动“API 浏览”程序，在“API 浏览”程序中找到所需的函数声明，然后复制到VB代码中。

请问如何才能使窗体运行时不被其他程序覆盖！(在线等)

相关推荐