1、如果不用用戶控件,那就用Panel,單擊按鈕時(shí)顯示相應(yīng)的Panel,隱藏不相關(guān)的Panel。
創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比合川網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式合川網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋合川地區(qū)。費(fèi)用合理售后完善,十多年實(shí)體公司更值得信賴。
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)的用戶控件。
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)忙
登陸按鈕里寫:
private void button1_Click(object sender, EventArgs e)
{
Form2 fo1 = new Form2();
fo1.Show();
this.Visible=false;
}
第2個(gè)窗體的關(guān)閉事件里寫
private void Form2_FormClosed(object sender, FormClosedEventArgs e)
{
Application.Exit();
}
這樣就可以了
me.dispose(); 這個(gè)是釋放本對(duì)象的資源,,有時(shí)候直接把這個(gè)對(duì)象就清理了,,登陸窗體如果是入口窗體的話,,這么寫就等于Application.Exit();
直接關(guān)整個(gè)應(yīng)用程序了
插紅旗噢 我還去vs里敲了一下
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)忙
me.dispose()
樓主針對(duì)這個(gè)問題我也糾結(jié)過很久不過就在剛剛我找到了問題所在:
還是用me.close()
打開
項(xiàng)目
》
最下面一行有一個(gè)屬性》
應(yīng)用程序》下面
有一個(gè)關(guān)機(jī)模式
改為:當(dāng)最后一個(gè)窗體關(guān)閉時(shí)。。。注意
me.close要寫在窗體show()后面
例如
寫成
f2.show()
me.close()
不要寫成
me.close()
f2.show()
當(dāng)前題目:vb.net怎么切換窗口 vb怎么跳轉(zhuǎn)窗口
標(biāo)題網(wǎng)址:http://vcdvsql.cn/article4/doodioe.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站維護(hù)、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站排名、電子商務(wù)、App開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)