form2 窗體在vb.net中為類的形式存在,必須先定義該類的實(shí)例子方可引用.
倉山ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書未來市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)的ssl證書銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書合作)期待與您的合作!
dim f1 as new form2
f2.show
方法很多.
方法一:
Form1上的按鈕的代碼如下
private sub command1_click()
me.hide '窗體一隱藏
form2.show '窗體二顯示
end
Form2上的按鈕的代碼如下
private sub command2_click()
me.hide '窗體二隱藏
form1.show '窗體一顯示
end
方法二:
Form1上的按鈕的代碼如下
private sub command1_click()
Me.Visible = False '窗體一隱藏
form2.show '窗體二顯示
end
Form2上的按鈕的代碼如下
private sub command2_click()
Me.Visible = False '窗體二隱藏
form1.show '窗體一顯示
end
方法三:
Form1上的按鈕的代碼如下
private sub command1_click()
unload me '窗體一隱藏
form2.show '窗體二顯示
end
Form2上的按鈕的代碼如下
private sub command2_click()
unload me '窗體二隱藏
form1.show '窗體一顯示
end
VB中有例子,你可以嘗試自行研究。
方法:工程
-
添加窗體
-
選項(xiàng)對(duì)話框。這個(gè)選項(xiàng)對(duì)話框已經(jīng)有相關(guān)的應(yīng)用代碼。
不過你可以嘗試人性化的自定義。方法:
工程
-
部件
-
Microsoft
Windows
Common
Controls
*.*
點(diǎn)解TabStrip圖標(biāo),添加到窗體。
右鍵點(diǎn)擊TabStrip,選擇屬性,對(duì)TabStrip進(jìn)行自定義。
點(diǎn)擊選項(xiàng)卡,在標(biāo)題欄填寫類似新建、現(xiàn)存、最新等名字。如果需要添加選項(xiàng)卡,可以點(diǎn)擊插入選項(xiàng)卡按鈕
實(shí)現(xiàn)點(diǎn)擊切換:我比較喜歡在窗體中添加Frame,點(diǎn)擊選項(xiàng)卡則顯示相應(yīng)的Frame。例如:
Private
Sub
TabStripSite_Click()
'設(shè)置選項(xiàng)卡點(diǎn)擊顯示情況
For
Counter
=
To
TabStripSite.Tabs.Count
-
1
'從0開始計(jì)算判斷所點(diǎn)擊的選項(xiàng)卡
Select
Case
TabStripSite.SelectedItem.Caption
'判斷選中的選項(xiàng)卡的標(biāo)題欄(Caption)的值
Case
FraSiteBasic.Caption
FraSiteBasic.Visible
=
True
'設(shè)置Visible狀態(tài)
FraSiteOwner.Visible
=
True
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
False
Case
FraSiteLocal.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
True
FraSitePower.Visible
=
False
Case
FraSitePower.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
True
End
Select
Next
End
Sub
==========
希望能幫上一點(diǎn)忙
1、如果不用用戶控件,那就用Panel,單擊按鈕時(shí)顯示相應(yīng)的Panel,隱藏不相關(guān)的Panel。
2、E死了:
ADD按鈕的Click事件:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一個(gè)Form2窗口,里面有一個(gè)文本輸入框TextBox1和一個(gè)按鈕Button1。
Form2.Show() '打開編輯窗口。
End Sub
Form2窗口的Button1按鈕事件Click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text "" Then '當(dāng)TextBox1的類容不為空時(shí)。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的類容添加到ListView中。
Me.Close()'添加完后關(guān)閉窗口。
Else ’Else,如果為空。
Dim k = MsgBox("類容為空!" Chr(10) "是否取消添加?", vbYesNo)'提醒用戶是否取消向ListView添加類容。
If k = vbYes Then '用戶點(diǎn)擊確認(rèn)時(shí)。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要點(diǎn)“項(xiàng)目”“添加Windows窗體”,在彈出的對(duì)話框中的“名稱”寫為“Form2.vb”,再“創(chuàng)建”,就行了。之后在里面添加相應(yīng)的用戶控件。
在Form1中
Private Sub Command1_Click()
Form2.Show
Me.Hide
End Sub
在Form2中
Private Sub Command1_Click()
Form1.Show
Me.Hide
End Sub
--------------------------】、
希望能采納
'Form1 Code
Option Explicit
Private Sub Command1_Click()
Me.Hide
Form2.Show
End Sub
Private Sub Form_Click()
Unload Me
Unload Form2
End Sub
'Form2 Code
Option Explicit
Private Sub Command1_Click()
Me.Hide
Form1.Show
End Sub
網(wǎng)頁名稱:vb.net多窗口切換 windows7多窗口切換
分享鏈接:http://aaarwkj.com/article0/doodpoo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供企業(yè)網(wǎng)站制作、網(wǎng)站設(shè)計(jì)公司、微信公眾號(hào)、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站改版、營銷型網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)