总是显示在最前面

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

Android Qcom USB Driver学习(五) 在前面的第二期中，我们知道一些非标的USB的充电类型Floatingcharger，其具有和普通DCP相似的大电流能力，但在最初检测的时候会限制Inputcurrentlimit到100mA，来进行检测是否是SDP类型，所以要支持大电流输入就需要进行vote操作，前面的几篇都有涉及，所以本文学习一下pmicusbcharger都相关的vote机制。... 阅读详情

在VB中,怎么样使一个窗全总是显示在最前面,但可以对下面的窗体进行操作谢谢.

...全文

Streamlit安装避坑指南：从零到一键启动你的第一个数据可视化应用本文提供了一份详尽的Streamlit安装避坑指南，帮助用户从零开始快速启动第一个数据可视化应用。文章深入剖析了安装过程中常见的网络超时、依赖冲突、环境变量缺失等核心问题，并给出了使用虚拟环境、配置国内镜像源、利用.whl文件离线安装等多种经过验证的解决方案，确保安装过程顺畅无阻。阅读详情

machunfeng

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

+ 关注 + 加入社区

切换为时间正序

木子忠爱大海 2001-12-22

打赏
举报

Private Sub Form_Load()
Form2.Show , Me
End Sub

xxlroad 2001-12-22

打赏
举报

'Always On Top.frm

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 495
Left = 3285
TabIndex = 2
Top = 2220
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 495
Left = 1755
TabIndex = 1
Top = 1500
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 1740
TabIndex = 0
Top = 765
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

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

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click()
'使窗口 Always On Top用
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click()

'使窗口取消 Always On Top功能，用
SetWindowPos hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Form_Load()
'使窗口 Always On Top用
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

End Sub

'Form2.frm
VERSION 5.00
Begin VB.Form Form2
Caption = "Form2"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text1
Height = 675
Left = 1125
TabIndex = 0
Text = "Text1"
Top = 990
Width = 2100
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

icy_csdn 2001-12-22

打赏
举报

不好意，不是！

suntingting 2001-12-22

打赏
举报

这是网友的帖子
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代码中。

icy_csdn 2001-12-22

打赏
举报

form2.show 1

木子忠爱大海 2001-12-22

打赏
举报

hehe

总是显示在最前面

相关推荐