网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

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中,如何在一个窗体上打开另一个窗体?

form2 窗体在vb.net中为类的形式存在,必须先定义该类的实例子方可引用.

dim f1 as new form2

f2.show

如何用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换成你要嵌入的应用程序

vb.net 实现上面的窗口执行查询后,不关闭情况下,可以在下面的窗口内进行显示内容。

如果我没理解错:

Form1(下窗体) Form2(上窗体)

且已在Form1中声明了Form2

那不直接就可以在Form2中控制Form1的控件的值咯?

哦,明白了!

你是想不动Form2找到值后就高亮显示出来查询结果?

那还不简单,在Form2里边加上me.Topmast=True让Form2位于顶层

前提是你的Form1里的文本控件可实现选择效果,如RichTextBox,

在Form2中找到结果后写入 Form1.RichTextBox1.Select( start , Length),选则结果文本就可以高亮了,这样就实现了Form2 不关闭,且Form1 显示结果。

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

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

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

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

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

就达到你要的效果了。

窗体不能装来装去的。

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


本文题目:vb.net窗口嵌入窗口,vb集成的主窗口
文章URL:http://bjjierui.cn/article/phpddj.html

其他资讯