vb.net预加载窗体,vb保存窗体

怎么给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

VB.NET先加载模块再启动窗体

确实如xjnzhidao 讲的，很可能你没实例化,模块中的代码你不调用也是不执行的，尤其是写到模块里面的函数或者过程。一个很简单的办法，就是在你模块代码中声明数据库库读取的地方设置一个断点，然后调试程序（把窗体调用该代码部分先注释掉），看看是否执行到了断点，如果没执行就说明根本没执行模块

vb.net怎么加载和卸载窗体

VB.net 加载窗体 form2.show() 卸载窗体 me.close()加载窗体和VB没啥区别，而卸载就截然不同了。附：VB 加载窗体 form2.show 卸载窗体 unload me

vb.net中如何加载另一个窗体到主窗体的一个控件中

你这个要求实在是不对路子。是思路不对。

应该是将窗体一和窗体二中的控件分别用一个panel装起来，设为隐含状态。都放在主窗体的panel1中。

点击 窗体一时，第一个panel的Visible=True,第二个panel的Visible=False

点击 窗体二时，第一个panel的Visible=False,第二个panel的Visible=True

就达到你要的效果了。

窗体不能装来装去的。

再有一个方法就是创建自定义控件。那个说起来太麻烦，看看书吧。

vb中如何实现窗体重新加载

VB6.0窗体重新加载可使用Load语句、Show方法等实现。

1）Show 方法，用以显示 MDIForm 或 Form 对象。

窗体名.Show

2）Load 语句，把窗体或控件加载到内存中。

Load.窗体名

3）Visual Basic 窗体经历的状态

通常地，Visual Basic 窗体在整个存活期中有四种状态：

创建，但不加载。

加载，但不显示。

显示。

内存和资源完全收回。

在一定环境下，窗体可有第五种状态：当其中有一个控件仍被引用时，窗体处于卸载和未引用状态。

4）在其他程序运行时，当代码涉及到完全卸载窗体上的控件事件或属性，被卸载窗体会被加载到内存。

Private Sub Command1_Click()

Form1.Text1 = "Abc"

End Sub

上述代码执行，Form1就被加载于内存。

如何用VB.NET把执行文件加到窗体中

加以一个panel用来显示应用程序的，就是放你那个easycap的，代码如下

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Int32, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Int32) As Int32

Private Const WM_SYSCOMMAND As Int32 = H112

Private Const SC_MAXIMIZE As Int32 = HF030

Private Const SC_MINIMIZE As Int32 = HF020

Private Const SC_RESTORE As Int32 = HF120

Public Const SW_HIDE = 0

Public Const SW_SHOW = 5

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Int32, ByVal nCmdShow As Int32) As Int32

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ShellExecute(Me.Panel1.Handle, "open", "c:\windows\system32\cmd.exe", Nothing, ".", SW_HIDE)

System.Threading.Thread.Sleep(50)

Dim h As IntPtr = FindWindow(Nothing, "c:\windows\system32\cmd.exe")

ShowWindow(h, SW_HIDE)

SetParent(h, Me.Panel1.Handle) '嵌到panel1内

SendMessage(h, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

End Sub

把其中的c:\windows\system32\cmd.exe换成你要嵌入的应用程序