VB.net激活窗体 vbnet main启动窗体

如何给VB.NET窗体添加子窗体？

直接添加一个MID父窗体或在已有窗体的属性中找到IsMDIContainer属性，然后设置为True，然后创建第二个窗体 ，需要加载子窗体的时候：

Dim NewMDIChild As New Form2

NewMDIChild.MdiParent = Me

NewMDIChild.Show()

Public Shared Sub CheckMDIChildForm(ByVal MDIForm As Windows.Forms.Form, ByVal MDIChildForm As Windows.Forms.Form, ByVal MDIChildFormName As String)

        If MDIForm.MdiChildren.Length  1 Then

            '如果没有任何一个MDI子窗体，则创该MDI子窗体的窗体实例

            Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

            MDIChildFrm.MdiParent = MDIForm '指定父窗体

            MDIChildFrm.Show() '打开窗体

            Exit Sub

        Else

            Dim x As Integer

            Dim frmyn As Boolean

            For x = 0 To (MDIForm.MdiChildren.Length) - 1

                Dim tempChild As Windows.Forms.Form = CType(MDIForm.MdiChildren(x), Windows.Forms.Form)

                If tempChild.Name = MDIChildFormName Then

                    '检测到有该MDI子窗体，设为激活 并退出循环

                    frmyn = True

                    tempChild.BringToFront()

                    Exit For

                Else

                    frmyn = False

                End If

            Next

            If Not frmyn Then

                '在打开的窗体中没检测到则新建

                Dim MDIChildFrm As Windows.Forms.Form = MDIChildForm ' 定义MDI子窗体

                MDIChildFrm.MdiParent = MDIForm '指定父窗体

                MDIChildFrm.Show() '打开窗体

            End If

        End If

    End Sub

相关问答

Q1: Vb.net中已知某程序的进程id，如果激活该程序并最大化？

使用ShowWindow函数，便可轻松控制窗口的显隐，最小化，最大化。

概述

函数功能：该函数设置指定窗口的显示状态。

函数原型：BOOL ShowWindow（HWND hWnd, int nCmdShow）；

*/第一个参数为句柄，第二个参数选下面的值

#define SW_HIDE 0

#define SW_SHOWNORMAL 1

#define SW_NORMAL 1

#define SW_SHOWMINIMIZED 2

#define SW_SHOWMAXIMIZED 3

#define SW_MAXIMIZE 3

#define SW_SHOWNOACTIVATE 4

#define SW_SHOW 5

#define SW_MINIMIZE 6

#define SW_SHOWMINNOACTIVE 7

#define SW_SHOWNA 8

#define SW_RESTORE 9

#define SW_SHOWDEFAULT 10

#define SW_FORCEMINIMIZE 11

#define SW_MAX 11

参数含义

hWnd:指窗口句柄。

nCmdShow：指定窗口如何显示。如果发送应用程序的程序提供了STARTUPINFO结构，则应用程序第一次调用ShowWindow时该参数被忽略。否则，在第一次调用ShowWindow函数时，该值应为在函数WinMain中nCmdShow参数。在随后的调用中，该参数可以为下列值之一：

SW_FORCEMINIMIZE：在WindowNT5.0中最小化窗口，即使拥有窗口的线程被挂起也会最小化。在从其他线程最小化窗口时才使用这个参数。

SW_HIDE：隐藏窗口并激活其他窗口。

SW_MAXIMIZE：最大化指定的窗口。

SW_MINIMIZE：最小化指定的窗口并且激活在Z序中的下一个顶层窗口。

SW_RESTORE：激活并显示窗口。如果窗口最小化或最大化，则系统将窗口恢复到原来的尺寸和位置。在恢复最小化窗口时，应用程序应该指定这个标志。

SW_SHOW：在窗口原来的位置以原来的尺寸激活和显示窗口。

SW_SHOWDEFAULT：依据在STARTUPINFO结构中指定的SW_FLAG标志设定显示状态，STARTUPINFO 结构是由启动应用程序的程序传递给CreateProcess函数的。

SW_SHOWMAXIMIZED：激活窗口并将其最大化。

SW_SHOWMINIMIZED：激活窗口并将其最小化。

SW_SHOWMINNOACTIVATE：窗口最小化，激活窗口仍然维持激活状态。

SW_SHOWNA：以窗口原来的状态显示窗口。激活窗口仍然维持激活状态。

SW_SHOWNOACTIVATE：以窗口最近一次的大小和状态显示窗口。激活窗口仍然维持激活状态。

SW_SHOWNORMAL：激活并显示一个窗口。如果窗口被最小化或最大化，系统将其恢复到原来的尺寸和大小。应用程序在第一次显示窗口的时候应该指定此标志。

不过顺便说一句，SendKeys会偶尔造成指令丢失，不可避免。不管你激活窗口还是最大化窗口或者锁定都没办法完全避免。

Q2: VB.NET点击窗体内按钮窗体不激活

Public Class Form1

    '声明常量：(释义可参见windows API)

    Const WS_EX_NOACTIVATE As Integer = H8000000

    '重载Form的CreateParams属性，添加不获取焦点属性值。

    Protected Overrides ReadOnly Property CreateParams() As CreateParams

        Get

            Dim cp As CreateParams = MyBase.CreateParams

            cp.ExStyle = cp.ExStyle Or WS_EX_NOACTIVATE

            Return cp

        End Get

    End Property

End Class

Q3: VB.NET的Form的所有事件

名称

说明

Activated

当使用代码激活或用户激活窗体时发生。

AutoSizeChanged

当 AutoSize 属性更改时发生。

AutoValidateChanged

当 AutoValidate 属性更改时发生。

BackColorChanged

当 BackColor 属性的值更改时发生。（从 Control 继承。）

BackgroundImageChanged

当 BackgroundImage 属性的值更改时发生。（从 Control 继承。）

BackgroundImageLayoutChanged

当 BackgroundImageLayout 属性更改时发生。（从 Control 继承。）

BindingContextChanged

当 BindingContext 属性的值更改时发生。（从 Control 继承。）

CausesValidationChanged

当 CausesValidation 属性的值更改时发生。（从 Control 继承。）

ChangeUICues

焦点或键盘用户界面 (UI) 提示更改时发生。（从 Control 继承。）

Click

在单击控件时发生。（从 Control 继承。）

ClientSizeChanged

当 ClientSize 属性的值更改时发生。（从 Control 继承。）

Closed

关闭窗体时发生。

Closing

关闭窗体时发生。

ContextMenuChanged

当 ContextMenu 属性的值更改时发生。（从 Control 继承。）

ContextMenuStripChanged

当 ContextMenuStrip 属性的值更改时发生。（从 Control 继承。）

ControlAdded

在将新控件添加到 Control.ControlCollection 时发生。（从 Control 继承。）

ControlRemoved

在从 Control.ControlCollection 移除控件时发生。（从 Control 继承。）

CursorChanged

当 Cursor 属性的值更改时发生。（从 Control 继承。）

Deactivate

当窗体失去焦点并不再是活动窗体时发生。

Disposed

当通过调用 Dispose 方法释放组件时发生。（从 Component 继承。）

DockChanged

当 Dock 属性的值更改时发生。（从 Control 继承。）

DoubleClick

在双击控件时发生。（从 Control 继承。）

DragDrop

拖放操作完成时发生。（从 Control 继承。）

DragEnter

在将对象拖入控件的边界时发生。（从 Control 继承。）

DragLeave

将对象拖出控件的边界时发生。（从 Control 继承。）

DragOver

在将对象拖到控件的边界上发生。（从 Control 继承。）

EnabledChanged

在 Enabled 属性值更改后发生。（从 Control 继承。）

Enter

进入控件时发生。（从 Control 继承。）

FontChanged

在 Font 属性值更改时发生。（从 Control 继承。）

ForeColorChanged

在 ForeColor 属性值更改时发生。（从 Control 继承。）

FormClosed

关闭窗体后发生。

FormClosing

关闭窗体前发生。

GiveFeedback

在执行拖动操作期间发生。（从 Control 继承。）

GotFocus

在控件接收焦点时发生。（从 Control 继承。）

HandleCreated

在为控件创建句柄时发生。（从 Control 继承。）

HandleDestroyed

在控件的句柄处于销毁过程中时发生。（从 Control 继承。）

HelpButtonClicked

单击“帮助”按钮时发生。

HelpRequested

用户请求控件帮助时发生。（从 Control 继承。）

ImeModeChanged

在 ImeMode 属性更改后发生。（从 Control 继承。）

InputLanguageChanged

更改窗体的输入语言后发生。

InputLanguageChanging

当用户尝试更改窗体的输入语言时发生。

Invalidated

控件的显示要求重新绘制时发生。（从 Control 继承。）

KeyDown

在控件有焦点的情况下按下键时发生。（从 Control 继承。）

KeyPress

在控件有焦点的情况下字符、空格或退格键时发生。（从 Control 继承。）

KeyUp

在控件有焦点的情况下释放键时发生。（从 Control 继承。）

Layout

在控件应重新定位其子控件时发生。（从 Control 继承。）

Leave

在输入焦点离开控件时发生。（从 Control 继承。）

Load

在第一次显示窗体前发生。

LocationChanged

在 Location 属性值更改后发生。（从 Control 继承。）

LostFocus

在控件失去焦点时发生。（从 Control 继承。）

MarginChanged

当 Margin 属性更改时发生。

MaximizedBoundsChanged

在 MaximizedBounds 属性的值更改后发生。

MaximumSizeChanged

在 MaximumSize 属性的值更改后发生。

MdiChildActivate

在多文档界面 (MDI) 应用程序内激活或关闭 MDI 子窗体时发生。

MenuComplete

当窗体菜单失去焦点时发生。

MenuStart

当窗体菜单接收焦点时发生。

MinimumSizeChanged

在 MinimumSize 属性的值更改后发生。

MouseCaptureChanged

当控件失去鼠标捕获时发生。（从 Control 继承。）

MouseClick

用鼠标单击控件时发生。（从 Control 继承。）

MouseDoubleClick

用鼠标双击控件时发生。（从 Control 继承。）

MouseDown

当鼠标指针位于控件上并按下鼠标键时发生。（从 Control 继承。）

MouseEnter

在鼠标指针进入控件时发生。（从 Control 继承。）

MouseHover

在鼠标指针停放在控件上时发生。（从 Control 继承。）

MouseLeave

在鼠标指针离开控件时发生。（从 Control 继承。）

MouseMove

在鼠标指针移到控件上时发生。（从 Control 继承。）

MouseUp

在鼠标指针在控件上并释放鼠标键时发生。（从 Control 继承。）

MouseWheel

在控件有焦点且鼠标轮移动时发生。（从 Control 继承。）

Move

在移动控件时发生。（从 Control 继承。）

PaddingChanged

在控件空白区更改时发生。（从 Control 继承。）

Paint

在重绘控件时发生。（从 Control 继承。）

ParentChanged

在 Parent 属性值更改时发生。（从 Control 继承。）

PreviewKeyDown

在焦点位于此控件上的情况下，当有按键动作时发生（在 KeyDown 事件之前发生）。（从Control 继承。）

QueryAccessibilityHelp

在 AccessibleObject 为辅助功能应用程序提供帮助时发生。（从 Control 继承。）

QueryContinueDrag

在拖放操作期间发生，并且允许拖动源确定是否应取消拖放操作。（从 Control 继承。）

RegionChanged

当 Region 属性的值更改时发生。（从 Control 继承。）

Resize

在调整控件大小时发生。（从 Control 继承。）

ResizeBegin

窗体进入大小调整模式时发生。

ResizeEnd

窗体退出大小调整模式时发生。

RightToLeftChanged

在 RightToLeft 属性值更改时发生。（从 Control 继承。）

RightToLeftLayoutChanged

更改 RightToLeftLayout 属性值之后发生。

Scroll

用户或代码滚动工作区时发生。（从 ScrollableControl 继承。）

Shown

只要窗体是首次显示就发生。

SizeChanged

在 Size 属性值更改时发生。（从 Control 继承。）

StyleChanged

在控件样式更改时发生。（从 Control 继承。）

SystemColorsChanged

系统颜色更改时发生。（从 Control 继承。）

TabIndexChanged

此 API 支持 产品 基础结构，不能在代码中直接使用。 当 TabIndex 属性的值更改时发生。

TabStopChanged

当 TabStop 属性更改时发生。

TextChanged

在 Text 属性值更改时发生。（从 Control 继承。）

Validated

在控件完成验证时发生。（从 Control 继承。）

Validating

在控件验证时发生。（从 Control 继承。）

VisibleChanged

在 Visible 属性值更改时发生。（从 Control 继承。）

Q4: 怎样用VB.NET写和调用DLl窗体

一、带窗体的dll创建

1、先新建 类库（testdll），在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2；并在fm1窗体中添加一个按钮用来调用fm2如下图

2、在fm1窗体代码中先引用fm2,    按钮代码调用fm2.如图

3、生成dll,(class1.vb中不需要写任何代码）

二、调用dll

1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体，选 择 “项目”－“添加引用”，选择刚才创建的testdll

2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象，最后执行对象的show方法

3、运行结果如下：

Q5: vb.net 怎样判断某个窗体是否打开

Dim F1 As New Datasystem.Form2 '实例化窗体

For Each na As Form In Application.OpenForms '打开窗体的集合

If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中

If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化

na.WindowState = FormWindowState.Normal '还原窗体

End If

na.Activate() '激活窗体

Return '返回

End If

Next

F1.Show() '如果没有打开的窗体中未找到，重新打开窗体

VB.net激活窗体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet main启动窗体、VB.net激活窗体的信息别忘了在本站进行查找喔。