如何用VB.NET把執(zhí)行文件加到窗體中

加以一個panel用來顯示應用程序的，就是放你那個easycap的，代碼如下

站在用戶的角度思考問題，與客戶深入溝通，找到古冶網站設計與古冶網站推廣的解決方案，憑借多年的經驗，讓設計與互聯(lián)網技術結合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：成都做網站、網站建設、企業(yè)官網、英文網站、手機端網站、網站推廣、申請域名、網站空間、企業(yè)郵箱。業(yè)務覆蓋古冶地區(qū)。

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.net2012 添加已經做好的窗體

你的是日文界面？根據你的描述，估計是添加的窗體需要引用別的DLL

vb.net中如何加載另一個窗體到主窗體的一個控件中

你這個要求實在是不對路子。是思路不對。

應該是將窗體一和窗體二中的控件分別用一個panel裝起來，設為隱含狀態(tài)。都放在主窗體的panel1中。

點擊 窗體一時，第一個panel的Visible=True,第二個panel的Visible=False

點擊 窗體二時，第一個panel的Visible=False,第二個panel的Visible=True

就達到你要的效果了。

窗體不能裝來裝去的。

再有一個方法就是創(chuàng)建自定義控件。那個說起來太麻煩，看看書吧。

求大神指點vb.net在類模塊里面寫個子程序和窗體,.當調用這個子程序的時候怎么才能載入出窗體呢?

Public?Sub?載入窗體()?'在類中公有方法要明確Public

Dim?frm?As?New?Form1?'在Windows應用程序項目中系統(tǒng)隱含生成了一個Form1類的同名對象，其實你直接引用的是隱含的Form1對象，而不是看得著的那個Form1窗口類。

'而在這種工程類型中列表中沒有列出來，應該是沒有的，所以的用代碼生成Form1的實例。

frm.Show()

End?Sub

vb.net 窗體程序的入口在哪

方法如下：

1、打開例1.1創(chuàng)建的工程。

2、選擇窗體Form1并雙擊該窗體，出現(xiàn)窗體的調事件的過程代碼體。

3、在窗體調用的過程代碼體中編制如下過程代碼：

Private Sub Form_Load()

Form1.Width = 4860

Form1.Height = 2520

End Sub

4、設置窗體Form1的SartUpPosition屬性為2-屏幕中心，這樣運行窗體可以發(fā)現(xiàn)，屏幕的大小與例1.6中通過屬性設置的大小是一致的。

如何給VB.NET窗體添加子窗體？

直接添加一個MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性，然后設置為True，然后創(chuàng)建第二個窗體 ，需要加載子窗體的時候：

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子窗體，則創(chuàng)該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子窗體，設為激活?并退出循環(huán)

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