vb.net窗口最前 vb窗口置前

VB.net如何设置程序运行时最先打开的窗体？

你是不是用的Visual Studio来开发的？如果是，这样操作：打开 项目 菜单 中的 XXX属性，在弹出的属性页选择最上面那个 应用程序 标签，里面有个启动窗体，你选择一下就可以了。

如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即 模态窗口，必须关闭才能继续操作），这样都可以实现你要的效果。

相关问答

Q1: vb的窗体怎么显示在最前端?

在某些情况下我们需要某个窗体总是在所有窗体的最前端,我们可以使用Form1.show

1来实现,但是这样会出现一个问题,就是使整个程序暂停运行,直到Unload

Form1后程序才会继续运行.

那么如何使我的窗口总在最前？而不影响到我的整体程序运行呢?

使用api函数

SetWindowPos

可以很容易的作到。

SetWindowPos

就是完成设置窗口位置和状态（pos=position）的功能。源代码如下：

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

Q2: VB中如何实现一个窗体始终处于最上方

要用 API 函数。

SetWindowPos

'示例:

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

Q3: VB.NET窗口置顶在最前面显示的时候不影响目前鼠标焦点.

这是一个关于模态窗口与非模态窗口的问题。

实现非模态窗口也没什么难度

Dim form As New Form1

form.TopMost = True

form.Show()

你再将鼠标移到父窗口上，弹出的窗口也不会消失。

Q4: 请问在VB中怎样使一个窗体运行时始终保持在最前?

这个简单啊，引用API函数SetWindowPos就可以解决。下面看看我的代码：

Private Declare Function SetWindowPos Lib "user32.dll" (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_NOMOVE = H2

Const SWP_NOSIZE = H1

Const FLAG = SWP_NOMOVE Or SWP_NOSIZE

Const HWND_TOPMOST = -1

Const HWND_NOTOPMOST = -2

Const HWND_TOP = 0

Const HWND_BOTTOM = 1

将窗口设置最前：Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAG)

取消窗口的最前：Call SetWindowPos(Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAG)

函数的第一个参数是根据实际情况改变的，它要求你给它传送一个窗口的句柄，这里的 Me.hwnd 就给函数传送了当前窗口的句柄，也就是将当前窗口前置或取消前置。如果要前置其他窗口，那么请向函数传送其他窗口的句柄，这个可以根据：FindWindow API函数获取。希望采纳意见，谢谢。。。

Q5: VB.NET如何让弹出的窗体显示在所有的窗体的最前面（包括其他程序打开的窗体）

你可以这样做vb.net窗口最前，设置窗体的TopMost 属性为真vb.net窗口最前！

Me.TopMost = True

Form.TopMost 属性

获取或设置一个值，指示该窗体是否应显示为最顶层窗体。

关于vb.net窗口最前和vb窗口置前的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。