Question

VB中怎么写。将窗口置顶的代码

Answer 1

用SetWindowPos函数，通用部分声明：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 a& = -1
Private Const b& = &H1
Private Const c& = &H2窗体部分：
Private Sub Form_Load()
SetWindowPos Me.hwnd, a, 0, 0, 0, 0, b Or c
End Sub这个是在窗体加载的时候置顶，SetWindowPos Me.hwnd, a, 0, 0, 0, 0, b Or c 是窗体置顶的实现代码如果你要按下按钮就实现指定可以把它添加到command1_click事件中即可

Answer 2

用SetWindowPos函数，通用部分声明：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 a& = -1
Private Const b& = &H1
Private Const c& = &H2窗体部分：
Private Sub Form_Load()  。

Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

Answer 3

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 Sub Form_Load()
a = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)
End Sub最简单就是这样了，API是必须的

Answer 4

网上找到的 我试过 能用 希望对你有帮助 Rem 一个按钮command
'按空格可以切换
Dim LR As String '置顶判断的变量
Private Sub Form_Load()
LR = 0
Form1.Caption = "窗口置顶工程" '窗口标题栏显示的文字
Command1.Caption = "置顶" '按钮1显示置顶文字
End Sub
Private Sub Command1_Click()
If LR = 0 Then
LR = SetTopMostWindow(Form1.hwnd, True) '前端显示
Exit Sub
End If
LR = SetTopMostWindow(Form1.hwnd, False) '取消前端显示
End Sub
--------------------------------------------------------------
下面的加入模块代码中
'Dim lR As Long
'前端显示
'lR = SetTopMostWindow(Form1.hwnd, True)
'取消前端显示
'lR = SetTopMostWindow(Form1.hwnd, False)
Option Explicit
Public Const SWP_NOMOVE = 2
Public Const SWP_NOSIZE = 1
Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
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
Public Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
If Topmost = True Then 'Make the window topmost
SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
0, FLAGS)
Else
SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, _
0, 0, FLAGS)
SetTopMostWindow = False
End If
End Function