vb.net窗體如何裝入 vb打開窗體的代碼

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

加以一個(gè)panel用來顯示應(yīng)用程序的，就是放你那個(gè)easycap的，代碼如下

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

SendMessage(h, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

End Sub

把其中的c:\windows\system32\cmd.exe換成你要嵌入的應(yīng)用程序

vb.net2012 添加已經(jīng)做好的窗體

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

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

你這個(gè)要求實(shí)在是不對路子。是思路不對。

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

點(diǎn)擊窗體一時(shí)，第一個(gè)panel的Visible=True,第二個(gè)panel的Visible=False

點(diǎn)擊窗體二時(shí)，第一個(gè)panel的Visible=False,第二個(gè)panel的Visible=True

就達(dá)到你要的效果了。

窗體不能裝來裝去的。

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

求大神指點(diǎn)vb.net在類模塊里面寫個(gè)子程序和窗體,.當(dāng)調(diào)用這個(gè)子程序的時(shí)候怎么才能載入出窗體呢?

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

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

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

frm.Show()

End?Sub

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

方法如下：

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

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

3、在窗體調(diào)用的過程代碼體中編制如下過程代碼：

Private Sub Form_Load()

Form1.Width = 4860

Form1.Height = 2520

End Sub

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

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

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

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

'如果沒有任何一個(gè)MDI子窗體，則創(chuàng)該MDI子窗體的窗體實(shí)例

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子窗體，設(shè)為激活?并退出循環(huán)

frmyn?=?True

tempChild.BringToFront()

Exit?For

Else

frmyn?=?False

End?If

If?Not?frmyn?Then

'在打開的窗體中沒檢測到則新建