VB中怎么写。将窗口置顶的代码~
用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事件中即可
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_NOSIZE& = &H1
' 保持窗口大小
Private Const SWP_NOMOVE& = &H2
' 保持窗口位置
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
' 将窗口设为总在最前
End Sub
'其实和楼上的一样, 不过这个置顶的是 加载的窗口, 你要置顶哪窗口就把代码放哪个里边 ,另外MSGBOX 的置顶是4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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_NOSIZE& = &H1
Private Const SWP_NOMOVE& = &H2
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, text1.text)
if hwnd<>0 then SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub
《我用VB生成了EXE文件 我想让生成的那个EXE文件打开后永远窗口置顶。》
答：Option ExplicitPrivate 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 LongPrivate Const HWND_TOPMOST& = -1 ' 将窗口置于...
《VB中怎么写。将窗口置顶的代码》
答：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 是窗体置顶的实现代码如果你要按下按钮就实现指定可以把它...
《vb编程 如何让一个WINDOWS窗口置顶》
答：SetWindowPos Me.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE Or SWP_NOMOVE'不置顶 End Sub 这个只要获取他的窗口句柄就可以了 whWnd 是 窗口句柄 SetWindowPos whWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_...
《VB.NET窗口置顶在最前面显示的时候不影响目前鼠标焦点.》
答：这是一个关于模态窗口与非模态窗口的问题。实现非模态窗口也没什么难度 Dim form As New Form1 form.TopMost = True form.Show()你再将鼠标移到父窗口上，弹出的窗口也不会消失。
《VB中如何让窗口置顶》
答：新建立类模块：Option Explicit 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)窗口代码：Dim rtn '让窗口在顶层 rtn = SetWindowPos(...
《在vb 中 怎样让一个窗体始终置顶.当被最小化恢复后依然总在最前_百度...》
答：'写在resize中保险，就算别的程序也设置了置顶，你的程序最小化恢复后还是在它上面 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 ...
《VB 怎么始终让一个窗口至于最前端?》
答：= -1' 将窗口置于列表顶部，并位于任何最顶部窗口的前面Private Const SWP_NOSIZE& = &H1' 保持窗口大小Private Const SWP_NOMOVE& = &H2' 保持窗口位置Private Sub Form_Load()SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE' 将窗口设为总在最前End Sub ...
《VB 让窗口强行置顶》
答：hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 将窗口设为总在最前 End Sub '其实和楼上的一样, 不过这个置顶的是 加载的窗口, 你要置顶哪窗口就把代码放哪个里边 ,另外MSGBOX 的置顶是4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。
《VB里,怎么使form2显示,置顶。 启动窗体:form1。 用一个按钮。 求代码...》
答：'''Private Sub Form_Load()Dim retValue As Long Rem 调用API函数，将窗体设置为处于所有窗口的顶层 Rem 200,200是窗体左上角的位置，600,300是窗体的宽度和高度 retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, 200, 200, 600, 300, SWP_SHOWWINDOW)End Sub ...
《vb 下拉菜单让窗体置顶》
答：参考下面的代码,把Command1_Click和Command2_Click内的代码加入你的菜单项就可以了.ME.HWND是指需置顶窗体的HWND,如果是别的窗体,就用"窗体名.hwnd"替换,如果是另一个程序,需要先获得另一个程序需置顶窗体的HWND值...具体详细,可以搜索一下.SetWindowPos 的各参数的意思你可以参考上面一个的回复,再...
